Pascal / Pascal Programlama İle Bölünebilmeyi denetleme

Kullanıcı Adı :

Şifre :

Makale Kategorileri

ACPI [0]

Action Script [5]

ASP [12]

ASP.NET [23]

Assembly [3]

Bash [1]

C [4]

C# [9]

C++ [10]

Cobol [1]

Delphi [31]

Flash [5]

Html [9]

JAVA [36]

Java Script [11]

JSF [2]

Jsp [1]

Lua [1]

Matlab [2]

MySQL [26]

Oracle [1]

Pascal [31]

Perl [4]

Photoshop [2]

PHP [108]

Python [8]

REXX [6]

Ruby [1]

SEO [4]

Visual Basic [20]

Gorsel Ders Kategorileri

Asp [25]

Asp.Net [5]

Csharp [33]

Delphi [3]

Fireworks [4]

Flash [10]

Java Script [0]

Photoshop [0]

PHP [11]

Vb.Net [9]

Visual Basic [4]

Dil

English

Deutsch

deutsch

Reklam Alani

Pascal / Pascal Programlama İle Bölünebilmeyi denetleme

Pascal Programlama İle Bölünebilmeyi denetleme
Yazar: by_Coder Eklenme: 04/04/08 Okunma: 45

uses crt;
var
b,c,d,e:real;
a,bn,cn,en,dn:integer;
begin
clrscr;
textcolor(white);
writeln('Nazm DEM˜R (SDU/Senirkent MYO ”§rencisi)');
writeln;
writeln;
textcolor(red);
writeln(' B™LšNEB˜LMEY˜ DENETLEYEN PROGRAM');
textcolor(white);
writeln;
writeln('2 ile b”lnebilme =');
writeln('3 ile b”lnebilme =');
writeln('5 ile b”lnebilme =');
writeln('7 ile b”lnebilme =');
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”lnyor')
else
write('b”lnemiyor');
gotoxy(20,7);
if a=cn*3 then
write('b”lnyor')
else
write('b”lnemiyor');
gotoxy(20,8);
if a=dn*5 then
write('b”lnyor')
else
write('b”lnemiyor');
gotoxy(20,9);
if a=en*7 then
write('b”lnyor')
else
write('b”lnemiyor');
readln;
end.
nazım demir
demirnazim@hotmail.com