Практическая №1 ( задача на ветвление) Какой координатной четверти принадлежит точка? Координаты точки ввести с клавиатуры. (решить с языка блок-схем и алгоритмического языка, а также проверить решение трассировочной таблицей)
Program Lana132; uses crt; const n=10; var i,ch,max,min,sum:integer; begin writeln('*** Alphaeus is thinking... ***'); writeln('*** OK ***'); writeln(); writeln(); writeln('Программа запрашивает N чисел, находит их сумму, максимальное и минимальное число'); sum:=0; write('Введите 1-e число: '); read(ch); sum:=sum+ch; max:=ch; min:=ch; for i:=2 to n do begin write('Введите ',i,'-e число: '); read(ch); sum:=sum+ch; if max<ch then max:=ch; if min>ch then min:=ch; end; writeln('Сумма всех чисел равна ',sum); writeln('Максимальное число равно ',max); writeln('Минимальное число равно ',min); end.
Описание N-константа(столбцы) M-константа(строки) объявляем массив "А" из (1..N,1..M) элементов k,i,z-целые числа х-вещественное объявляем массив "Б" из (1..N) элементов начало для i от 1 до N делай для k от 1 до М делай начало считай (х) А(i,k)=х конец х=А(1,1) z=1 для i от 1 до М делай если М целочисленое деление на 2=0 тогда начало начало для k от 1 до N делай если А(i,k)<х тогда начало Б(z)=A(i,k) Z=z+1 конец если z=21 то для K от 1 до N делай А(i,k)=Б(k) конец z=1 конец для i от 1 до N делай для k от 1 до М делай начало вывести А(i,k)=х конец конец программы
вроде так, орфография и язык плохо похож на псевдокод))) короче если бы был Pascal, то реализовывать надо было бы так)) просто попробовал перевести на псевдокод)) исправь если что-то не так)))
uses crt;
const n=10;
var
i,ch,max,min,sum:integer;
begin
writeln('*** Alphaeus is thinking... ***');
writeln('*** OK ***');
writeln(); writeln();
writeln('Программа запрашивает N чисел, находит их сумму, максимальное и минимальное число');
sum:=0;
write('Введите 1-e число: '); read(ch);
sum:=sum+ch;
max:=ch; min:=ch;
for i:=2 to n do
begin
write('Введите ',i,'-e число: '); read(ch);
sum:=sum+ch;
if max<ch then max:=ch;
if min>ch then min:=ch;
end;
writeln('Сумма всех чисел равна ',sum);
writeln('Максимальное число равно ',max);
writeln('Минимальное число равно ',min);
end.