Programlama | Programlama Dilleri | C Programlama Dili |C++

Anasayfa Programlama Pascal Bir Dizideki Elemanlar Arasında Düzgün Artış Olup Olmadığını Test Eden Program


Bir Dizideki Elemanlar Arasında Düzgün Artış Olup Olmadığını Test Eden Program

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:

  1. program bst_5_12;
  2. uses crt;
  3. var
  4. i,a,b:integer;
  5. c:char;
  6. bl:boolean;
  7. Dizi:array[1..100] of integer;
  8.  
  9. begin
  10. writeln('Soru BST_5_12');
  11.  
  12. while c <> '*'do
  13. begin
  14.  bl:=true;
  15.  writeln('Dizi boyutunu giriniz .. [1..100]');
  16.  readln(b);
  17.  writeln('Dizi degerlerini giriniz .. ');
  18.  
  19.  for i:=1 to b do
  20.  begin
  21.  readln(a);
  22.  Dizi[i]:=a;
  23.  end;
  24.  a:=Dizi[2]-Dizi[1];
  25.  
  26.  for i:=3 to b do
  27.   if Dizi[i]<>(Dizi[i-1]+a) then bl:=false;
  28.  
  29. if bl then begin writeln('Duzgun artan dizi..');
  30. end else begin writeln('Duzgun artis yok');
  31. end;
  32.  
  33. writeln('Programi sonlandirmak icin * karakterine basiniz');
  34. readln(c);

Yorumlar (0)
Sadece kayıtlı kullanıcılar yorum yazabilir!