Запис на срочни оценки

2 Responses to Запис на срочни оценки

1. kaloyan каза:

   09 февруари, събота в 18:23

   Коментарите си ги писах за себе си, но след това реших, че ще е по-добре да не ги изтривам, когато публикувам задачата

   CONST
     n=6;//Броя на учениците
   TYPE
     uchenik=record
       predmet:string[20];
       uspeh:integer;
     end;
   VAR
     f:file of uchenik;
     uch: array[1..n] of uchenik;
     i:integer;
   BEGIN
   //Въвеждаме данните
     for i:=1 to n do
       with uch[i] do begin
         write('Predmet: '); readln(predmet);
         write('Uspeh: '); readln(uspeh);
         writeln;
     end;
   //Записваме ги във файл
     assign(f,'info.dat');//Връзка в файла
     rewrite(f);//Отваряме файла за запис
       for i:=1 to n do write(f,uch[i]);//Записваме информацията от променливата във файла
     close(f);//Затваряме файла
   readln;
   END.

   Влезте, за да отговорите
   • Данаил каза:

     09 февруари, събота в 19:51

     Специално за този сайт са ОК и така – нали е учебен. Иначе, по принцип, няма нужда да се коментират очевидни неща. Но коментарите преди всеки блок за обработка са ОК, защото подпомагат ориентирането в кода.

     Влезте, за да отговорите