помогите! я ничего не понимаю! составьте программу! ...
помогите! я ничего не понимаю! составьте программу! Арифметические действия над числами пронумерованы так: 1 – сложение, 2 – вычитание, 3 – умножение, 4 – деление. Дан номер действия n и вещественные числа a, b (b<>0). Выполнить над числами указанное действие и вывести результат. Например, n=2, а=0,40, в=1,00. Результат: а-в=-0,60. Единицы длины пронумерованы так: 1 – дециметр, 2 – километр, 3 – метр, 4 – миллиметр, 5 – сантиметр. Дан номер единицы длины и длина отрезка в этих единицах (вещественное число). Найти длину отрезка в метрах.
Есть ответ
17.12.2022
243
Ответ
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.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022
