uses crt; var x,y:integer; sonuc:real; k:char; procedure menu; begin clrscr; gotoxy(15,5); writeln(’(+) islemi’); gotoxy(15,7); writeln(’(-) islemi’); gotoxy(15,9); writeln(’(*) islemi’); … more →
Programlama2000 Software & Internet Securityprogramlama2000 wrote 5 months ago: uses crt; var x,y:integer; sonuc:real; k:char; procedure menu; begin clrscr; gotoxy(15,5); writeln( … more →
programlama2000 wrote 5 months ago: uses crt; var f,t:text; yan,ch:char; s,z:string; i:byte; procedure buyuk; begin for i:=1 to length(s … more →
programlama2000 wrote 5 months ago: uses crt; var a,b,i:integer; begin writeln(’1=tum ascii kodlar 2=istenilen ascii kod’); readln(a … more →
programlama2000 wrote 5 months ago: Girilen 6 basamaklı bir sayının en küçük basamağını bulan program USES CRT; VAR SAYI:STRI … more →
programlama2000 wrote 5 months ago: Girilen 10 adet sayı içerisinden kullanıcı isteğine göre girilen bir sayıya en yakın sayıy … more →
programlama2000 wrote 5 months ago: Kullanıcı 0 girinceye kadar sürekli sayı girişi yapıldıktan sonra girilen çift sayıları ek … more →
programlama2000 wrote 5 months ago: uses crt; var a,i,sayac:integer; begin clrscr; sayac:=0; writeln(’Sayı Giriniz … more →
programlama2000 wrote 5 months ago: uses crt; type kayit=record isim:string; soyad:string; sinif:string; no:string; y1,y2,y3:integer; ev … more →
programlama2000 wrote 5 months ago: uses crt; var a:char; begin clrscr; for a:=#0 to #255 do write(a:4); readln; end. … more →
programlama2000 wrote 5 months ago: uses crt; var k:integer; begin clrscr; repeat for k:=1 to 79 do begin gotoxy(k,1);write(’ … more →
programlama2000 wrote 5 months ago: USES CRT; VAR ADET:INTEGER; DIZI2,DIZI:ARRAY [1..100] OF LONGINT; … more →
programlama2000 wrote 5 months ago: USES CRT; VAR ADET:INTEGER; DIZI:ARRAY[1..100] OF INTEGER; … more →