Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
Калькулятор на Borland Pascal (lol) |
26.09.2008, 00:01
|
|
Новичок
Регистрация: 28.06.2008
Сообщений: 19
Провел на форуме:
175096
Репутация:
14
|
|
Калькулятор на Borland Pascal (lol)
Можете помочь калькулятор написать на borland pascal ?  не как не допру.... думаю чтото типа того :
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...
Парюсь после первого же урока
буд очень благодарен ))) |
|
|
26.09.2008, 00:21
|
|
Участник форума
Регистрация: 19.08.2005
Сообщений: 132
Провел на форуме:
1387194
Репутация:
121
|
|
выведи список действий и считай номер нужного
|
|
|
|
26.09.2008, 00:21
|
|
Banned
Регистрация: 16.07.2007
Сообщений: 79
Провел на форуме:
801879
Репутация:
337
|
|
Код:
....
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;
......
|
|
|
|
26.09.2008, 00:48
|
|
Постоянный
Регистрация: 24.05.2008
Сообщений: 589
Провел на форуме:
3629857
Репутация:
504
|
|
Код:
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.
ну как-то так.. давно не писал на паскале
Последний раз редактировалось gisTy; 26.09.2008 в 00:57..
|
|
|
|
26.09.2008, 01:27
|
|
Новичок
Регистрация: 28.06.2008
Сообщений: 19
Провел на форуме:
175096
Репутация:
14
|
|
Простота - залог успеха )))))))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.
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
