Основы программирования и алгоритмические языки

1.Условие задачи:
В массиве T(12) хранится среднемесячная температура для каждого из 12 месяцев в г. Днепропетровске. Определить самую большую отрицательную и самую маленькую положительную температуры.
2. Решение задачи в ее предметной области:
Создадим массив T12, где хранится среднемесячная температура для каждого из 12 месяцев в г. Днепропетровске. Создадим массивы А и В. Из массива Т12 перенесем все отрицательные элементы в массив А, а все положительные элементы в массив В. В массиве А найдем самую большую отрицательную температуру, а в массиве В - самую большую положительную температуру.
3. Проектируем структуры данных (их имена и типы).
Понятно, что все имена массивов с их типами, входящие в условие задачи, нужно описать в программе.Кроме того, нам понадобятся: переменная цикла i , количество отрицательных элементов K olOtric , , количество положительных элементов K olPolozh , самая большая отрицательная температураMax и самая маленькая положительная температура Min и – все типа Integer.
Значит в разделе описаний программы, назовем ее ALENA5 , с учетом требований о необходимости обеспечения легкочитаемости программы и размещения необходимых комментариев, поместим следующие описания:
Type
VectorType= Array[1..12] of integer;
Var
A, {massiv dlya hranenija otric. chisel}
B, {massiv dlya hranenija polozh. chisel}
T12:VectorType; {massiv dlya hraneniya vektora}
i, {parametr cikla}
kolOtric, {kolichestvo otric. elementov}
kolPolozh, {kolichestvo polozhitelnih elementov}
Max, {samaya bol'shaya otric. temper.}
Min:integer; {samaya mal. polozhit. temper}
4. Проводим нисходящую разработку (проектирование) программы методом пошаговой детализации с помощью псевдокода . Воспользуемся результатами для получения первой версии алгоритма:
Ввести данные ALENA5
Выполнить вычисления ALENA5
Вывести результаты ALENA5
С учетом требований к «дружественности» интерфейса, детализация псевдокода Ввести данные ALENA5 дает следующее:
Вывести на экран приглашение для ввода массива T12
Ввести массив T12
Детализация псевдокода Выполнить вычисления ALENA5
дает следующее:
Определить отрицательные элементы T12 и переписать в массив А
Определить положительные элементы T12 и переписать в массив В
Найти наибольший отрицательный элемент массива А или доказать, что его не существует
Найти наименьший положительный элемент массива В или доказать, что его не существует
Детализация псевдокода Вывести результаты ALENA5 дает следующее:
Вывести наибольший отрицательный элемент массива T12
Вывести наименьший положительный элемент массива T12
5. Выполняем структурное программирование с использованием стандартных приемов:
BEGIN
CLRSCR; {ochicshaem ekran}
Writeln('Vvedite 12 elementov vectora T12: ');
for i:=1 to 12 do {organizovivaem cikl po kolichestvu elementov}
begin
Write ( ' T12 [ ' , i , ' ] = ') ; {Udobno videt' nomera elementov}
Readln (T12[i])
end;
Writeln; {Ustanavlivaem kursor na novuju stroku}
{perenosim otric. elementi iz T12 v A }
KolOtric:=0;
for i:=1 to 12 do
If T12[i]0 then
begin
KolPolozh := KolPolozh + 1;
B[KolPolozh] := T12[i];{zanosim po etomu nomeru}
end;
{opredelyaem samuju bol'shuju otric. temperaturu}
if ( KolOtric >= 1 ) then
begin
Max:= A[1]; {Chitaem, chto eto pervij element massiva}
if ( KolOtric > 1 ) then
for i:=2 to KolOtric do {poetomu nachinaem obrabotku so 2-go elementa}
If A[i] > Max then {sravnivaem s tekush. max otric. znach}
Max := A[i]; {zapominaem samoe bol'shoe otric. znach}
Writeln ('samaja bolshuju otric. temperatura Max= ', Max);
end
else
Writeln('Otricatelnyh znacheniy net');
{opredelyaem samuju malen'kuju polozhit. temperaturu}
if ( KolPolozh >= 1 ) then
begin
Min:= B[1]; {Chitaem, chto eto pervij element massiva}
if ( KolPolozh > 1 ) then
for i:=2 to KolPolozh do {poetomu nachinaem obrabotku so 2-go elementa}
If B[i] < Min then {sravnivaem s tekush. min.polozh. znach}
Min := B[i]; {zapominaem samoe maloe polozh. znach}
Writeln ('samaja malaja polozh. temperatura Min= ', Min);
end
else
Writeln('Polozhitelnyh znacheniy net');
{Vividim rezultat}
Readln
End.

Внимание, отключите Adblock

Вы посетили наш сайт со включенным блокировщиком рекламы!
Ссылка для скачивания станет доступной сразу после отключения Adblock!

Скачать полную версию