ucgen- tanım 2

PROGRAM UCGEN;

VAR A,B,C,TOPLAM,FARK:INTEGER;

BEGIN

WRITELN ('UCGENIN KENAR UZUNLUKLARINI GIRINIZ');
READLN (A,B,C);

IF ( (A <> ABS(B-C)) ) THEN
IF ( (B <> ABS(A-C)) ) THEN
IF ( (C <> ABS(A-B)) ) THEN


WRITELN ('UCGENDIR')

ELSE
ELSE
ELSE

WRITELN ('GIRILEN KENAR UZUNLUKLARINA GORE UCGEN TANIMLI DEGILDIR');

READLN;

END.

15 EKIM DENEME 8

PROGRAM UYGULAMA7;
VAR A, B, C, EnBuyuk, enKucuk : INTEGER;

BEGIN
WRITELN('3 tam sayi yaziniz.');
READLN(A, B, C);

IF (A > B) THEN
BEGIN
IF (A > C) THEN
enBuyuk := A;
END
ELSE IF (B > C) THEN
enBuyuk := B
ELSE
enBuyuk := C;
WRITELN('yazdiginiz sayilardan enBuyuk olani=', enBuyuk :6);
IF (A < B) THEN
BEGIN
IF (A < C) THEN
enKucuk := A
ELSE
enKucuk := C;
END
ELSE IF (B < C) THEN
enKucuk := B
ELSE
enKucuk := C;
WRITELN('yazdiginiz sayilardan enKucuk olani=', enKucuk :6);
READLN;
END.

15 EKIM DENEME 6

PROGRAM deneme5;
VAR sayi1, sayi2, sayi3, sayi4, sayi5: INTEGER;
enBuyuk, enKucuk : REAL;

BEGIN
WRITELN('Lutfen 5 adet tam sayi yaziniz!');
READLN(sayi1, sayi2, sayi3, sayi4, sayi5);

enBuyuk := sayi1;

IF (enBuyuk < sayi2) THEN
BEGIN
enBuyuk :=sayi2;
END;

IF (enBuyuk < sayi3) THEN
BEGIN
enBuyuk :=sayi3;
END;

IF (enBuyuk < sayi4) THEN
BEGIN
enBuyuk :=sayi4;
END;

IF (enBuyuk < sayi5) THEN
BEGIN
enBuyuk :=sayi5;
END;
enKucuk := sayi1;

IF (enKucuk > sayi2) THEN
BEGIN
enKucuk :=sayi2;
END;

IF (enKucuk > sayi3) THEN
BEGIN
enKucuk :=sayi3;
END;

IF (enKucuk > sayi4) THEN
BEGIN
enKucuk :=sayi4;
END;

IF (enKucuk > sayi5) THEN
BEGIN
enKucuk :=sayi5;
END;

WRITELN('Girmis oldugunuz sayilardan en buyugu=',
enBuyuk:5:2,' enkucugu=', enKucuk:5:1);


READLN;
END.

15 EKIM DENEME5

PROGRAM deneme5;
VAR sayi1, sayi2, sayi3, sayi4, sayi5: INTEGER;
enBuyuk: REAL;

BEGIN
WRITELN('Lutfen 5 adet tam sayi yaziniz!');
READLN(sayi1, sayi2, sayi3, sayi4, sayi5);

enBuyuk := sayi1;

IF (enBuyuk < sayi2) THEN
BEGIN
enBuyuk :=sayi2;
END;

IF (enBuyuk < sayi3) THEN
BEGIN
enBuyuk :=sayi3;
END;

IF (enBuyuk < sayi4) THEN
BEGIN
enBuyuk :=sayi4;
END;

IF (enBuyuk < sayi5) THEN
BEGIN
enBuyuk :=sayi5;
END;

WRITELN('Girmis oldugubuz sayilardan en buyugu=', enBuyuk:5:2);


READLN;
END.

IF-THEN-ELSE- GOTO

program deneme4;
Label basla, sonuc;
var SAYI1, SAYI2, TOPLAM, CARPIM: real;
kontrol : char;


BEGIN
basla:
WRITELN ('IKI GERCEK SAYI YAZINIZ');
READLN (SAYI1);
READLN (SAYI2);
TOPLAM := SAYI1 + SAYI2;
CARPIM := SAYI1 * SAYI2;

IF TOPLAM > 50 THEN
BEGIN
WRITELN ('IKI SAYININ TOPLAMI= ', TOPLAM: 6: 2);
END
ELSE
BEGIN
WRITELN ('IKI SAYININ CARPIMI =', CARPIM: 6: 2);
END;
WRITELN ('DEVAM ETMEK ISTIYORMUSUNUZ? E-H');
READLN (kontrol);
IF (kontrol='E') THEN
BEGIN
GOTO basla;
END
ELSE GOTO sonuc;

sonuc:

READLN;
END.

IF THEN ELSE

PROGRAM DENEME3;

Var sayi1, sayi2, toplam, carpim : real;

BEGIN

WRITELN('IKI GERCEK SAYI YAZINIZ');

READLN(sayi1);

READLN(sayi2);

toplam:= sayi1 + sayi2;

carpim:=sayi1 * sayi2;

If (toplam>50)

THEN

BEGIN

WRITELN('IKI SAYININ TOPLAMI='); END

ELSE

BEGIN

WRITELN('IKI SAYININ CARPIMI='); END;

READLN;

Faydalı Bağlantılar

http://www.freepascal.org
http://www.processing.org
http://formandcode.com/
http://dbn.media.mit.edu/
http://structuresynth.sourceforge.net/

uygulama

PROGRAM DENEME;
CONST PI = 3.14;
VAR a,b,c, HACIM: REAL

BEGIN
WRITELN('DIKDORTGENLER PRIZMASININ KENAR UZUNLUKLARINI GIRINIZ');
READLN(A);
READLN(B);
READLN(C);

HACIM := A * B * C;

WRITE(HACIM: 6:2);

READLN;
END