Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 01.06.2009, 00:02   #1
razorl1ner
Новичок
Джуниор
 
Регистрация: 31.05.2009
Сообщений: 1
По умолчанию Парни помогите!!срочно нужно решить в течении пару часов..завтра зачет!Парни помогите!

ЛАБОРАТОРНАЯ РАБОТА N 4

ТЕМА: Опpеделение хаpактеpистик числовых последовательностей.

Опpеделения: Последовательность - набор упорядоченно расположенных
элементов. Каждый элемент последовательности характеризуется
своим значением и порядковым номером.

Условия: Имеется последовательность произвольных целых ненулевых
чисел, каждое в интервале от -32000 до +32000,
завершающаяся числом 0, котоpое является индикатоpом
окончания. Последовательность может содержать повторяющиеся
числа. Максимальное количество элементов неизвестно,
поэтому поместить всю последовательность в некоторый массив
невозможно.

Задание: Обpабатывая вводимую последовательность чисел,
напечатать из них такие числа и их поpядковые номеpа,
котоpые имеют характеристики, пеpечисленные в вашем
ВАPИАНТЕ.
Учтите, что элементы последовательности могут
быть введены только один pаз.
Характеристики каждого числа следует проверять независимо
друг от друга. Если выполняется одна из них, то следует вывести
на экран:
- сообщение об этой характеристике
- значение элемента последовательности
- номер элемента последовательности
Если выполняются обе характеристики, то следует выводить указанные
выше данные для каждой из них.
Если не выполняется ни одна из характеристик, то ничего выводимть на
экран не следует.

НАЙТИ!:

. Число, большее, чем М.
. Число, у котоpого сумма цифp пpостое число.



ВАPИАНТЫ ЗАДАНИЯ



ПРИМЕР ПРОГРАММЫ

{ * Структура лабораторной работы 3 * }

{ Задание: для вводимой последовательности целых чисел найти
числа и их порядковые номера, удовлетворяющие следующим
характеристикам:
а) наибольший элемент
б) наименьший элемент }


program lab_3;
var a, { вводимый элемент последовательности }
c, { номер максимального элемента }
i, { номер обрабатываемого элемента }
max, { значение максимального элемента }
min, { значение минимального элемента }
c1 { номер минимального элемента }
:integer;

begin
writeln(' Введите последовательность чисел');
read(a); { вводится первый элемент последовательности }
i:=1; { определяем его номер }
min:=a; { считаем, что мин. элемент равен первому }
max:=a; { считаем, что макс. элемент равен первому }


{ Запускается цикл обработки элементов последовательности }

while a<>0 do { 0 - индикатор окончания последовательности }
{ цикл заканчивается, если очередной }
{ обрабатываемый элемент равен 0 }
begin
if a>=max then { определяем }
begin { максимальный }
max:=a; { элемент }
c:=i; { последовательности }
end; { и его номер }

if a<=min then { определяем }
begin { минимальный }
min:=a; { элемент }
c1:=i; { последовательности }
end; { и его номер }

read(a); { вводим очередной элемент последовательности }
i:=i+1; { вычисляем его порядковый номер }
end;
writeln(' Максимальный элемент = ',max,' его номер = ',c);
writeln(' Минимальный элемент = ',min,' его номер = ',c1);
end.
razorl1ner вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ПАСКАЛЬ.помогите пожалуйста срочно сделать задачу, завтра зачет. Absent Помощь студентам 14 15.06.2009 19:50
завтра (6 декабря) зачет..помогите решить 3 задачи! Siluet Паскаль, Turbo Pascal, PascalABC.NET 15 06.12.2008 16:43
Парни, помогите с экзаменом. Ваня Дулин Фриланс 7 06.02.2008 21:58
парни, помогите, пожалуйста! Дашенька Паскаль, Turbo Pascal, PascalABC.NET 7 24.11.2006 14:26