var x,y:real; a:integer;
begin
writeln('Введите номер :');
readln(a);
case(a) of
1:
begin
writeln('x = ');
readln(x);
writeln('y = ',sin(x) + Power(x,2));
end;
2:
begin
writeln('x = ');
readln(x);
writeln('y = ',sqrt(cos(x)-2*Power(x,3)));
end;
3:
begin
writeln('x = ');
readln(x);
y := Power(x,2);
writeln('y = ',y);
end;
else
Writeln('Под таким номером формулы нет!');
end;
end.
Я еще приведу пример кода на PascalABC.NET так для сравнение
begin
var a:=ReadInteger('Введите номер: ');
case(a) of
1:
begin
var x:=ReadInteger('x = ');
writeln('y = ',sin(x) + Power(x,2));
end;
2:
begin
var x:=ReadInteger('x = ');
writeln('y = ',sqrt(cos(x)-2*Power(x,3)));
end;
3:
begin
var x:=ReadInteger('x = ');
writeln('y = ',Power(x,2));
end;
else
Writeln('Под таким номером формулы нет!');
end;
end.
Ассемблер – <span>программа, которая переводит в машинные коды символьную запись машинных команд</span>
Итак, помогу вам в очередной раз.
Нам необходимо найти формулу, чтобы вычислить значение ячейки D2, которая подходит под данную диаграмму. На самой диаграмме мы видим 2 равных элемента, для начала найдем их среди диапазона ячеек A2:C2.
1) A2 = A1 - B1.
Значение ячеек A1 и B1 смотрим в таблице и делаем так же по аналогии в других случаях
A2 = 4 - 2 = 2
Ячейка A2 равна 2
2) B2 = C1 - D1 = 3 - 1 = 2
И тут мы нашли две равные ячейки, по диаграмме мы видим, что они составляют 50% от общего значения, значит остальное значение равно сумме этих ячеек, то есть 4. Но на оставшейся части диаграммы заметно, что некоторая ее часть больше второй, значит одна часть будет равна 1, а вторая 3. Сейчас нам нужно найти значение ячейки C2, чтобы сделать вывод и найти ответ среди предоставленных вариантов
3) С2 = В1 - 1 = 2 - 1 = 1
Значение ячейки С2 = 1, следовательно значение D2 должно равняться 3. Находим подходящую формулу среди вариантов, чтобы в результате получилось 3.
1 Вариант: A1 - 2 = 4 - 2 = 2 - не подходит.
2 Вариант: А1 - 1 = 4 - 1 = 3 - здесь сразу же мы нашли подходящий вариант, можем дальше не проверять остальные
Ответ: 2)
program se;
uses crt;
var
a,b,n:integer;
begin
writeln('Введите число А: ');
read(a);
writeln('Введите число В: ');
read(b);
writeln('Введите число N: ');
read(n);
if (a > n) and (b > n) then writeln('Больше')else
if (a<n) and (b<n) then writeln('Меньше')else
writeln('В промежутке между А и В');
end.
Блок схему сейчас не могу нарисовать, да и она простейшая.