задача на Pascal
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
задача на Pascal - 2008-12-20 14:48:16.736666
|
|
|
kolakot11111
Сообщений: 60
Оценки: 0
Присоединился: 2008-12-15 16:39:58.646666
|
а хочу сделать калькулятор на паскале:
первое надобыло вводит 1 число
потом знак (*) или ( /) или (-) или (+)
и потом второе число
короче калькулятор
помогите
|
|
|
|
|
RE: задача на Pascal - 2008-12-20 14:53:20.736666
|
|
|
kolakot11111
Сообщений: 60
Оценки: 0
Присоединился: 2008-12-15 16:39:58.646666
|
var
m,b,v,c,f,d,l,g,n,x,y,o:
string ;
begin
write ('ââåäèòå ÷èñëî');
readln (x) ;
write ('ââåäèòå âòîðîå ÷èñëî') ;
readln (y);
write ('ââåäèòå çíàê');
f:='*';
d:='/';
l:='+';
g:='-';
m:='x*y';
b:='x/y';
v:='x-y';
c:='x+y';
writeln ('ó âàñ ïîëó÷èëîñü')
end.
|
|
|
|
|
RE: задача на Pascal - 2008-12-20 14:54:23.050000
|
|
|
[Macintosh]
Сообщений: 58
Оценки: 0
Присоединился: 2008-12-08 15:27:40.173333
|
Вот скачай и посмотри алгоритм программы так легче будет разбираться
|
|
|
|
|
RE: задача на Pascal - 2008-12-20 14:56:01.253333
|
|
|
kolakot11111
Сообщений: 60
Оценки: 0
Присоединился: 2008-12-15 16:39:58.646666
|
Вот как я зделал тока неполучается
var
m,b,v,c,f,d,l,g,n,x,y,o:
string ;
begin
write ('введите число');
readln (x) ;
write ('введите второе число') ;
readln (y);
write ('введите знак');
f:='*';
d:='/';
l:='+';
g:='-';
m:='x*y';
b:='x/y';
v:='x-y';
c:='x+y';
writeln ('у вас получилось')
end.
|
|
|
|
|
RE: задача на Pascal - 2008-12-20 14:56:12.220000
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Ты сам с собой разговариваешь? ;) Ты построчно сможешь объяснить, что ты делал?
По теме - http://ru.wikipedia.org/wiki/Обратная_польская_запись
|
|
|
|
|
RE: задача на Pascal - 2008-12-20 16:40:38.130000
|
|
|
Мимо_шел
Сообщений: 11
Оценки: 0
Присоединился: 2008-12-20 16:08:44.566666
|
Почему переменным m,b,v,c,f,d,l,g,n,x,y,o -даешь значение стринг?) туда же будут вводится цЫфрЫ, и для двух чисел хватит две переменные x,y.( со значенеим real)
далее нужно воспользоваться оператором case (выбор знаков), перед этим добавив переменную g со значением char.
вот собственно сама програмка:
program xx2;
var x,y:real
g:char;
begin
writeln ('x,y=');
readln (x,y);
writeln ('введите знак операции: ');
readln (g);
case g of
'+' :z:=x+y;
'-' :z:=x-y;
'*' :z:x*y';
'/' :z:x/y;
end;
writeln ('результат',z:6:2);
readln;
end.
Вот както так)
|
|
|
|
|
RE: задача на Pascal - 2008-12-20 16:47:20.986666
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Это пошло… неужели нельзя человеческий ввод вида 55 + 7 сделать?
|
|
|
|
|
RE: задача на Pascal - 2008-12-20 16:50:01.940000
|
|
|
Мимо_шел
Сообщений: 11
Оценки: 0
Присоединился: 2008-12-20 16:08:44.566666
|
и еще все также програмка без оператора case)) (замарочился не много))
program xxx
var a,b,c,d:real;
begin
writeln ('введите первое число')
readln (a);
writeln ('выберете знак операции');
writeln ('1.+');
writeln ('2.-');
writeln ('3.*');
writeln ('4./');
readln ©;
if c>4 then writeln ('такого знака нет'); // -програма все равно будет продолжать вычесление
writeln ('введите второе число);
readln (b);
if c:=1 then d:=a+b;
if c:=2 then d:=a-b;
if c:=3 then d:=a*b ;
if c:=4 then d:=a/b;
writeln (d);
readln;
end.
|
|
|
|
|
RE: задача на Pascal - 2008-12-20 16:55:28.440000
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
http://torrents.ru/forum/viewtopic.php?t=1131601 - читать автору. Я годиков в 5 эту книгу прочитал. Думаю автору она откроет свет на устройство ПК. Правда технологии там не совсем современные, но тем не менее.
P.S. Есть такая модная функция в паскале - readkey называется.
P.P.S. выше я дал ссылку про польскую запись. Там хоть со скобками, синусами, степенями и пр. лабудой введи выражение - подсчитает правильно.
|
|
|
|
|
|
