II. Написать программку, которая подсчитывает: 1) периметр квадрата, площадь которого равна
II. Написать программку, которая подсчитывает: 1) периметр квадрата, площадь которого одинакова а; 2) площадь равностороннего треугольника, периметр которого равен р;
Задать свой вопрос
Диман Логанов
Напишите пожалуйста на языке Паскаля.
1 ответ
Лункова Ева
Var n, a, s: real;
i: integer;
label 1, 2, 3, 4;
begin
1:
Writeln('1)Периметр квадрата');
Writeln('2)Площадь равностороннего треугольника');
Write('Ваш выбор gt;gt;gt; ');
Read(n);
Writeln('===========================');
if n = 1 then
begin
2:
Write('Введите площадь кварата gt;gt;gt; ');
Read(s);
if s lt; 0 then
begin
Writeln('Неправильный ввод');
Writeln('===========================');
goto 2;
end;
a := Sqrt(s) * 4;
Writeln('===========================');
Writeln('Периметр квадрата gt;gt;gt; ', a);
goto 4;
end
else
if n = 2 then
begin
3:
Write('Введите периметр равностороннего треугольника gt;gt;gt; ');
Read(a);
if a lt; 0 then
begin
Writeln('Некорректный ввод');
Writeln('===========================');
goto 3;
end;
s := (sqrt(3) / 4) * Sqr(a/3);
Writeln('===========================');
Writeln('Площадь равностороннего треугольника gt;gt;gt; ', s);
goto 4;
end
else
begin
Writeln('Некорректный ввод');
Writeln('===========================');
goto 1;
end;
4:
Writeln('===========================');
Writeln('1)По-новому');
Writeln('2)Выйти');
Write('Ваш выбор gt;gt;gt; ');
Read(n);
Writeln('===========================');
if n = 1 then
goto 1 ;
else
exit;
end.
i: integer;
label 1, 2, 3, 4;
begin
1:
Writeln('1)Периметр квадрата');
Writeln('2)Площадь равностороннего треугольника');
Write('Ваш выбор gt;gt;gt; ');
Read(n);
Writeln('===========================');
if n = 1 then
begin
2:
Write('Введите площадь кварата gt;gt;gt; ');
Read(s);
if s lt; 0 then
begin
Writeln('Неправильный ввод');
Writeln('===========================');
goto 2;
end;
a := Sqrt(s) * 4;
Writeln('===========================');
Writeln('Периметр квадрата gt;gt;gt; ', a);
goto 4;
end
else
if n = 2 then
begin
3:
Write('Введите периметр равностороннего треугольника gt;gt;gt; ');
Read(a);
if a lt; 0 then
begin
Writeln('Некорректный ввод');
Writeln('===========================');
goto 3;
end;
s := (sqrt(3) / 4) * Sqr(a/3);
Writeln('===========================');
Writeln('Площадь равностороннего треугольника gt;gt;gt; ', s);
goto 4;
end
else
begin
Writeln('Некорректный ввод');
Writeln('===========================');
goto 1;
end;
4:
Writeln('===========================');
Writeln('1)По-новому');
Writeln('2)Выйти');
Write('Ваш выбор gt;gt;gt; ');
Read(n);
Writeln('===========================');
if n = 1 then
goto 1 ;
else
exit;
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
Облако тегов