IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

2 страниц V < 1 2  
 Ответить  Открыть новую тему 
> 4+4=8, Программа
сообщение
Сообщение #21


Человек
*****

Группа: Пользователи
Сообщений: 1 050
Пол: Мужской
Реальное имя: Станислав

Репутация: -  3  +


я тестировал твою программу с пробелами(как было сказано в 9 посте)...
Цитата(volvo @ 20.06.2007 17:50) *
не работает... да и не только
вторая причина не есть причина по которой она не работает... возможность редактирования может и хорошо, но необезательна(см. заданее)...

думаю тема закрыта... четыре сложили с четырьмя smile.gif


--------------------
Спасибо!
Удачи!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #22


Профи
****

Группа: Пользователи
Сообщений: 705
Пол: Мужской

Репутация: -  20  +


Вот так я думаю вернее будет yes2.gif
var s:string;
begin
write ('>');
readln (s);
while pos (' ',s)>0 do delete (s,pos(' ',s),1);
if s='4+4' then writeln ('4 + 4 = ', 4+4) else
writeln ('Введенные данные не соответствуют заданию..');
end.

lol.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #23


Fanat
***

Группа: Пользователи
Сообщений: 261
Пол: Мужской
Реальное имя: Сергей

Репутация: -  5  +


Извините,не удержался...
Malice,тогда проверить ещё не мешало бы, что 4+4=8... respect2.gif ...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #24


Гость






Народ воть я и доработал калькулятор терь он умнажает че хош кароче делает )))
Мне не много помог преподовтель мой ^_^.
Как вам реализация ???
program cal;
uses crt;
var
code:integer;
sa,sb,s:string;
f,a,b:real;
c:byte;
begin
textcolor(2);
clrscr;

write('>');
readln(s);
if pos('+',s)<>0 then c:=pos('+',s);
if pos('-',s)<>0 then c:=pos('-',s);
if pos('*',s)<>0 then c:=pos('*',s);
if pos('/',s)<>0 then c:=pos('/',s);

sa:=copy(s,1,c-1);
sb:=copy(s,c+1,length(s)-c);

val(sa,a,code);
val(sb,b,code);

write(sa);

case s[c] of
'+':f:=a+b;
'-':f:=a-b;
'*':f:=a*b;
'/':f:=a/b;
end;
writeln(s[c],sb,'=',f:1:2);
readkey;
end.



Сообщение отредактировано: Rossi -
 К началу страницы 
+ Ответить 

2 страниц V < 1 2
 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 2.10.2020 2:44
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name