помогите с конструктором тестов, нужна помощь Опции

[glebik]

нужна прога - конструктор тестов на pascal
в ней используются разные типы вопросов,программа создаёт и проводит тест . помогите пожалуйста ,если есть готовая прога или наработки.

Сообщение отредактировано: glebik - 11.02.2007 14:13

[Артемий]

Если никто не возражает, покажу свой способ..
(тут как и раньше в dat файл, а из него потом можно считать данные...)

type
 Test = record
  Vopros: String[50];
  Typ: Integer;
  Kolotv: byte;
  KolotvCor: byte;
  Variants: array [1..100] of string[40];
  Kolonky1: array [1..100] of string[40];
  Kolonky2: array [1..100] of string[40];
  Otvety: array [1..100] of string[40];
  Prav: array [1..100] of string[40];
 end;
label 10;
var
count,i,i1,i2,countall,i3,i4,i5,i6,i7,i8: Integer;
pravil,koll,variantsByte: byte;
s: string[40];
T: Test;
F: file of Test;
Ban: array [1..10] of Test;
begin
i4:=0;
 Assign(F,'ban.dat');
 Rewrite(F);
writeln('Vvedite dannue: ');
 writeln('Skoko voprosov budet?');
 readln(countall);
 for i3:=1 to countall do begin
 writeln('Vopros: ',i3);
 readln(T.Vopros);
 writeln('Typ:');
 writeln('1 - Neposredstvenny,2 - OneInMany,3 - ManyInMany,4 - Conformable,5 - Sortirovka');
 readln(T.Typ);
  if T.Typ = 4 or 5 then goto 10;
 writeln('Kolychestvo otvetov:');
 readln(T.Kolotv);
 for i1:= 1 to T.Kolotv do
  begin
   writeln('Otvet nomer ',i1);
   readln(T.Otvety[i1]);
  end;
10: case T.Typ of
 1: begin writeln('Skoko prav otvetov?'); readln(pravil); for i2:=1 to pravil do begin writeln('Pravel otvet nomer ',i2);
  readln(T.Prav[i2]); end; end;
 2: begin writeln('Prav otvet: '); readln(T.Prav[1]); end;
 3: begin writeln('Skoko prav otvetov?'); readln(pravil); for i2:=1 to pravil do begin writeln('Pravel otvet nomer ',i2);
  readln(T.Prav[i2]); end; end;
 4: begin writeln('Skoko kolonok?'); readln(koll); for i5:=1 to koll do begin writeln('Kolonka 1 variant ',i5);
  readln(T.kolonky1[i5]); end; for i6:=1 to koll do begin writeln('Kolonka 2 variant ',i6);
  readln(T.kolonky2[i6]); end; for i7:=1 to koll do begin writeln('Prav otvet ',i7,'?'); readln(T.Prav[i7]); end; end;
 5: begin writeln('Skoko variantov?'); readln(variantsByte); for i8:=1 to variantsByte do begin writeln('Variant №',i8);
  readln(T.Variants[i8]); end; writeln('Prav otvet?'); readln(T.prav[1]); end;
 end;
 i4:=i4+1;
 Ban[i4]:=T;
   Write(F,Ban[i4]);
 end;

Сообщение отредактировано: Артемий2 - 15.02.2007 19:17