@nutella

помогите,пожалуйста,очень срочно!
нужно на С сложить и отладить программу тестирования знаний студентов с алгебры!


заранее спасибо!

0

@neske

nutella, в нашей ветке экстрасенсов нету, запомните!!
Задание то распиши подробнее.

0

@nutella

это и есть полное задание которое мне было дано(
мне нужен хотя бы исходник в среде Turbo C

0

@neske

nutella, ну вот представь, что ты на моем месте. И я читаю это задание. Что я должен делать?

Я сильно сомневаюсь, что вам ничего не было объяснено, может виной этому пропуски ?)

0

@nutella

точно не пропуски)
это задание моей подруги.у нее нет сейчас возможности выйти в интернет.очень просила ей помочь)не могу ее подвести(

0

@neske

ну а я не могу помочь вам, задание непонятное)

0

@nutella

я примерно имею представление как это сделать в Паскале,но вот в с((
и подругу подводить не хочется)она на меня надеется.

0

@neske

Вы мне объясните, что в программе вообще должно быть, хотя бы. А то знания студентов, тестирование .. )

0

@nutella

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

0

@neske

а вопросы, нам придумывать?

0

@nutella

ну я думаю с вопросами меньше всего проблем)можно их не прописывать.пусть потом моя Катька сама их додумывает и просто допишет)

0

@neske

А пользователь как должен отвечать на вопросы? Да/нет?

0

@nutella

у меня есть код программы которая примерно должна получится на Паскале.

1.1 Код файла для создания файла с вопросами и ответами

program Vvod;
type rec=record
vopros:string;
otvet:string;
end;
var f:file of string;
c:string;x:integer;q:rec;
begin
x:=0;
assign(f,'control.dat');
rewrite(f);
repeat
x:=x+1;
writeln('Введите вопрос');
readln(q.vopros);
write(f,q.vopros);
writeln('введите ответ');
readln(q.otvet); write(f,q.otvet); until x=20; close(f); end.

1.2 Код файла для чтения файла с вопросами и введения ответов

program initialization;
uses crt;
const simbol:set of char=['y','Y','n','N','r','R','t'];
type rec=record
vopros:string;
otvet:string;
end;
var f:file of string;z,e,u:integer;key:char;
z1,z2,z3:real;
x:integer;q:rec; j:integer;
Procedure MainMenu;
begin
writeln('Для начала тестирования нажмите - y');
writeln ('Для редактирования вопросов или выхода из программы нажмите - R');
repeat
key:=readkey until key in simbol;
case key of
'y','Y':writeln;
'r','R':begin clrscr;
writeln('Для завершения программы нажмите - n');
writeln('Для редактирования вопросов -T');
repeat
key:=readkey until key in simbol;
case key of
'n','N':halt;
't','T':begin
j:=0;
assign(f,'control.dat');
rewrite(f); clrscr;
writeln('Введите количество вопросов');
readln(x);
repeat
j:=j+1;
writeln('Введите вопрос');
readln(q.vopros);
write(f,q.vopros);
writeln('Введите ответ');
readln(q.otvet);
write(f,q.otvet);
until j=x;
close(f); begin halt; end;
end;
end;end; end; end;
procedure umnogenie;
begin
writeln('Учтите что при вводе ответов знак умножения " * "(shift+8) обязателен ');
writeln('иначе ответ не будет считаться правильным');
writeln('Для продолжения нажмите - ENTER') ;
end;
Procedure Test;
var
readstring,otv,otvfile:string;
begin
e:=0; z:=0;
assign(f,'control.dat');
reset(f);
While not eof(f) do begin
z:=z+1; clrscr;
write('Вопрос',z,' : ',' ');
writeln;writeln;inc(x);
read(f,readstring);
read(f,otvfile);
writeln (readstring);
Write('Ответ');Readln(otv);
if otv = otvfile then begin e:=e+1;end;end;
z1:=round(x/4);
z2:=round(x/2);
z3:=round(x/1.3);
if e<=z1 then u:=2 else
if (e>z1) and(e<=z2) then u:=3 else
if (e>z2) and (e<=z3) then u:=4 else u:=5;
close(f);
clrscr;
writeln('Правильных ответов’,e);
writeln('Ваша оценка',u);
end;
begin clrscr;
MainMenu;
umnogenie; readln;
Test;
end.

Добавлено через 40 секунд
я думаю лучше всего
a,b,c либо d.

0

@neske

Вы уж извините, но ваш код на Паскале, да еще и без тегов выделения, я разбирать не буду


Ну, что первое пришло в голове, это хранить вопросы и правильные ответы (точнее одну букву a/b/c/d) в таком виде:

Если оба массива предварительно заполнить, то останется только циклом пройти, и ответ пользователя, сверять с буквой в массиве answer. Ну и счетчик прикрутить, будет баллы считать.

1

@nutella

спасибо!
а можно полный код прописать.потому,что лично я в с совсем никак)
совместно с подругой буду вам весьма благодарна)

0

@neske

Сейчас не можно полный код, спать ухожу)
завтра если только.

0

@nutella

спасибо)буду ждать)

0

@neske

Вот что получилось, сыро, но все же.
Все данные берутся из файла в таком формате: (формат обязателен)
Пока програма выведет в консоль кол-во правильных и неправильных ответа пользователя, потом измените под свои нужны.

2

@nutella

большое спасибо!

0

@Deviaphan

1) 2 + 2 = ?
2) 3 * 5 = ?
3) 4 * 7 + 5 = ?
...
потом посложнее
20) (4 + 7) * (8 - 2) * 14 = ?

Вот вам и задания.)

0