Задача 1.1.Paskal.ABC.net
Создайте программу для вычисления следующих выражений: A:=A+B*C B:=2*C C:=A-B A:=A+B+C, если A:=1, B:=5, C:=10. • При вводе данных оператор read не использовать! • Наберите программу по правилам языка программирования с выводом: writeln(‘Исходные данные’); writeln(‘A=’,A); writeln(‘B=’,B); writeln(‘C=’,C); writeln; writeln(‘Результаты вычисления’); • При выводе на экран значений A, B, C должны быть выведены и формулы.
Ответы
Ответ:
program CalculateABC;
var
A, B, C: Integer;
begin
A := 1;
B := 5;
C := 10;
writeln('Исходные данные');
writeln('A=', A);
writeln('B=', B);
writeln('C=', C);
writeln;
A := A + B * C;
B := 2 * C;
C := A - B;
A := A + B + C;
writeln('Результаты вычисления');
writeln('A=A+B*C=', A);
writeln('B=2*C=', B);
writeln('C=A-B=', C);
writeln('A=A+B+C=', A);
end.
Объяснение:
program Calculation;
var
A, B, C: Integer;
begin
A := 1;
B := 5;
C := 10;
writeln('Исходные данные:');
writeln('A = ', A);
writeln('B = ', B);
writeln('C = ', C);
writeln;
A := A + B * C;
writeln('A := A + B * C = ', A);
B := 2 * C;
writeln('B := 2 * C = ', B);
C := A - B;
writeln('C := A - B = ', C);
A := A + B + C;
writeln('A := A + B + C = ', A);
writeln;
writeln('Результаты вычисления:');
writeln('A = ', A);
writeln('B = ', B);
writeln('C = ', C);
end.