Новые вопросы по информатике
Написать программу, которая выводит на экран результаты следующих действий: 27-5= 11+21= 32/2= 2+2*2= (2+2) * 2= Написать программу, которая выводит на экран результаты следующих действий: 21-4= 21+11= 43/3= 3+3*3= (3+3) * 3=
Вариант 2 1. Даны три числа. Найдите сумму второго и третьего числа. Найдите квадрат первого числа. 2. Даны длины сторон прямоугольника. Найдите площадь прямоугольника. 3. Даны длины катетов прямоугольного треугольника.
Найдите периметр треугольника.
Почему при А=1, В=1, С=1 ответ АVВ равно 1?
2. Какое значение будет иметь переменная b после выполнения следующих операторов присваивания: a:=3; b:=a+9; b:=a+b; b:=a-b+b/a. 3.
Найдите наиболее точное общее имя каждой группе объектов: з) клавиатура, сканер, мышь
Главная » Информатика » 1. Написать программу, которая подсчитывает периметр квадрата, площадь которого равна а. 2. Написать программу, которая подсчитывает площадь равностороннего треугольника, периметр которого равен p
Площадь квадрата. Как найти площадь квадрата?
Источник: iotvet.com
II. Написать программу, которая подсчитывает: 1) периметр квадрата, площадь которого равна а; 2) площадь равностороннего треугольника, периметр которого равен р;
var n, a, s: real;
i: integer;
label 1, 2, 3, 4;
begin
1:
Writeln(‘1)Периметр квадрата’);
Writeln(‘2)Площадь равностороннего треугольника’);
Write(‘Ваш выбор >>> ‘);
Read(n);
Writeln(‘===========================’);
if n = 1 then
begin
2:
Write(‘Введите площадь кварата >>> ‘);
Read(s);
if s < 0 then
begin
Writeln(‘Некорректный ввод’);
Writeln(‘===========================’);
goto 2;
end;
a := Sqrt(s) * 4;
Writeln(‘===========================’);
Writeln(‘Периметр квадрата >>> ‘, a);
goto 4;
end
else
if n = 2 then
begin
3:
Write(‘Введите периметр равностороннего треугольника >>> ‘);
Read(a);
if a < 0 then
begin
Writeln(‘Некорректный ввод’);
Writeln(‘===========================’);
goto 3;
end;
s := (sqrt(3) / 4) * Sqr(a/3);
Writeln(‘===========================’);
Writeln(‘Площадь равностороннего треугольника >>> ‘, s);
goto 4;
end
else
begin
Writeln(‘Некорректный ввод’);
Writeln(‘===========================’);
goto 1;
end;
4:
Writeln(‘===========================’);
Writeln(‘1)Заного’);
Writeln(‘2)Выйти’);
Write(‘Ваш выбор >>> ‘);
Read(n);
Writeln(‘===========================’);
if n = 1 then
goto 1 ;
else
exit;
end.
Источник: uchimsya.com
Урок 1 Ввод и вывод данных в Python
II. Написать программу, которая подсчитывает: 1) периметр квадрата, площадь которого равна а; 2)…
Var n, a, s: real;
i: integer;
label 1, 2, 3, 4;
begin
1:
Writeln(‘1)Периметр квадрата’);
Writeln(‘2)Площадь равностороннего треугольника’);
Write(‘Ваш выбор >>> ‘);
Read(n);
Writeln(‘===========================’);
if n = 1 then
begin
2:
Write(‘Введите площадь кварата >>> ‘);
Read(s);
if s < 0 then
begin
Writeln(‘Некорректный ввод’);
Writeln(‘===========================’);
goto 2;
end;
a := Sqrt(s) * 4;
Writeln(‘===========================’);
Writeln(‘Периметр квадрата >>> ‘, a);
goto 4;
end
else
if n = 2 then
begin
3:
Write(‘Введите периметр равностороннего треугольника >>> ‘);
Read(a);
if a < 0 then
begin
Writeln(‘Некорректный ввод’);
Writeln(‘===========================’);
goto 3;
end;
s := (sqrt(3) / 4) * Sqr(a/3);
Writeln(‘===========================’);
Writeln(‘Площадь равностороннего треугольника >>> ‘, s);
goto 4;
end
else
begin
Writeln(‘Некорректный ввод’);
Writeln(‘===========================’);
goto 1;
end;
4:
Writeln(‘===========================’);
Writeln(‘1)Заного’);
Writeln(‘2)Выйти’);
Write(‘Ваш выбор >>> ‘);
Read(n);
Writeln(‘===========================’);
if n = 1 then
goto 1 ;
else
exit;
end.
Алексей Жидлев Отвечено 1 октября 2019
- ‘ data-html=»true»> Поделиться
- Комментариев (0)
Источник: matfaq.ru