Programalama > PASCAL

uses crt;
var
sec:char;
c, d:integer;
a, b:byte;
ad:array[1..5] of string[25];
yaz:array[1..5, 1..3] of byte;
top:integer;
begin
clrscr;

repeat
       clrscr;
       TEXTCOLOR(9);
       gotoxy(35,4);TEXTCOLOR(2); write('FATIH PEKTAS');
       gotoxy(20,5); write('N˜KSAR ENDšSTR˜ MESLEK L˜SES˜-TEKN˜K L˜SE');
       gotoxy(38,8); write('MENš');

       gotoxy(37,9); write('======');

       gotoxy(30,10); write('1. Veri giriŸi');

       gotoxy(30,11); write('2. Listele');

       gotoxy(30,12); write('3. €kŸ');

       gotoxy(30,13); write('Se‡iminizi giriniz (1/2/3)>'); readln(sec);

          case sec of
               '1': begin

                    for a:=1 to 5 do begin
                    clrscr;
                    gotoxy(1,1);
                    write(a,'. ”§rencinin adn giriniz:'); readln(ad[a]);

                        for b:=1 to 3 do begin

                            gotoxy(1,b+1);

                            write(b,'. yazly giriniz:'); readln(yaz[a,b]);
                                         end;
                                     end;
                    end;

               '2': begin
                    gotoxy(3,8); write('™¦RENC˜N˜N;');

                    gotoxy(3,9); write('Ad');

                    gotoxy(13,9); write('1. yazl');

                    gotoxy(24,9); write('2. yazl');

                    gotoxy(35,9); write('3. yazl');

                    gotoxy(46,9); writeln('Ortalama');

                    writeln('1)'); writeln('2)');
                    writeln('3)'); writeln('4)');
                    writeln('5)');

       
       for a:=1 to 5 do begin
           c:=6; top:=0;
           gotoxy(3,a+9); write(ad[a]);

                        for b:=1 to 3 do begin
                            c:=c+11;
                            gotoxy(c,a+9); write(yaz[a,b]);
                            top:=top+yaz[a,b];
                                 end;
                         gotoxy(c+11,a+9); write((top/3):3:2);
                        end;
                        readln;
                        end;
end;
until sec='3';
end.