Programalama > PASCAL

PASCAL / Kayan Yazi

Girisi Yapilan Herhangi Bir Ismin Ekranda Kaymasi

Etiketler: kayan, yazi

Ort. 0

Puan ver:

hazirkod 24 June 19:33 1

0 kişiden 0 puan aldı

11830

{Girilen ismi ekranin ortasinda esli bir sekilde kaydiran program kodlari}
uses Crt;
var
i,hiz,ses:integer;
ad:string;
begin
clrscr;
textcolor(15);
gotoxy(1,1);write('Adinizi Giriniz...:');readln(ad);
gotoxy(1,2);write('Ge&#8225;is Hizini Giriniz...:');readln(hiz);
gotoxy(1,3);write('Ses Kodunu Giriniz(1 ila 1000 arasi)...:');readln(ses);
clrscr;
gotoxy(1,1);writeln('&#8364;ikmak I&#8225;in Herhangi Bir Tusa Basin ve Yazinin En Saga Gitmesini Bekleyin');
repeat
for i:=1 to 70 do begin
textcolor(14);
gotoxy(i+1,20);Write(ad);
sound(ses);
delay(hiz);
textcolor(black);
gotoxy(i+1,20);Write(ad);
end;
until keypressed;
nosound;

readln;
end.

Yorumlar Yorum Yaz

sizin kodunuz ve benim kodumu birleştirmem lazım acaba nasıl yapabilirim bir türlü beceremedim lütfen yardım edermisiniz?

uses crt;
var
tus:char;
yolbilg,islem:string;


 
    procedure anamenu;
      begin
    clrscr;
    
    textcolor(red);
    gotoxy(56,20); writeln('[  1  ]  ISLEMLER');
    gotoxy(56,22); writeln('[  2  ]  YOL BILGISAYARI');
    gotoxy(56,24); writeln('[ ESC ]  &#8364;CIKIS');
   
    tus:=readkey;
      end;
 
    procedure sisim;
      begin
    CLRSCR;
    gotoxy(56,16); write('ARACI SUR:');
    gotoxy(56,18); write('BENZIN AL');
    gotoxy(56,20); write('YEREL KİLOMETRE BİLGİSİ:');
    gotoxy(56,22); write('ANA MENUYE DON:');
    gotoxy(56,24); readln(islem);
      end;
 
 
    procedure soyads;
      begin
    CLRSCR;
    gotoxy(56,10); write('GENEL KILOMETRE GOSTER:');
    gotoxy(56,12); write('YEREL KILOMETRE GOSTER');
    gotoxy(56,14); write('ORTALAMA HIZ');
    gotoxy(56,16); write('ORTALAMA YAKIT TUKETIMI:');
    gotoxy(56,18); write('DEPODAKI YAKIT:');
    gotoxy(56,20); write('MENZIL:');
    gotoxy(56,22); write('ANA MENUYE DON:');
    gotoxy(46,24); readln(yolbilg);
      end;
 
 
  
begin  {ANA MENU}
repeat
anamenu;
if tus='1' then begin sisim; end;
if tus='2' then begin soyads; end;

until tus=#27;


end.

KATEGORİLER

ADO.NET - ADO - 8

ASP - 240

ASP.NET - 24

C# - 75

C++ - 174

CGI - 8

COMPONENT - 5

DATABASE - 8

DELPHI - 247

FLASH - 49

HTML - 536