Programalama > PASCAL


Ort. 0
Puan ver:
uses crt;
var
b,c,d,e:real;
a,bn,cn,en,dn:integer;
begin
clrscr;
textcolor(white);
writeln('Nazm DEM˜R  (SDU/Senirkent MYO ”§rencisi)');
writeln;
writeln;
textcolor(red);
writeln('                   B™LšNEB˜LMEY˜ DENETLEYEN PROGRAM');
textcolor(white);
writeln;
writeln('2 ile b”lnebilme =');
writeln('3 ile b”lnebilme =');
writeln('5 ile b”lnebilme =');
writeln('7 ile b”lnebilme =');
writeln;
write('Say girin=');
readln(a);
b:=a/2;
c:=a/3;
d:=a/5;
e:=a/7;
bn:=trunc(b);
cn:=trunc(c);
dn:=trunc(d);
en:=trunc(e);
gotoxy(20,6);
if a=bn*2 then
write('b”lnyor')
else
write('b”lnemiyor');
gotoxy(20,7);
if a=cn*3 then
write('b”lnyor')
else
write('b”lnemiyor');
gotoxy(20,8);
if a=dn*5 then
write('b”lnyor')
else
write('b”lnemiyor');
gotoxy(20,9);
if a=en*7 then
write('b”lnyor')
else
write('b”lnemiyor');
readln;
end.

nazım demir
demirnazim@hotmail.com


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2024 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.