Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.91/11: Рейтинг темы: голосов - 11, средняя оценка - 4.91
0 / 0 / 0
Регистрация: 09.06.2016
Сообщений: 5
1

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

09.06.2016, 11:13. Просмотров 2120. Ответов 1
Метки нет (Все метки)

Всем привет, нужна помощь с следующим заданием:
Ученику предлагается решить некоторые арифметиеские выражения(деление, умножение, +, -) и по результатам решения задач оценить ученика. Выражений должно быть не менее 10. Если введённый ответ ученика неверен, вывести правильный ответ. Выражения нужно считывать с файла.
Заранее спасибо=-)
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.06.2016, 11:13
Ответы с готовыми решениями:

Фамилия ученика,рост,оценка за 3 занятия. а) средняя оценка по каждому предмету общего класса б) самая длинная и самая
Фамилия ученика,рост,оценка за 3 занятия. а) средняя оценка по каждому предмету общего класса б)...

Оценка сложности алгоритма
Есть пример по оценке сложности,весть гугл перерыл уже,но примеров как делать такую оценку не...

Оператор множественного выбора: оценка за тест из 15 вопросов
Составить программу, которая определяет оценку за тест из 15 вопросов, если вводится количество...

Оценка количества кирпичей, необходимых для строительства дома
Задание 1. Дом строят из кирпичей размером 250х120х65 мм, кирпичи кладут длинной стороной вдоль...

1
Модератор
61673 / 46169 / 31856
Регистрация: 18.05.2008
Сообщений: 111,332
09.06.2016, 13:53 2
Лучший ответ Сообщение было отмечено wOri как решение

Решение

Например так.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
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
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.06.2016, 13:53

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Оценка экономической деятельности группы предприятий на основе известных данных
Решить задачу, связанную с оценкой экономической деятельности группы предприятий на основе...

Массив: Определить количество учеников, оценка которых меньше средней оценки по классу
1.В массиве записаны оценки по информатике 22 учеников класса. Определить количество учеников,...

Вывод на экран записей тех студентов, у которых по обоим предметам оценка 4 или 5
Требуется написать программу, которая выполняла бы следующие действия: даны 5 записей, каждая из...

Среди всех оценок по математике найти и вывести тех учеников у кого оценка по математике выше средней
Помогите дорешать в обработке 2 надо сделать чтоб он нашел среднию оценку среди всех оценок по...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.