Помогите! я ничего не понимаю! составьте программу! Арифметические действия над числами пронумерованы так: 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.
