Напишите программу, которая вычисляет площадь и периметр прямоугольника по длинам двух его сторон
Напишите программу, которая вычисляет площадь и периметр прямоугольника по длинам двух его сторон.
Ответ
program s_p;
var a, b, s, p: real;
begin
write (‘Введите два числа, разделяя их пробелом: ‘ );
read (a, b);
s:=a*b;
writeln (‘Площадь равна ‘, s);
р:=2*(a+b);
writeln (‘Периметр равен’, р);
end.
Ответы по параграфу 3.2 Организация ввода и вывода данных
Учебник по Информатике 8 класс Босова
Как можно объяснить одинаковые результаты выполнения операторов в приведённых ниже примерах?
| Оператор вывода | Результат выполнения оператора |
|---|---|
| write (‘s=’, s:3:1) | s:=15.0 |
| write (‘s=’, s:4:1) | s:=15.0 |
В первом примере у нас само число меньше, чем зарезервированных позиций, поэтому автоматически будет увеличино количество позиций до минимально необходимого. То есть вывод (15.0), здесь четыре позиции, как во втором примере и никаких пробелов не нужно, так как нету свободных позиций.
По этой причине результаты будут одинаковые.
Задание 2. Запишите оператор, обеспечивающий во время работы программы ввод значения переменной summa.
Задание 3. Целочисленным переменным i, j, k нужно присвоить соответственно значения 10, 20 и 30. Запишите оператор ввода, соответствующий входному потоку.
а) 20 10 30
readln (j, i, k);
б) 30 20 10
readln (k, j, i);
в) 10 30 20
readln (i, k, j);
Задание 4. Опишите переменные, необходимые для вычисления площади треугольника по трём его сторонам, и запишите оператор, обеспечивающий ввод необходимых данных.
Формула нахождения площади треугольника по трём его сторонам:
p – полупериметр треугольника (a+b+c)/2
a, b, c – стороны треугольника
S – площадь
Описание переменных:
var a, b, c: real;
Оператор ввода:
readln (a, b, c);
написать программу, еоторая вычесляет площадь и периметр прямоугольника по двум его сторонам
program zz1;
var a, b, S, P:real; // задаем переменные не целого типа
begin
write(‘ введите первую сторону прямоугольника ‘);
read(a);
write(‘ введите вторую сторону прямоугольника ‘);
read(b);
S:= a * b; // вычисляем площадь прямоугольника по известной формуле
P:=(a + b) * 2; // вычисляем периметр прямоугольника по известной формуле
Writeln(‘ Площадь прямоугольника = ‘, S); // выводим один ответ
Writeln(‘ Периметр прямоугольника = ‘, P); // выводим другой ответ
END.