Algoritma ve programlamaya Giriş

end.
yuzde:=say*0.18;
fak:=1;
for i:=1 to say do
fak:=fak*i;
writeln('Sayi Karesi Kubu Yuzdesi Faktoriyeli');
write(' ',say,' ',kare,' ',kup,' ',yuzde:4:2,' ',fak);
readln;
Örnek : Bir den girilen N sayısına kadarki tam sayıları toplayan pascal programını yazınız
Var
i, N, Toplam : Integer;
Begin
End.
Write('Son sayıyı gir: '); Readln (N);
Toplam := 0;
For i := 1 To N Do
Toplam := Toplam + i;
Writeln('1´den N´e kadar sayıların toplamı = ', Toplam);
Readln;
Örnek: Dışardan girilen bir ismi yine dışardan girilen bir sayı kadar yazan programı yazınız.
var
i,x:integer;
isim:string[20];
begin
write('isim girin : ');
readln(isim);
write('isminiz kac defa yazılsın : ');
readln(x);
for i:=1 to x do
writeln(isim);
readln;
end.
Algoritma ve Programlamaya Giriş 46 Öğr. Gör. Mustafa AKSU