Помогите! Курсовая на Паскале.

**Furious_Angel** · 08.01.2005 14:09

Помогите в срочнейшем порядке написать прогу на паскале!!!!!!!
а то у мня последнее время полный ступор!
ПРога должна
в последовательности чисел находить наибольшую НЕубывающую последовательность и выводить ее.
+алгоритм
то что я творила выводит все неубывающие последовательности при этом еще и хамит мне

ПОМОГИТЕ!!!! Это курсовая!

Яр · 08.01.2005 14:41

в последовательности чисел находить наибольшую НЕубывающую последовательность

что-бы это значило? :)

**Furious_Angel** · 08.01.2005 14:55

объясняю
прога допустим ввела числа:
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

пунятненько?

Яр · 08.01.2005 15:58

Не помню паскаль, давно было.

на плюсах на скорую руку это можно реализовать вроде так:

Код:

#include <iostream>
using namespace std;

void main&#40;&#41;
&#123;
	const int N = 20;
	int A&#91;N&#93; = &#123; 2, 5, 8, 3, 1, 8, 11, 12, 13, 20, 25, 7, 2, 6, 11, 56, 59, 60, 59, 55 &#125;;

	struct pol
	&#123;
		int nach;
		int kol;
	&#125;;

	pol first = &#123;0&#125;;
	pol second = &#123;0&#125;;

	bool f=false;

	for &#40;int i=0; i<N; i++&#41;
	&#123;
		if &#40;A&#91;i&#93; <= A&#91;i+1&#93;&#41;
		&#123;
			if &#40;f==false&#41;
			&#123;
				first.nach=i;
				f = true;
				first.kol++;
				continue;
			&#125;
			first.kol++;
		&#125;
		else
		&#123;
			if &#40;first.kol  > second.kol &#41;
				second = first;	
			f=false;
			first.kol=0;
		&#125;
	&#125;

	for &#40;int i=second.nach; i<second.nach+ second.kol+1 ; i++&#41;
		cout<<A&#91;i&#93;<<" ";

	cin.ignore&#40;1&#41;;

&#125;

выведет: 1 8 11 12 13 20 25

**mancurt** · 09.01.2005 05:04

1. Надо уточнить, т.к. "неубывающая" последовательность это не значит "возрастающая". Например [1,2,3] - это возраст, а [1,2,2,2,2,2,2,3] - неубывающая.

2.

Сообщение от 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

Если я прав, то неубыв послед тут: 2 5 8, 1 8, 7 12, 6 11 56 96.

3. Как отличать две неубыв послед: по кол-ву эл-тов, по макс эл-ту, по сумме. Т.е. что значит "наибольшая"?

**mancurt** · 09.01.2005 05:06

Сообщение от Яр

Не помню паскаль, давно было...

Яр, не издевайся над ребенком. Просят же на паскале... ;)

**mancurt** · 09.01.2005 06:14

Сообщение от Яр

Не помню паскаль, давно было.

на плюсах на скорую руку это можно реализовать вроде так:

Код:

#include <iostream>
&#91;skip&#93;

выведет: 1 8 11 12 13 20 25

На паскале то же самое:

Код:

const
  N = 20;
  A &#58; array &#91;1..N&#93; of integer = &#40;2,5,8,3,1,8,11,12,13,20,25,7,2,6,11,56,59,60,59,55&#41;;
type
  pol = record
    nach &#58; integer;
    kol &#58; integer;
  end;
var
  first, second &#58; pol;
  i &#58; integer;
  f &#58; boolean;
begin
  first.nach &#58;= 0;
  first.kol &#58;= 0;
  second.nach &#58;= 0;
  second.kol &#58;= 0;
  f &#58;= false;
  for i &#58;= 1 to N-1 do begin
    if A&#91;i&#93; <= A&#91;i+1&#93;
      then begin
        if not f then begin
          first.nach &#58;= i;
          f &#58;= true;
          inc&#40;first.kol&#41;;
          continue;
        end;
        inc&#40;first.kol&#41;;
      end
      else begin
        if first.kol > second.kol
          then second &#58;= first;
        f &#58;= false;
        first.kol &#58;= 0;
      end;
  end;
  for i &#58;= second.nach to second.nach+second.kol do
    Write&#40;A&#91;i&#93;,' '&#41;;
  WriteLn;
  ReadLn;
end.

выведет: 1 8 11 12 13 20 25

**mancurt** · 09.01.2005 06:34

Теперь в ремиксе

Код:

const
  N = 20; &#123;Кол-во эл-тов в массиве&#125;
  MaxValue = 100; &#123;Наибольшее значение эл-та массива&#125;
type
  TArray = array &#91;1..N&#93; of integer;
var
  i, IndexMinElt, TempIME, Quantity, TempQ &#58; integer;
  VArray &#58; TArray;
begin
  Randomize;
  for i &#58;= 1 to N do VArray&#91;i&#93; &#58;= Random&#40;MaxValue&#41;; &#123;Массив заполняется случайным образом&#125;
  IndexMinElt &#58;= 1; &#123;Индекс первого эл-та в возможной последовательности&#125;
  TempIME &#58;= 1; &#123;TempIndexMinElt&#125;
  Quantity &#58;= 0; &#123;Кол-во эл-тов в возможной последовательности&#125;
  TempQ &#58;= 0; &#123;TempQuatity&#125;
  for i &#58;= 1 to N-1 do
    if VArray&#91;i&#93; <= VArray&#91;i+1&#93;
      then inc&#40;TempQ&#41;
      else begin
        if TempQ > Quantity then begin
          IndexMinElt &#58;= TempIME;
          Quantity &#58;= TempQ;
        end;
        TempIME &#58;= i+1;
        TempQ &#58;= 0;
      end;
  Write&#40;'Array = &#91; '&#41;;
  for i &#58;= 1 to N do Write&#40;VArray&#91;i&#93;,' '&#41;;
  WriteLn&#40;'&#93;'&#41;;
  for i &#58;= IndexMinElt to IndexMinElt+Quantity do
    Write&#40;VArray&#91;i&#93;,' '&#41;;
end.

выводится например такое:

Код:

Array = &#91; 32 55 28 30 9 34 27 65 76 10 87 35 50 21 48 51 55 62 66 0 &#93;
21 48 51 55 62 66

**mancurt** · 09.01.2005 06:50

Furious_Angel, я в эту тему заглянул только потому, что хотел ее закрыть и удалить!
Время у нас сейчас тяжелое, экология плохая, войны, цунами, выборы затянулись, тут еще тема с названием "ХЭЛП! УМОЛЯЮ!"... по которому совсем не понятно, что внутри. Если б она называлась "Нужно написать прогу на паскале" или как-то так... Представь себе, что продается книга за 100 $ с назвой "Как заработать миллион", а внутри написано "написать книгу с названием "Как заработать миллион" продать ее 10 000 дуракам по 100 $" ...
Кароче, я думаю понятно, тему надо менять.
СРОЧНО!!!
:wink:

Яр · 09.01.2005 10:46

mancurt, ;) круть.
мне кажется с двумя структурами красивее, чем с четырьмя переменными :)

а Курсовая какая-то несложная. :) Это какой курс\факультет, если не секрет? :)

**Furious_Angel** · 10.01.2005 00:24

СПАСИБО ЗА ПОМОЩЬ
курс пока что первый ФИТ Мечникова
даже не совсем
я в колледже учусь пока
Просто реально нет времени. НАс завалили по полной программе
по мне так я лучше б с графикой работала

**Furious_Angel** · 10.01.2005 00:29

Всем спасибки за помощь!
Кстати на плюсах мне эт прога тож нужна тк в этом семестре придется учить именно плюсы
Темку можно и поменять..))) Щас попробуем ченить интересненькое придумать

**Lord of rings** · 10.01.2005 13:49

ну и курсовые у вас - на 30 минут. Помню - я учился, у нас такие курсовые были - На Турбо С наваять тетрис или драйвер мышки или ещё чего...

**Furious_Angel** · 11.01.2005 22:38

mancurt, кстати такой вариант проги не учитывает один случай
массив- 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

**mancurt** · 12.01.2005 09:48

Сообщение от Furious_Angel

mancurt, кстати такой вариант проги не учитывает один случай
массив- 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

Я поэтому и задал уточняющий вопрос "что есть НАИБОЛЬШАЯ неубыв последовательность"? Т.е. как эту НАИБОЛЬШЕСТЬ вычислить : по кол-ву эл-тов, по общему знаменателю, по цвету?.. 8)

**Furious_Angel** · 12.01.2005 11:43

наибольшая по колву элементов
но в этом случае как видишь их несколько

**mancurt** · 12.01.2005 12:10

Сообщение от Furious_Angel

наибольшая по колву элементов
но в этом случае как видишь их несколько

Что тогда делать? Выводить все такие последовательности или какую-то ососбенную?

**Furious_Angel** · 12.01.2005 12:19

все такие

**mancurt** · 12.01.2005 12:38

Тогда встречный вопрос, что вы уже прошли по курсу Прогр на Паскале?
Динамические массивы (ака списки n-направленные), реализации стэков...
Это нужно для того, чтоб понять, на каком уровне надо делать прогу. Чтоб не получилось, что работа для первого курса по сложности похожа на диплом 8)

**Furious_Angel** · 12.01.2005 12:42

mancurt, на самом простом тк нам ваще ничегошеньки не объясняли.. паскаль знаю на школьном уровне, ну мож чуточку лучше. те полный примитив

Тема: Помогите! Курсовая на Паскале.

Опции темы

Помогите! Курсовая на Паскале.

Социальные закладки

Социальные закладки

Ваши права