Gönderen Konu: Pascalda Üs Alma,Üsleri Toplama  (Okunma sayısı 2099 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı asi kaptan

  • Deneyimli Üye
  • *
  • İleti: 332
  • Rep Gücü : 205
  • Cinsiyet: Bay
  • "Oyun bitince, şah da piyon da aynı kutuya konur''
    • Profili Görüntüle
    • İLLEGALPC
Pascalda Üs Alma,Üsleri Toplama
« : Ağustos 04, 2009, 12:59:20 ÖÖ »

a4 +a3 + a2 + a1 +1 sonucunu bulan program
program us_alma;
uses crt;
var
i,us,sayi,carpim,toplam:integer;
begin
clrscr;
Writeln(' sayi gireceksiniz');readln(sayi);
Writeln('kuvvet giriniz');readln(us);
carpim:=1;
toplam:=1;
for i:=1 to us do
begin
carpim:=carpim*sayi;
toplam:=toplam+carpim;
end;
writeln('carpim : ',carpim,' toplam : ',toplam);
readln;
end.