1)Присвоить переменным a,b,c значения 10,20,30. 2)Что является результатом выполнения оператора: Write(a) Write('a') Write('a=',a) 3)Каким образом можно вывести на экран число в формате с фиксированной запятой? 4)Дан фрагмент команды a:=10 b:=a+1 a:=b-a write(a,b) Какие числа будут выведены на экран компьютера? 5)Напишите программу которая вычисляет площадь и периметр прямоугольника по двум его сторонам.
1) a = 10, b = 20, c = 30 2) Результат выполнения операторов: Write(a) - выводится значение переменной a (10) Write('a') - выводится буква a Write('a=',a) - выводится строка 'a= 10' 3) Для вывода числа в формате с фиксированной запятой можно использовать функцию WriteLn с указанием формата числа, например: WriteLn(a:0:2) для вывода числа a с двумя знаками после запятой. 4) Числа, которые будут выведены на экран: a = 11 b = 11 5) Программа на языке программирования Pascal:
program RectangleAreaPerimeter; var side1, side2, area, perimeter: real; begin write('Enter the length of the first side: '); readln(side1); write('Enter the length of the second side: '); readln(side2); area := side1 * side2; perimeter := 2 * (side1 + side2); writeln('Area of the rectangle: ', area:0:2); writeln('Perimeter of the rectangle: ', perimeter:0:2); end.
1) a = 10, b = 20, c = 30
program RectangleAreaPerimeter;2) Результат выполнения операторов:
Write(a) - выводится значение переменной a (10)
Write('a') - выводится буква a
Write('a=',a) - выводится строка 'a= 10'
3) Для вывода числа в формате с фиксированной запятой можно использовать функцию WriteLn с указанием формата числа, например: WriteLn(a:0:2) для вывода числа a с двумя знаками после запятой.
4) Числа, которые будут выведены на экран:
a = 11
b = 11
5) Программа на языке программирования Pascal:
var
side1, side2, area, perimeter: real;
begin
write('Enter the length of the first side: ');
readln(side1);
write('Enter the length of the second side: ');
readln(side2);
area := side1 * side2;
perimeter := 2 * (side1 + side2);
writeln('Area of the rectangle: ', area:0:2);
writeln('Perimeter of the rectangle: ', perimeter:0:2);
end.