Programalama > PASCAL

PASCAL / Dosyaya Yazma

Dosyaya Yazma

Etiketler: dosyaya, yazma

Ort. 0

Puan ver:

hazirkod 01 July 19:34 0

0 kişiden 0 puan aldı

5466

uses crt;
type
        kayit=record
        cinsi       :string[20];
        mfiyat      :real;
        sfiyat      :real;
        f           :char;
 
        end;
        var
        dd:file of kayit;
        kay:kayit;
        cev:char;
        kar: real;
        i:byte;
 
begin
 
          assign(dd,'c:\maliyet.dat');{$i-}reset(dd);if ioresult<>0 then
          rewrite(dd);{$i+}
 
            clrscr;
           REPEAT
           textbackground(blue);
 
           textcolor(yellow);
 
           gotoxy(21,6);write('&#65402; MALIN  CINSINI GIRINIZ  ==> &#65402;             ');
           gotoxy(21,7);write('&#65420;&#65421;&#65421;&#65421;&#65421;&#65421;&#65421;&#65421;
&#65421;&#65421;&#65421;&#65421;&#65421;&#65421;&#65421;&#65421;&#65421;&#65421;&#65421;
&#65421;&#65421;&#65421;&#65421;&#65421;&#65421;&#65421;&#65421;&#65421;&#65421;&#65421;
&#65422;&#65421;&#65421;&#65421;&#65421;&#65421;&#65421;&#65421;&#65421;&#65421;&#65421;
&#65421;&#65421;&#65421;&#65421;&#65421;&#65401;               ');
           gotoxy(21,8);write('&#65402; MALIYET FIYATINI GIRINIZ==> &#65402;          ');
           gotoxy(21,9);write('                                              ');
          gotoxy(21,10);write('                        ');
          gotoxy(21,11);write('                                   ');
          gotoxy(21,12);write('                           &#8216; );
          gotoxy(21,13);write('                       &#8217;);
          gotoxy(21,14);write('                       ');
          gotoxy(21,15);write('                       ');
          gotoxy(21,16);write('                                                                   ');
          gotoxy(21,17);write('                                                           ');
          gotoxy(21,18);write('                                               ');
          gotoxy(21,19);write('                        &#8216;);
          gotoxy(53,6);readln(kay.cinsi);
          gotoxy(53,8);readln(kay.mfiyat);
          kar:=kay.mfiyat*20/100;
          Gotoxy(24,11);write(' GIRILEN &#21836;&#21730; KARI');
          GOTOXY(53,11);WRITE(KAR:6:0,' YTL...');
           kay.sfiyat:=kay.mfiyat+kar;
          GOTOXY(24,16);WRITE(' &#21836;&#21730;&#21730; SATIS FIYATI');
          GOTOXY(53,16);WRITE(kay.sfiyat:6:0,' YTL...');
           begin
           seek(dd,filesize(dd));
           write(dd,kay);
           end;
           textcolor(cyan);
           delay(300);gotoxy(23,21);write('D');delay(300);gotoxy(24,21);write('E');
           delay(300);gotoxy(25,21);write('V');delay(300);gotoxy(26,21);write('A');
           delay(300);gotoxy(27,21);write('M');delay(300);gotoxy(29,21);write('E');
           delay(300);gotoxy(30,21);write('D');delay(300);gotoxy(31,21);write('I');
           delay(300);gotoxy(32,21);write('L');delay(300);gotoxy(33,21);write('E');
           delay(300);gotoxy(34,21);write('C');delay(300);gotoxy(35,21);write('E');
           delay(300);gotoxy(36,21);write('K');delay(300);gotoxy(37,21);write('M');
           delay(300);gotoxy(38,21);write('I');
 
            textcolor(11);delay(200);gotoxy(56,21);write('[');
textcolor(2);delay(200);gotoxy(57,21);write('E'); textcolor(3);        delay(200);gotoxy(58,21);write('\');
textcolor(red);delay(200);gotoxy(59,21);write('H'); textcolor(4);delay(200);gotoxy(60,21);write(']');
        textcolor(6);delay(200);gotoxy(61,21);write('>');textcolor(5);delay(200);gotoxy(62,21);write('>');
            textcolor(8);delay(200);gotoxy(63,21);write('>');
           CEV:=UPCASE(READKEY);
              until cev in [&#8216;E&#8217;,&#8217;H&#8217;];
close(dd);
         END.