Skocz do zawartości

Tester


kriss_s

Polecane posty

Dany jest plik z pytaniami i odpowiedziami. Napisz progran "egzaminator" odpytujący i wystawiający ocenę według tych pytań.

 

Proszę o pomoc w przerobieniu tego programu gdyż napisałem ale każde pytanie i odpowiedź czyta z innej lini a powinien z jednej.

 

 
program tester;
uses crt;
var plik: text;
   punkty: integer;
   linia, linia1, linia2, linia3, linia4: string;
   filename: string;
   znak: string;
   odp, odpowiedz: char;

begin
 write('Nazwa pliku: '); readln(filename);
 assign(plik, filename);
 reset(plik);
 clrscr;
 repeat
   readln(plik, linia);
   readln(plik, linia1);
   readln(plik, linia2);
   readln(plik, linia3);
   readln(plik, linia4);
   readln(plik, odp);
   writeln(linia);
   writeln('  a)', linia1);
   writeln('  b)', linia2);
   writeln('  c)', linia3);
   writeln('  d)', linia4);
   writeln;
   write('Twoja odpowiedz to :');
   readln(znak);
   odpowiedz:=odp;
   if znak=odpowiedz then inc(punkty) else dec(punkty);
   clrscr;
 until eof(plik);
 close(plik);
 if (punkty < 0) and (punkty < 4) then
    writeln ('Twoja ocena to : 2.0');
 if (punkty >= 5) and (punkty < 6) then
    writeln ('Twoja ocena to : 3.0');
 if (punkty >= 6) and (punkty < 7) then
    writeln ('Twoja ocena to : 3.5');
 if (punkty >= 7) and (punkty < 8) then
    writeln ('Twoja ocena to : 4.0');
 if (punkty >= 8) and (punkty < 9) then
    writeln ('Twoja ocena to : 4.5');
 if (punkty >= 9) and (punkty <= 10) then
    writeln ('Twoja ocena to : 5.0');
 write('Nacisnij klawisz aby zamknac program.');
 readln;
end.

 

Plik z pytaniami i odpowiedziami:

 

KODImie Mickiewicza ?

Stefan

Miroslaw

Adam

Wladyslaw

c

Imie Stasia ?

Stas

Nell

Bell

Well

a

pytania i odpowiedzi powinny być w jenej linii.

 

Za pomoc dziękuje.

Link do komentarza
Udostępnij na innych stronach

Może żle sie wyraziłem chodzi o to że w pliku z pytaniami ma być wszystko w jednej lini i nie wiem za bardzo jak to zrobić aby program działał tak jak teraz.

 

Plik z pytaniami i odpowiedziami

 

Imie Mickiewicza ? Stefan Miroslaw Adam Wladyslaw c Imie Stasia ? Stas Nell Bell Well a
Link do komentarza
Udostępnij na innych stronach

Podobnie myślałem nawet o jakimś ciągu znaków tylko nie wiem za bardzo jak to zrobić. (wpisywać do tablicy czy co ?)

 

myślałem berdziej nad czymś takim

 

pytanie ? @# wariant1 @# wariant2 @# wariant3 @# wariant4 @# odpowiedz1 @# pytanie2 ? @# wariant1 @# wariant2 @# wariant3 @# wariant4 @# odpowiedz2

Link do komentarza
Udostępnij na innych stronach

Zarchiwizowany

Ten temat jest archiwizowany i nie można dodawać nowych odpowiedzi.

×
×
  • Utwórz nowe...