Написать программу, которая бы по введенному номеру единицы измерения (1 — дециметр, 2 — километр, 3 — метр, 4 — миллиметр,
199
432
Ответы на вопрос:
program name;
uses crt;
var
l,x,result:real;
begin
write('Длина отрезка: ');
readln(l);
write('Еденица измерения введеных вами данных. Где, 1 — дециметр; 2 — километр; 3 — метр; 4 — миллиметр; 5 — сантиметр). ');
readln(x);
if x=1 then result:=l/10;
if x=2 then result:=l*1000;
if x=3 then result:=l;
if x=4 then result:=l/1000;
if x=5 then result:=l/100;
write('Соответствующая длина отрезка: ', result, 'м.');
end.
uses crt;
var
l,x,result:real;
begin
write('Длина отрезка: ');
readln(l);
write('Еденица измерения введеных вами данных. Где, 1 — дециметр; 2 — километр; 3 — метр; 4 — миллиметр; 5 — сантиметр). ');
readln(x);
if x=1 then result:=l/10;
if x=2 then result:=l*1000;
if x=3 then result:=l;
if x=4 then result:=l/1000;
if x=5 then result:=l/100;
write('Соответствующая длина отрезка: ', result, 'м.');
end.
Var
l: Real;
i: Byte;
BEGIN
Write('Введите значение: ');
Readln(l);
Write('Введите номер измерения (1-5): ');
Readln(i);
Case i of
1: Writeln(l:5:2,'дм = ',l/10:5:2,'м');
2: Writeln(l:5:2,'км = ',l*1000:5:2,'м');
3: Writeln(l:5:2,'м = ',l:5:2,'м');
4: Writeln(l:5:2,'мм = ',l/1000:10:10,'м');
5: Writeln(l:5:2,'см = ',l/100:5:2,'м');
Else Writeln('Неверный ввод');
end;
Readln
END.
l: Real;
i: Byte;
BEGIN
Write('Введите значение: ');
Readln(l);
Write('Введите номер измерения (1-5): ');
Readln(i);
Case i of
1: Writeln(l:5:2,'дм = ',l/10:5:2,'м');
2: Writeln(l:5:2,'км = ',l*1000:5:2,'м');
3: Writeln(l:5:2,'м = ',l:5:2,'м');
4: Writeln(l:5:2,'мм = ',l/1000:10:10,'м');
5: Writeln(l:5:2,'см = ',l/100:5:2,'м');
Else Writeln('Неверный ввод');
end;
Readln
END.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Другие предметы
-
DanilGrushin114.03.2021 00:39
-
707778809.11.2020 11:38
-
reginaarslanov29.09.2020 04:46
-
маргарита0000000025.02.2022 19:07
-
Бетти200426.05.2021 15:15
-
2156kolllokir27.12.2020 18:13
-
NikoYuqa114.04.2021 20:13
-
panaitov022111.01.2021 11:21
-
sashaorlov200618.12.2021 21:05
-
pavelakur30.04.2021 20:33
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.