В программе вычисляется площадь и периметр прямоугольника.
Program S_P
var
a , b : real;
begin
writeln('Введите сторону a прямоугольника');
readln(a);
writeln('Введите сторону b прямоугольника');
readln(b);
writeln('a=',a,' b=',b:6:4);
writeln('Площадь =',a*b:6:1);
writeln('Периметр =',2*(a+b):3);
end.
Program-начало программы. S_P - название программы. var - раздел описания переменных. a , b :real - переменные а и b действительного типа. begin - начало программы. writeln - оператор вывода.('Введите сторону a прямоугольника') - список вывода, то что выведется на экран. readln - список вывода. (a) - список ввода,с клавиатуры введем число. writeln - оператор вывода. ('Введите сторону b прямоугольника') -список вывода, то что выведется на экран. readln - список вывода. (b) - список ввода,с клавиатуры введем число. writeln - оператор вывода.('a=',a,' b=',b:6:4) - сптсок вывода, на экран выведется то чему мы задали а и b.b:6:4 - означает что в числе всего 6 цифр,из которых после запятой 4. writeln - оператор вывода. ('Площадь =',a*b:6:1) - список вывода,на экране появится посчитанная площадь. writeln - оператор вывода.('Периметр =',2*(a+b):3) - список вывода,на экране появится посчитанный периметр. end - конец программы.
Лично я считаю, что сама программа которую я нашла, составлена немного неверно.Я бы еще ввела переменные S и P. Но наверное люди которые выкладывали ее в интернет знают что делают)))
Анна, с программой все в порядке, просто народ не захотел описывать лишние переменные :)
ОтветитьУдалитьВ вашем описании есть небольшой недочет: "readln - список ВЫВОДА. (b) - список ввода,с клавиатуры введем число." Сначала у вас вывод, а потом - ввод...