Вид для печати
Помогите в срочнейшем порядке написать прогу на паскале!!!!!!!
а то у мня последнее время полный ступор!
ПРога должна
в последовательности чисел находить наибольшую НЕубывающую последовательность и выводить ее.
+алгоритм
то что я творила выводит все неубывающие последовательности при этом еще и хамит мне
ПОМОГИТЕ!!!! Это курсовая! [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], на самом простом тк нам ваще ничегошеньки не объясняли.. паскаль знаю на школьном уровне, ну мож чуточку лучше. те полный примитив
[b]Furious_Angel[/b], плохо. Про списки и указатели знаешь? Если да, тогда прогу можно сделать, если нет, тогда упс. Я предлагаю в какой-нибудь динам стр-ре хранить номера первых эл-тов всех одинаковых по длине послед-ей.
можна и без динов :)
просто сделать большую матрицу, и при необходимости запихивать в неё равнобольние последовательности или номера начального элемента и их количество :)
правда это расход памяти и вообще плохая практика :)
а мыслей попроще ни у кого нет? мне ж ее еще описать надо.. и алгоритм сделать... эхъъ... до субботы... ых
Я так понимаю суббота уже прошла, так что вопрос можно считать зарытым, хотя может быть и не решенным.
ыыыы.....ненада темку закрывать плс! нам ниче не говорили толком но таккак препод отсутствует сдача будет в след субботу если не позже)
[quote=Furious_Angel]ыыыы.....ненада темку закрывать плс! нам ниче не говорили толком но таккак препод отсутствует сдача будет в след субботу если не позже)[/quote]
8)
Что ж ты раньше не сказала, а все уже расслабились...
Кароче повторюсь - без динамических стр-р делать прогу ОЧЕНЬ не красиво. Более того - НЕ правильно. Как ранее написал Яр, можно использовать мега большую матрицу/массив - это не про нас!-)
Зачем нужно использовать динам массивы - дело в том, что заранее не известно, сколько неубывающих последовательностей одиноковой длины мы получим. И что не менее важно, надо знать не только их кол-во, но и [i]Индексы первых эл-тов каждой такой последовательности[/i].
В кач-ве динам массива можно использовать [list=1][*][url=http://www.geocities.com/SiliconValley/Park/3230/pas/pasles02.html]n-направленные списки[/url] (что я бы посоветовал);[*][url=http://www.geocities.com/SiliconValley/Park/3230/pas/pasl1007.html]строки ([b]string[/b])[/url] - туда можно без проблем дописывать ([b]Concat[/b]), вставлять ([b]Insert[/b]), удалять ([b]Delete[/b]) и т.д. не зря же [i]string is array of char[/i];[*][url=http://www.geocities.com/SiliconValley/Park/3230/pas/pasl1010.html]множества ([b]set[/b])[/url] - но это извращение... [/list]
[b]mancurt[/b], можно и без динов и без матриц :)
примерный алгоритм:
1. Ищем длину l максимальной последовательности в массиве.
2. Положить равным i=1.
3. Начинаем идти с i-го элеметра до конца, выделяя встречающиеся последовательности, длиной l.
4. Если встреченная последовательность - длины l, то выводим её на экран, ложим i=i+l и переходим к пункту 3
это я так, на вскидку :)
правда положения этих последовательностей не сохраняются, но ведь в задании требуется только вывести?
[b]Яр[/b], тогда массив прийдется проходить два раза.
...таки можно без динамики. Я о двойном проходе как-то не подумал.