Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Pascal
Перезагрузить страницу Помогите начинающему.
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
bibiken bibiken вне форума
Новичок
 
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 10.10.2015
Smile Помогите начинающему. - 10.10.2015, 02:49

Тут такое дело, как написать калькулятор который будет считывать уравнение например (2+3) при этом что бы он только ставил = и результат, то есть что бы он считывал цифры функцию и вторую цифру сразу в одной строчке.Ломал голову и не как не смог сам написать.Спасибо заранее.Вот что смог.
program z4;
USES graphabc;
var a,b:integer;
rez:real;
c:char;
begin
readln(a);
readln(c);
readln(b);
case c of
'+': rez:=a+b;
'-': rez:=a-b;
'*': rez:=a*b;
'/': rez:=a/b;
end;
writeln (a,c,b,'=',rez);
end.
Ответить с цитированием
  (#2 (permalink)) Старый
Egorro Egorro вне форума
Специалист
 
Аватар для Egorro
 
Сообщений: 13,078
Сказал(а) спасибо: 402
Поблагодарили 2,129 раз(а) в 2,056 сообщениях
Регистрация: 06.01.2011
Адрес: Чубаксары
По умолчанию 10.10.2015, 10:42

Как я помню, надо вместо readln (a) использовать что-то типа
pascal Код:
repeat
  a:=readkey;
until a in ['0'..'9'];
write (a);
Для знаков вместо '0'..'9' перечисление через запятую
Ответить с цитированием
  (#3 (permalink)) Старый
bibiken bibiken вне форума
Новичок
 
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 10.10.2015
По умолчанию 10.10.2015, 18:01

что перечислить через запятую?
Ответить с цитированием
  (#4 (permalink)) Старый
Egorro Egorro вне форума
Специалист
 
Аватар для Egorro
 
Сообщений: 13,078
Сказал(а) спасибо: 402
Поблагодарили 2,129 раз(а) в 2,056 сообщениях
Регистрация: 06.01.2011
Адрес: Чубаксары
По умолчанию 10.10.2015, 23:47

Цитата:
Сообщение от bibiken Посмотреть сообщение
что перечислить через запятую?
Какие знаки вводиться должны, наподобие
pascal Код:
until c in ['+', '-', '*', '/']
Ответить с цитированием
  (#5 (permalink)) Старый
bibiken bibiken вне форума
Новичок
 
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 10.10.2015
По умолчанию 11.10.2015, 12:48

Нашел, помогли в другом месте, вот если кому еще вдруг понадобится.
var s,sa,sb:string;
z:char;
a,b,pr,k:integer;
begin
write('Введите пример >> ');
readln(s);
pr:=pos(' ',s);
while pr <> 0 do
begin
delete(s,pr,1);
pr:=pos(' ',s);
end;
if pos('+',s) <> 0 then z:='+'
else if pos('-',s) <> 0 then z:='-'
else if pos('*',s) <> 0 then z:='*'
else if pos('/',s) <> 0 then z:='/';
sa:=copy(s,1,pos(z,s)-1);
sb:=copy(s,pos(z,s)+1,length(s));
val(sa,a,k);
val(sb,b,k);
case z of
'+' : writeln(a,' + ',b,' = ',a+b);
'-' : writeln(a,' - ',b,' = ',a-b);
'*' : writeln(a,' * ',b,' = ',a*b);
'/' : writeln(a,' / ',b,' = ',a/b);
else writeln('Не верная операция');
end;
end.
Ответить с цитированием
Ads.
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите начинающему abzdoliz Delphi 0 26.01.2014 14:45
помогите начинающему с Pascal bundesteam01 Задания за деньги 2 04.12.2012 10:28
Помогите начинающему Weel12 Задания за деньги 4 30.10.2012 20:51
Помогите начинающему bossik93 Visual C++ 2 06.01.2012 12:45
Помогите советом начинающему Ben Wade Вопросы начинающих программистов 4 09.10.2011 08:38
Помогите начинающему в ООП нп ПХП 5.1.5 wetlook PHP 3 26.10.2006 02:35
Помогите начинающему программисту Bahr Visual Basic 7 31.03.2006 21:36
Помогите начинающему Lesnik Visual Basic 17 11.02.2006 14:54
Помогите пожалуйста начинающему! ED_new Visual Basic 5 23.12.2005 03:55
Помогите начинающему! Scuby-du PHP 11 16.09.2003 20:09



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов