помогите решить! Дана сторона квадрата.Найти его периметр,площадь,длину диагонали.
5-9 класс
|
S=a², P=4a, d=a√2
var S, P, d, a : real;
begin
write('Введите значение а: ');
readln(a);
S := a * a;
P := 4 * a;
d := a * sqrt(2);
writeln('S = ', S, ', P = ', P, ', d = ', d:1:5); // последнее написано для вывода
// 5 знаков после запятой
end.
Другие вопросы из категории
начала набирать текст на 5 минут раньше Маши ?
элементы с чётными значениями на 1. Если элементы с чётными значениями отсутствуют, оставить массив без изменений.
2.Cоставьте программу, которая заполняет массив a [1..10] случайными целыми числами в диапазоне от 1 до 10, затем меняет местами первый элемент со вторым , третий с четвертым и т.д.Выведите на экран исходный и полученный массив .
массива В=0, иначе элемент массива В=1.
Читайте также
значения выражений?
2) Выполнить алгоритм при x=345:
Начало
ввод x
a=x div 100
b=x div 10 mod 10
c=(a+b)/2
вывод a
вывод b
вывод c
конец
3) Что появится на экране после выполнения фрагмента программы:
a:=7;
b:=5;
a:=a-b;
Writeln(b-a*2);
Writeln('a=',a,'b=',b);
4) Дана сторона квадрата, найти его периметр.
5) Дано трёхзначное число. В нём зачеркнули последнюю справа цифру и приписали её в начале. Найти полученное число.
*Задачи 4 и 5 решить на языке программирования, используя математические функции.
1. Дано 2 числа найти модуль разности этих чисел увеличенный в 5 раз.
2. Дано 4 значное число поменять местами 1 и 2 цифру местами
3. Дан диаметр круга найти его площадь (формула S=п*R).
Я примерно знаю как писать но всеровно нуждаюсь в помощи
Мои мысли:
program z1;
uses crt;
var ... : integer;
begin
дальше всё в тумане
буду рад за решённые 1 или 2 задачи