Показать сообщение отдельно
Старый 07.01.2011, 19:06   #9 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
По умолчанию

А зачем такие сложности? Все можно сделать и без подпрограмм и гораздо меньшими усилиями и меньшими затратами памяти.
Код:
var i, a, b, otv, rez:integer;
begin
randomize;
rez:=0;
for i:=1 to 10 do begin
a:=random(10)+1;
b:=random(10)+1;
writeln(a,'*',b,'=?');
readln(otv);
if a*b=otv then begin inc(rez); writeln('Good'); end else writeln('Not good');
end;
writeln('Ocenka ',(rez+1) div 2);
readln
end.
Листинг, правда, не для вашей версии ЯП, но, думаю, вполне будет работать. Обращаю внимание, что числа для проверки будут каждый раз генерироваться новые и в конце выдается оценка
__________________
Убить всех человеков!
AlexZir вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070