Регистрация Главная Сообщество
Сообщения за день Справка Регистрация

Pascal

-

Школа Читера

- Основы основ - начинаем писать статьи для начинающих с целью создания полноценного раздела

Ответ
 
Опции темы
Старый 10.10.2015, 02:56   #1
 Разведчик
Аватар для Jlcocb
 
Jlcocb никому не известный тип
Регистрация: 09.02.2011
Сообщений: 0
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
Exclamation Pascal

Помогите пожалуйста, нужно написать калькулятор который будет считывать сразу (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.

Последний раз редактировалось Jlcocb; 10.10.2015 в 18:05.
  Ответить с цитированием
Старый 10.10.2015, 03:24   #2
 Главнокомандующий
Аватар для finkrer
 
finkrer сломал счётчик популярности :(finkrer сломал счётчик популярности :(finkrer сломал счётчик популярности :(finkrer сломал счётчик популярности :(finkrer сломал счётчик популярности :(finkrer сломал счётчик популярности :(finkrer сломал счётчик популярности :(finkrer сломал счётчик популярности :(finkrer сломал счётчик популярности :(finkrer сломал счётчик популярности :(finkrer сломал счётчик популярности :(
Регистрация: 11.04.2010
Сообщений: 1,314
Популярность: 100919
Золото Zhyk.Ru: 7
Сказал(а) спасибо: 249
Поблагодарили 1,066 раз(а) в 767 сообщениях
Отправить сообщение для finkrer с помощью ICQ Отправить сообщение для finkrer с помощью Skype™
 
По умолчанию Re: Pascal

Ну вот ты уже все и написал
  Ответить с цитированием
Старый 10.10.2015, 11:36   #3
Почетный Пользователь
 Сержант
Аватар для MembRupt
 
MembRupt сломал счётчик популярности :(MembRupt сломал счётчик популярности :(MembRupt сломал счётчик популярности :(MembRupt сломал счётчик популярности :(MembRupt сломал счётчик популярности :(MembRupt сломал счётчик популярности :(MembRupt сломал счётчик популярности :(MembRupt сломал счётчик популярности :(MembRupt сломал счётчик популярности :(MembRupt сломал счётчик популярности :(MembRupt сломал счётчик популярности :(
Регистрация: 18.07.2013
Сообщений: 148
Популярность: 83981
Сказал(а) спасибо: 564
Поблагодарили 258 раз(а) в 195 сообщениях
 
По умолчанию Re: Pascal

То есть вывод "=результат" сразу после ввода? Возможно сработает, если убрать все "ln" из названий функций (например readln -> read)
  Ответить с цитированием
Старый 10.10.2015, 14:10   #4
 Пехотинец
Аватар для ВезЧубарыйЧуб
 
ВезЧубарыйЧуб сломал счётчик популярности :(ВезЧубарыйЧуб сломал счётчик популярности :(ВезЧубарыйЧуб сломал счётчик популярности :(ВезЧубарыйЧуб сломал счётчик популярности :(ВезЧубарыйЧуб сломал счётчик популярности :(ВезЧубарыйЧуб сломал счётчик популярности :(ВезЧубарыйЧуб сломал счётчик популярности :(ВезЧубарыйЧуб сломал счётчик популярности :(ВезЧубарыйЧуб сломал счётчик популярности :(ВезЧубарыйЧуб сломал счётчик популярности :(ВезЧубарыйЧуб сломал счётчик популярности :(
Регистрация: 01.01.2012
Сообщений: 77
Популярность: 14446
Сказал(а) спасибо: 131
Поблагодарили 61 раз(а) в 41 сообщениях
 
По умолчанию Re: Pascal

Цитата:
убрать все "ln" из названий функций (например readln -> read)

тогда и writeln (a,c,b,'=',rez); заменить на writeln ('=',rez);
  Ответить с цитированием
Старый 10.10.2015, 17:30   #5
Читер ВКонтакте
 Рыцарь
Аватар для ~Керя~
 
~Керя~ сломал счётчик популярности :(~Керя~ сломал счётчик популярности :(~Керя~ сломал счётчик популярности :(~Керя~ сломал счётчик популярности :(~Керя~ сломал счётчик популярности :(~Керя~ сломал счётчик популярности :(~Керя~ сломал счётчик популярности :(~Керя~ сломал счётчик популярности :(~Керя~ сломал счётчик популярности :(~Керя~ сломал счётчик популярности :(~Керя~ сломал счётчик популярности :(
Регистрация: 10.04.2010
Сообщений: 338
Популярность: 67347
Сказал(а) спасибо: 462
Поблагодарили 665 раз(а) в 409 сообщениях
Отправить сообщение для ~Керя~ с помощью ICQ Отправить сообщение для ~Керя~ с помощью Skype™
 
По умолчанию Re: Pascal

Цитата:
Сообщение от MembRuptПосмотреть сообщение
То есть вывод "=результат" сразу после ввода? Возможно сработает, если убрать все "ln" из названий функций (например readln -> read)

Все зависит от того, какой паскаль. Турбо не выдаст, даже если read будет везде. А вот free может спокойно.
  Ответить с цитированием
Старый 10.10.2015, 18:00   #6
 Разведчик
Аватар для Jlcocb
 
Jlcocb никому не известный тип
Регистрация: 09.02.2011
Сообщений: 0
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: Pascal

У меня паскаль ABC нужно что бы он считывал уравнение например как 2*3 или 10+5 что бы он считывал одной строкой, а потом приписывал знак '=' и результат.

Последний раз редактировалось Jlcocb; 10.10.2015 в 18:06.
  Ответить с цитированием
Ответ


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

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

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Pascal Romasha71 Вопросы и ответы, обсуждения 6 05.10.2014 21:36
ХОЛИВАР(С & PASCAL) the-boxi Треп 28 11.12.2012 14:13
[Помогите!] Pascal RamilkO Общение и обсуждение 10 27.12.2011 21:24

Заявление об ответственности / Список мошенников

Часовой пояс GMT +4, время: 06:36.

Пишите нам: [email protected]
Copyright © 2024 vBulletin Solutions, Inc.
Translate: zCarot. Webdesign by DevArt (Fox)
G-gaMe! Team production | Since 2008
Hosted by GShost.net