PASCAL ABC. Найти значение любого выражения из двух слагаемых!!! т.е. просто
PASCAL ABC. Отыскать значение любого выражения из 2-ух слагаемых!!! т.е. просто чтобы посчитало, к примеру: 2+2=4, 9/3=3, 7*7=49, 15-5=10
Задать свой вопрос
Альбина Малаханова
Программу написать?
Регина Алимбарова
Либо просто на языке паскаль
2 ответа
Aleksej Baglev
Var s,s1:string; a,b,code,i:integer; z:char;
begin
writeln('Введите выражение:');
readln(s);
s1:=''; i:=1;
while not (s[i] in ['+','-','*','/']) do
begin
s1:=s1+s[i]; i:=i+1;
end;
val(s1,a,code);
z:=s[i];
s1:=''; i:=i+1;
while s[i] lt;gt; '=' do
begin
s1:=s1+s[i]; i:=i+1;
end;
val(s1,b,code);
case z of
'+' : writeln(s,a+b);
'-' : writeln(s,a-b);
'*' : writeln(s,a*b);
'/' : writeln(s,a/b);
end;
end.
Пример:
Введите выражение:
15-5=
15-5=10
begin
writeln('Введите выражение:');
readln(s);
s1:=''; i:=1;
while not (s[i] in ['+','-','*','/']) do
begin
s1:=s1+s[i]; i:=i+1;
end;
val(s1,a,code);
z:=s[i];
s1:=''; i:=i+1;
while s[i] lt;gt; '=' do
begin
s1:=s1+s[i]; i:=i+1;
end;
val(s1,b,code);
case z of
'+' : writeln(s,a+b);
'-' : writeln(s,a-b);
'*' : writeln(s,a*b);
'/' : writeln(s,a/b);
end;
end.
Пример:
Введите выражение:
15-5=
15-5=10
Андрей
Var
x,y,v:real;
b:string;
begin
writeln('Vvedite znak virajeniya (+, -, *, /)');
readln(b);
writeln('Vvedite pervoe chislo');
readln(x);
writeln('Vvedite vtoroe chislo');
readln(y);
if b = '+' then v:=x+y;
if b = '-' then v:=x-y;
if b = '*' then v:=x*y;
if b = '/' then v:=x/y;
writeln(x, ' ', b, ' ', y, ' = ', v);
end.
x,y,v:real;
b:string;
begin
writeln('Vvedite znak virajeniya (+, -, *, /)');
readln(b);
writeln('Vvedite pervoe chislo');
readln(x);
writeln('Vvedite vtoroe chislo');
readln(y);
if b = '+' then v:=x+y;
if b = '-' then v:=x-y;
if b = '*' then v:=x*y;
if b = '/' then v:=x/y;
writeln(x, ' ', b, ' ', y, ' = ', v);
end.
Аделина
мне нужно чтобы был ввод примера и его значение
Юрок Соинский
Хорошо, на данный момент переделаю
Николай Четырбоцкий
буду благодарен, большая программка должна получиться
Маргарита
Изменил решение, вышел простой калькулятор :D
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Облако тегов