Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  re
Language: PASCAL
Code:
Program student;
uses crt;
type dane=record 
      imie:string[20];
      nazwisko:string[30];
      ocena_pis:byte;
      ocena_ust:byte;
end;
    var plik1:file of dane;
    var i:byte;o:dane;
          
Procedure zapisz;
     Begin
        assign (plik1,  'dane txt');
        rewrite (plik1);
        for i:=1 to 3 do
            Begin
              writeln ('Podaj imie');
              readln (o.imie);
              writeln ('Podaj nazwisko');
              readln (o.nazwisko);
              writeln ('Podaj ocene z egzaminu pisemnego');
              readln (o.ocena_pis);
              writeln ('Podaj ocene z egzaminu ustnego');
              readln (o.ocena_ust);
              write (plik1,o)
            end;
    end;
Procedure wczytaj;
       Begin
          assign (plik1,  'dane txt');
          reset (plik1);
          for i:=1 to 3 do
              Begin
                   read (plik1 ,o);
                   writeln (o.imie,'',o.nazwisko,'',o.ocena_pis,'',o.ocena_ust);
              end;
                close (plik1);
     end;
         Begin
         clrscr;
         zapisz;
         wczytaj;
         readln
  End.
          
Comments: