Даны два действительных положительных числа x и y. арифметические действия над числами пронумерованы (1 – сложение, 2 – вычитание, 3 – умножение, 4 – деление составьте программу, которая по введенному номеру выполняет то или иное действие над числами

procedure tform1.button1click(sender: tobject); beginx: =strtoint(edit1.text); y: =strtoint(edit2.text); b: =strtoint(edit3.text); if b=1 then begin z: =x+y; edit4.text: =floattostr(z); end; if b=2 then begin z: =x-y; edit4.text: =floattostr(z); end; if b=3 then begin z: =x*y; edit4.text: =floattostr(z); end; if b=4 then begin z: =x/y; edit4.text: =floattostr(z); end; end; end.

 

 

вроде

Поверхность теплицы - это половина полной поверхности цилиндра радиуса r и высоты c, т.е.(2×π×r×c+2×π×r²)/2 = π×r×(c+r). из нее вычитаем площадь двери a×b и полученную площадь умножаем на количество теплиц n. получаем s=(π×r×(c+r)-а×в)×n a, b, c, r, n - это исходные данные // pascalabc.net 3.2, сборка 1381 от 04.02.2017 begin   var n: =readinteger('количество теплиц: ');   var a,b,c,r: real;   write('введите радиус теплицы и её длину, м: '); read(r,c);   write('введите размеры двери теплицы, м: '); read(a,b);   writeln('потребуется плёнки, м: ',(pi*r*(c+r)-a*b)*n: 0: 2) end. пример количество теплиц: 7 введите радиус теплицы и её длину, м: 3.5 18.4 введите размеры двери теплицы, м: 1.1 1.9 потребуется плёнки, м: 1670.99

Объяснение:

в разделе а) происходит присвоение суммы переменных а и b переменной k, а команда print(c) пытается вывести на экран переменную k, значение которой не определено.

в разделе b) ошибок нет, так как указанный в пункте а) недостаток отсутствует. Может показаться ошибкой разный регистр переменных A, B и С (где-то строчная, где-то прописная), но на самом деле интерпретатору без разницы, он регистр знаков в имени переменных не учитывает, и для него символы А и а в имени переменной одинаковы. Так что пункт b) ошибок не содержит.

в разделе с) значение присваивается переменной с именем age, а команда print пытается вывести на экран переменную ag, значение которой не определено. Ошибка практически идентична ошибке из пункта а)