Вид для печати
Помогите в срочнейшем порядке написать прогу на паскале!!!!!!!
а то у мня последнее время полный ступор!
ПРога должна
в последовательности чисел находить наибольшую НЕубывающую последовательность и выводить ее.
+алгоритм
то что я творила выводит все неубывающие последовательности при этом еще и хамит мне
ПОМОГИТЕ!!!! Это курсовая! [color=blue][/color]
[quote]
в последовательности чисел находить наибольшую НЕубывающую последовательность
[/quote]
что-бы это значило? :)
объясняю
прога допустим ввела числа:
2 5 8 3 1 8 7 12 6 11 56 96 32
наибольшая в неубывающая-6 11 56 96 32
а еще есть: 2 5 8; 1 8; 7 12
пунятненько? ;)
Не помню паскаль, давно было.
на плюсах на скорую руку это можно реализовать вроде так:
[code]#include <iostream>
using namespace std;
void main()
{
const int N = 20;
int A[N] = { 2, 5, 8, 3, 1, 8, 11, 12, 13, 20, 25, 7, 2, 6, 11, 56, 59, 60, 59, 55 };
struct pol
{
int nach;
int kol;
};
pol first = {0};
pol second = {0};
bool f=false;
for (int i=0; i<N; i++)
{
if (A[i] <= A[i+1])
{
if (f==false)
{
first.nach=i;
f = true;
first.kol++;
continue;
}
first.kol++;
}
else
{
if (first.kol > second.kol )
second = first;
f=false;
first.kol=0;
}
}
for (int i=second.nach; i<second.nach+ second.kol+1 ; i++)
cout<<A[i]<<" ";
cin.ignore(1);
}[/code]
выведет: 1 8 11 12 13 20 25
1. Надо уточнить, т.к. "неубывающая" последовательность это не значит "возрастающая". Например [1,2,3] - это возраст, а [1,2,2,2,2,2,2,3] - неубывающая.
2.
[quote=Furious_Angel]прога допустим ввела числа:
2 5 8 3 1 8 7 12 6 11 56 96 32
наибольшая в неубывающая-6 11 56 96 32
а еще есть: 2 5 8; 1 8; 7 12[/quote]
Если я прав, то неубыв послед тут: 2 5 8, 1 8, 7 12, 6 11 56 96.
3. Как отличать две неубыв послед: по кол-ву эл-тов, по макс эл-ту, по сумме. Т.е. что значит "наибольшая"?
[quote=Яр]Не помню паскаль, давно было...[/quote]
[b]Яр[/b], не издевайся над ребенком. Просят же на паскале... ;)
[quote=Яр]Не помню паскаль, давно было.
на плюсах на скорую руку это можно реализовать вроде так:
[code]#include <iostream>
[skip]
[/code]
выведет: 1 8 11 12 13 20 25[/quote]
На паскале то же самое:
[code]const
N = 20;
A : array [1..N] of integer = (2,5,8,3,1,8,11,12,13,20,25,7,2,6,11,56,59,60,59,55);
type
pol = record
nach : integer;
kol : integer;
end;
var
first, second : pol;
i : integer;
f : boolean;
begin
first.nach := 0;
first.kol := 0;
second.nach := 0;
second.kol := 0;
f := false;
for i := 1 to N-1 do begin
if A[i] <= A[i+1]
then begin
if not f then begin
first.nach := i;
f := true;
inc(first.kol);
continue;
end;
inc(first.kol);
end
else begin
if first.kol > second.kol
then second := first;
f := false;
first.kol := 0;
end;
end;
for i := second.nach to second.nach+second.kol do
Write(A[i],' ');
WriteLn;
ReadLn;
end.[/code]
выведет: 1 8 11 12 13 20 25
Теперь в ремиксе
[code]const
N = 20; {Кол-во эл-тов в массиве}
MaxValue = 100; {Наибольшее значение эл-та массива}
type
TArray = array [1..N] of integer;
var
i, IndexMinElt, TempIME, Quantity, TempQ : integer;
VArray : TArray;
begin
Randomize;
for i := 1 to N do VArray[i] := Random(MaxValue); {Массив заполняется случайным образом}
IndexMinElt := 1; {Индекс первого эл-та в возможной последовательности}
TempIME := 1; {TempIndexMinElt}
Quantity := 0; {Кол-во эл-тов в возможной последовательности}
TempQ := 0; {TempQuatity}
for i := 1 to N-1 do
if VArray[i] <= VArray[i+1]
then inc(TempQ)
else begin
if TempQ > Quantity then begin
IndexMinElt := TempIME;
Quantity := TempQ;
end;
TempIME := i+1;
TempQ := 0;
end;
Write('Array = [ ');
for i := 1 to N do Write(VArray[i],' ');
WriteLn(']');
for i := IndexMinElt to IndexMinElt+Quantity do
Write(VArray[i],' ');
end.[/code]
выводится например такое:
[code]Array = [ 32 55 28 30 9 34 27 65 76 10 87 35 50 21 48 51 55 62 66 0 ]
21 48 51 55 62 66[/code]
[b]Furious_Angel[/b], я в эту тему заглянул только потому, что хотел ее закрыть и удалить!
Время у нас сейчас тяжелое, экология плохая, войны, цунами, выборы затянулись, тут еще тема с названием "ХЭЛП! УМОЛЯЮ!"... по которому совсем не понятно, что внутри. Если б она называлась "Нужно написать прогу на паскале" или как-то так... Представь себе, что продается книга за 100 $ с назвой "Как заработать миллион", а внутри написано "[i]написать книгу с названием "Как заработать миллион" продать ее 10 000 дуракам по 100 $[/i]" ...
Кароче, я думаю понятно, тему надо менять.
[size=6][color=red][b]СРОЧНО!!![/b][/color][/size]
:wink:
[b]mancurt[/b], ;) круть.
мне кажется с двумя структурами красивее, чем с четырьмя переменными :)
а Курсовая какая-то несложная. :) Это какой курс\факультет, если не секрет? :)
СПАСИБО ЗА ПОМОЩЬ
курс пока что первый ФИТ Мечникова
даже не совсем
я в колледже учусь пока
Просто реально нет времени. НАс завалили по полной программе
по мне так я лучше б с графикой работала
Всем спасибки за помощь!
Кстати на плюсах мне эт прога тож нужна тк в этом семестре придется учить именно плюсы
Темку можно и поменять..))) Щас попробуем ченить интересненькое придумать ;)
ну и курсовые у вас - на 30 минут. Помню - я учился, у нас такие курсовые были - На Турбо С наваять тетрис или драйвер мышки или ещё чего...
[b]mancurt[/b], кстати такой вариант проги не учитывает один случай
массив- 12 14 45 3 19 0 0 2 1 17 87 55 72 34 22 67 80
наибольшие неубывающие-12 14 45; 0 0 2; 1 17 87; 22 67 80
[quote=Furious_Angel][b]mancurt[/b], кстати такой вариант проги не учитывает один случай
массив- 12 14 45 3 19 0 0 2 1 17 87 55 72 34 22 67 80
наибольшие неубывающие-12 14 45; 0 0 2; 1 17 87; 22 67 80[/quote]
Я поэтому и задал уточняющий вопрос "что есть НАИБОЛЬШАЯ неубыв последовательность"? Т.е. как эту НАИБОЛЬШЕСТЬ вычислить : по кол-ву эл-тов, по общему знаменателю, по цвету?.. 8)
наибольшая по колву элементов
но в этом случае как видишь их несколько
[quote=Furious_Angel]наибольшая по колву элементов
но в этом случае как видишь их несколько[/quote]
Что тогда делать? Выводить все такие последовательности или какую-то ососбенную?
все такие
Тогда встречный вопрос, что вы уже прошли по курсу Прогр на Паскале?
Динамические массивы (ака списки n-направленные), реализации стэков...
Это нужно для того, чтоб понять, на каком уровне надо делать прогу. Чтоб не получилось, что работа для первого курса по сложности похожа на диплом 8)
[b]mancurt[/b], на самом простом тк нам ваще ничегошеньки не объясняли.. паскаль знаю на школьном уровне, ну мож чуточку лучше. те полный примитив