Pascal 20 Dikdörtgenin alanları toplamı

Bu konuyu okuyanlar

nomaxx

Öğrenci
Katılım
24 Ağustos 2013
Mesajlar
74
Reaksiyon puanı
0
Puanları
0
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 :)

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,'. Dikd”rtgen i‡in 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 K‡k Olamaz');
                 goto 1;
            end
            else begin
                writeln(a,'. Dikd”rtgen ˜‡in Girilen De§er',uk);
                2: repeat
                writeln(a,'. Dikd”rtgen i‡in 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 K‡k 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,'. Dikd”rtgen ˜‡in Girilen De§er',kk);
                end;
                until b = 1;
            end;
            a:= a+1;
            until a = 21;
readln;
end.
 

sdmh

Müdavim
Katılım
22 Ağustos 2008
Mesajlar
1,108
Reaksiyon puanı
14
Puanları
38
1 tane integer değişken daha tanımla (t) toplam

a:=1;
b:=1; in altına t:=0; ekle

until a = 21; in üstüne t := t + (uk*kk); ekle
 
Üst