4+4=8, Программа Опции

[Rossi]

При в воде на экрна 4+4 после нажатия на ентер все должно посщитатся и вывести в таком формате 4+4=8.
Правильно ли я реализовал эту программу ?

uses crt;
var a,b,s,c:integer;
	begin
	write('>'); readln(a,c,b);
	write(a);
	s:=a+b;
		case c of
		'+':write('+');
		end;
	write(b);	
	writeln('=',s);
	end.

Сообщение отредактировано: Rossi - 20.06.2007 16:15

[Urnix]

как то программка твоя не коректно работает...

Ты еще не научился? Я больше повторять не буду - я голословные заявления НЕ принимаю! Как значения вводишь, то и получаешь. Больше мне сказать нечего (пока нет примеров ввода вывода)... А как будет пример - я ЕГО же протестирую на ТВОЕЙ программе, договорились? А потом приведу СВОЙ пример некорректной работы ТВОЕЙ программы (заметь, начал ТЫ. )

Ребята вы загнались, и я тоже.

Вот такая фигня вполне будет работать...

var
  s:string;
  val_err:integer;
  a,b:byte;
begin
  write('>');
  readln(s);
  val(s[1],a,val_err);
  val(s[3],b,val_err);
  writeln(s,'=',a+b);
  readln;
end.

А ведь забавно: завести тему и устроить в ней дисскуссию на предмет "как решить в Паскале 4+4", хорошо, хоть не 2+2

Сообщение отредактировано: Urnix - 20.06.2007 17:38

[compiler]

Ребята вы загнались, и я тоже.

я пока не нашел число что б получить не верный результат(если использовать сложение и положительные числа да десяти) жду...

А ведь забавно: завести тему и устроить в ней дисскуссию на предмет "как решить в Паскале 4+4", хорошо, хоть не 2+2

Добавлено через 2 мин.

Воть подумал можно ли модефицировть нашу программку от volva с помощью if и then ?

пишеш

if c='+' then write('+');