Пример решения задачи.

Написать программу, которая вводит значения двух любых чисел, выводит на экран сумму, разность, произведение и частное от деления этих чисел. Ввод каждого числа произвести с отдельной строки. Каждый результат также нужно поместить на отдельную строку, пояснив в комментарии, чему соответствует выводимое число.

1. Итак, исходными данными в задаче являются два числа, значения их могут быть лю­быми, поэтому естественно считать, что это вещественные числа. Для хранения зна­чений исходных данных нам понадобятся две переменные вещественного типа, на­зовем их А и В.

2. Сумму чисел можно найти, вычислив выражение А + В.

Разность - вычислив выражение А - В.

Произведение - вычислив выражение А * В.

Частное - вычислив выражение А/В. Значение каждого выражения надо вывести на экран. Алгоритм решения понятен. Обратите внимание на то, что при записи выражений мы использовали имена переменных, а не конкретные значения (свойство массовости). Действительно, алгоритм будет верен для любых двух вещественных чисел.

3. Запишем алгоритм на языке PASCAL.

program PROBA;

VAR

A,B:real;

begin

луп1е1п('введите первое число');

readln(A); i,

ут1е1п('введите второе число');

readln(B);

writeln('A+B=',A+b:7:2);

writelnCA-B^A-b:?^);

writeln('A*B=',A*b:7:2);

writeln('A/B=',A/b:7:2);

end.

Упражнение 8.

1.Выполнить " вручную " следующую программу, описать действие каждого оператора, по­казать, что появится на экране дисплея в результате выполнения программы, если на ее запрос о значениях А и В будут введены числа 10 и 5.

PROGRAM probal;

var

a,b,y,z: integer;

begin

ууп1е1п('введите А,В');

read(a,b);

y^sgi^+b;

z--sc[T(b)+a;

writeln('y=',y; z-',z);

end.

Перечислите использованные в программе идентификаторы. Какие из них используются для исходныхданных, какие для результатов?

2.Есть ли ошибки в следующей программе? Если есть, исправьте их. Program proba2 begin \уп1е1п('введите значение X');

writeln('X в квадрате равен',х*х);

end. var х: integer; ________

Не нашли, что искали? Воспользуйтесь поиском: