Помогите! я ничего не понимаю! составьте программу! Арифметические действия над числами пронумерованы так: 1 – сложение, 2 – вычитание, 3 – умножение, 4 – деление. Дан номер действия n и вещественные числа a, b (b<>0). Выполнить над числами указанное действие и вывести результат. Например, n=2, а=0,40, в=1,00. Результат: а-в=-0,60. Единицы длины пронумерованы так: 1 – дециметр, 2 – километр, 3 – метр, 4 – миллиметр, 5 – сантиметр. Дан номер единицы длины и длина отрезка в этих единицах (вещественное число). Найти длину отрезка в метрах.
var
d:integer;
a,b:real;
begin
write(a = ); readln(a);
write(b = ); readln(b);
write(Введите номер операции ); readln(d);
case d of
1: writeln(a, + , b, = , a + b);
2: writeln(a, - , b, = , a - b);
3: writeln(a, * , b, = , a * b);
4: begin
if b <> 0 then
writeln(a, / , b, = , a / b)
else
writeln(делить на 0 нельзя);
end;
else
writeln(Неизвестная операция);
end;
end.
//вторая программа
var
d:integer;
a:real;
begin
write(Длина отрезка = ); readln(a);
write(Введите код единицы измерения ); readln(d);
case d of
1: writeln(Длина отрезка , a / 10, метр(а, ов));
2: writeln(Длина отрезка , a * 1000, метр(а, ов));
3: writeln(Длина отрезка , a, метр(а, ов));
4: writeln(Длина отрезка , a / 1000, метр(а, ов));
5: writeln(Длина отрезка , a / 100, метр(а, ов));
else
writeln(Неизвестная единица длины);
end;
end.
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
