Оценка ученика (Оценка)

@wOri · Регистрация: 09.06.2016

Студворк — интернет-сервис помощи студентам

Всем привет, нужна помощь с следующим заданием:
Ученику предлагается решить некоторые арифметиеские выражения(деление, умножение, +, -) и по результатам решения задач оценить ученика. Выражений должно быть не менее 10. Если введённый ответ ученика неверен, вывести правильный ответ. Выражения нужно считывать с файла.
Заранее спасибо=-)

@Puporev · 09.06.2016, 13:53

Например так.

Pascal

var s:string;
    i,p,a,b,c,d,k:integer;
    op:char;
    f:text;
begin
assign(f,'input.txt');
reset(f);
k:=0;
while not eof(f) do
 begin
  readln(f,s);
  writeln(s);
  for i:=2 to length(s)-1 do
  if s[i] in ['+','-','*','/'] then
   begin
    op:=s[i];
    p:=i;
   end;
  a:=strtoint(copy(s,1,p-1));
  b:=strtoint(copy(s,p+1,length(s)));
  case op of
  '+':c:=a+b;
  '-':c:=a-b;
  '*':c:=a*b;
  '/':c:=a div b;
  end;
  write('Введите ответ: ');
  readln(d);
  if d=c then k:=k+1
  else writeln('Неверно, правильный ответ ',c);
 end;
close(f);
writeln('Оценка=',k);
end.

Пример файла input.txt
12+25
3*13
4-2
45-15
21+32
45/15
56/28
12+25
15-9
27/3

@wOri 0 / 0 / 0 Регистрация: 09.06.2016 Сообщений: 5
		1
	Оценка ученика (Оценка) 09.06.2016, 11:13. Показов 4795. Ответов 1 Метки нет (Все метки) Всем привет, нужна помощь с следующим заданием: Ученику предлагается решить некоторые арифметиеские выражения(деление, умножение, +, -) и по результатам решения задач оценить ученика. Выражений должно быть не менее 10. Если введённый ответ ученика неверен, вывести правильный ответ. Выражения нужно считывать с файла. Заранее спасибо=-) 0

	09.06.2016, 13:53

Опции темы

Оценка ученика (Оценка)

Решение