Merhaba arkadaşlar, bir ödevim var. Ödev şöyle, elle girilecek değerler ile 20 dikdörtgenin alanı toplamı hesaplayacak bir program.
Aşağıda Döngüyü yazdım. Döngü şu şekildedir.
1. dikdörtgen için bir uzunluk ve 2. dikdörtgen için bir uzunluk giriliyor. Fakat en son bunların alanları toplamını nasıl alabilirim. Lütfen yardımcı olun
Aşağıda Döngüyü yazdım. Döngü şu şekildedir.
1. dikdörtgen için bir uzunluk ve 2. dikdörtgen için bir uzunluk giriliyor. Fakat en son bunların alanları toplamını nasıl alabilirim. Lütfen yardımcı olun
Kod:
Program Dikdortgen;uses crt;
label 1;
label 2;
var
a,b,uk,kk:integer;
begin clrscr;
a:=1;
b:=1;
1: repeat
writeln(a,'. Dikdrtgen iin bir de§er giriniz');readln(uk);
if( uk = 0) then
begin
writeln('Girdi§iniz De§er 0 Olamaz');
goto 1;
end
else if( uk < 0) then begin
writeln('Girdi§iniz De§er 0 dan Kk Olamaz');
goto 1;
end
else begin
writeln(a,'. Dikdrtgen in Girilen De§er',uk);
2: repeat
writeln(a,'. Dikdrtgen iin 2. de§eri giriniz');readln(kk);
if( kk = 0 ) then
begin
writeln('Girdi§iniz De§er 0 Olamaz');
goto 2;
end
else if( kk < 0 ) then begin
writeln('Girdi§iniz De§er 0 dan Kk Olamaz');
goto 2;
end
else if( kk = uk ) then begin
writeln('Girdi§iniz de§er 1. De§er ile ayn olamaz');
goto 2;
end
else begin
writeln(a,'. Dikdrtgen in Girilen De§er',kk);
end;
until b = 1;
end;
a:= a+1;
until a = 21;
readln;
end.