Programlama Sitesi Hazır Program | C++ Builder Java C/C++ Php .Net

Pascal programlama dilinde yazılmış bu programda konsol üzerinden kullanıcıdan alınan sayılar arasında düzgün artış olup olmadığının testi yapılmıştır. Söz konusu uygulamaya örnek verecek olursak kullanıcı birinci sayıyı 10 girip ikinci sayıyı 13 girdiğinde üçüncü sayının 16 olması gerekir ve dizi böylede devam etmek zorundadır.

Program Kodu:

program bst_5_12;
uses crt;
var
i,a,b:integer;
c:char;
bl:boolean;
Dizi:array[1..100] of integer;
 
begin
writeln('Soru BST_5_12');
 
while c <> '*'do
begin
 bl:=true;
 writeln('Dizi boyutunu giriniz .. [1..100]');
 readln(b);
 writeln('Dizi degerlerini giriniz .. ');
 
 for i:=1 to b do
 begin
 readln(a);
 Dizi[i]:=a;
 end;
 a:=Dizi[2]-Dizi[1];
 
 for i:=3 to b do
  if Dizi[i]<>(Dizi[i-1]+a) then bl:=false;
 
if bl then begin writeln('Duzgun artan dizi..'); 
end else begin writeln('Duzgun artis yok');
end; 
 
writeln('Programi sonlandirmak icin * karakterine basiniz');
readln(c);
end;
end.