Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   Болталка (https://forum.antichat.xyz/forumdisplay.php?f=46)
-   -   Калькулятор на Borland Pascal (lol) (https://forum.antichat.xyz/showthread.php?t=86252)

TheJahte 26.09.2008 00:01
Калькулятор на Borland Pascal (lol)
 
Можете помочь калькулятор написать на borland pascal ?:D не как не допру.... думаю чтото типа того :

uses crt;
var a,b,c,x: real;
begin
clrscr;

writeln('1 Число'); readln(a);
writeln('Действие'); readln(b);
writeln('2 Число'); readln(c);

x:=('x=',a b c');
readln;
end.

ну никак не могу допереть как сделать чтобы он брал знак (+-*/) из переменной b...


Парюсь после первого же урока :D

буд очень благодарен )))

nilux 26.09.2008 00:21
выведи список действий и считай номер нужного

Dober'man 26.09.2008 00:21
Код:
....
var
z: char;
a, b: real;
begin
write('vvedite znak');
readln(z)
case я of
1: if z = '*' then write(a*b)
2: if я = '/' then ...
3: '+'
4: '-'
end;
......

gisTy 26.09.2008 00:48
Код:
uses crt;
var
z: char;
a, b: real;
label 1;
begin
clrscr;
write('enter FIRST digit: ');  readln(a);
write('enter SECOND digit: '); readln(b);
1:write('enter operation: ');  readln(z);
if (z <> '*') OR (z <> '/') OR (z <> '+') OR (z <> '-') then goto 1;
write('result: ');
if z = '*' then write(a*b);
if z = '/' then write(a/b);
if z = '+' then write(a+b);
if z = '-' then write(a-b);
readln;
end.
ну как-то так.. давно не писал на паскале

TheJahte 26.09.2008 01:27
Простота - залог успеха )))))))0


uses crt;
var a,c,d,x: real;
var b:char;
begin
clrscr;
writeln('1 chislo'); readln(a);
writeln('Dejstvie'); readln(b);
writeln('2 chislo'); readln(c);
if b=('+') then writeln ('Otvet: ',a+c:4:2) else
if b=('*') then writeln ('Otvet: ',a*c:4:2) else
if b=('-') then writeln ('Otvet: ',a-c:4:2) else
if b=('/') then writeln ('Otvet: ',a/c:4:2);
readln;
end.


Время: 17:55