Olimpiada məsələləri

[elviz]

Forumçular burada hamı öz proqramlaşdırma qabiliyyətlərini göstərə bilər.
Tələb olunan şərtlər.
1. Hər hansı isə bir proqramlaşdırma dilini bilmək
2. Məntiqi biliyə malik olmaq

Məsələni həll etdikdən sonra:
1. Prqoramın kodunu yazmaq forumda
2. Proqramın kompilədən sonra yaratdığı exe faylı yerləşdirmək

_______ birinci məsələ ___________
1. Səlis ədədlər

İstənilən iki qonşu rəqəmlərinin fərqi modulca vahidi aşmayan ədədi səlis ədəd adlandıracağıq. N-rəqəmli səlis ədədlərin sayını tapan proqram tərtib edin.
Giriş verilənləri
Giriş verilənləri bir neçə testdən ibarətdir. Hər bir test N (1≤N≤ 20) natural ədədindən ibarətdir. Testlər 0 ədədi yazılmış sətirlə bitir.
Çıxış verilənləri
Çıxış verilənlərinin hər bir sətrində yeganə axtarılan ədəd – N-rəqəmli səlis ədədlərin sayı durur. Çıxış verilənləri 0 yazılmış sətirlə bitir.

Nümunə
Giriş verilənləri Çıxış verilənləri

2 26
11 381444
0 0

[EstA]

Kod:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Label1: TLabel;
    XPManifest1: TXPManifest;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var n,i,j,ai,bi,k,kl,m1,m2:longint;
a,b,s:string[21];
begin


k:=0;
n:=strtoint(edit1.Text);

if (n<>1) and (n<7) then
begin
a:='1';
b:='9';

for I:=1 to  n-1 do
begin
a:=a+'0';
b:=b+'9';
end;



ai:=strtoint(a);
bi:=strtoint(b);

for i:=ai to bi do
  begin
   kl:=0;
   s:=inttostr(i);
    for j:=1 to n-1 do
      begin
        m1:=strtoint(copy(s,1,1));
        m2:=strtoint(copy(s,2,1));

        if abs(m1-m2)<2 then
         kl:=kl+1;

         delete(s,1,1);
      end;
      if kl=n-1 then k:=k+1;
  end;

edit2.Text:=inttostr(k);
end    else
if n=1 then

edit2.Text:='0' else
edit2.Text:='Bacarmadiq :)'

end;

end.

aglima bir cox alqoritmler geldi 1 in secib eledim 20-30 deqeye amma
n-in 0,1,2,3,4,5,6 - qiymetlerinde duzgun ishleyir )
her halda 4-5 bal goturmek olardi belke de bu meseledem )
vaxt elesem tam yazaram )

Exe-ni yüklə (168 kb)

[elviz]

Aferin Sene Esta təbi ki 4-5 balın özüdə çox yaxşıdır.

[Ulphat]

Men basqa meseleleri hell etmisem,ama onlari nece gonderim bilmirem.
Sertini de men versem olaaaar ?

[Ulphat]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var s1,s2,s:string;
i:LongInt; {Int64 verdim dovrde islede bilmedim. yeqin 13-e qeder hesablayar}
j,k,n,m:integer;
begin
m:=StrToInt(Edit1.Text);
s1:='1';
s2:='9';
for i := 1 to m - 1 do
begin
s1:=s1+'0';
s2:=s2+'9';
end;
n:=0;
if m>1 then
for i := StrToInt(s1) to StrToInt(s2) do
begin
s:=IntToStr(i);
k:=0;
for j := 1 to m - 1 do
if Abs(StrToInt(s[j+1])-StrToInt(s[j]))<2 then Inc(k);
if k=m-1 then Inc(n);
end
else
n:=0;
Label1.Caption:=IntToStr(n);
end;

end.

   
indi hevesim yoxdu, birazdan hamisini hesablayan proqrami yazacam
exe-ni yukleye bilmedim. eeee mellim bu ne isdi eeee

[EstA]

kodu qoymaq lazim deyildi gorduz o deyqe kopyaladilar )

[Ulphat]

Men kopyalamamisam yaxsi baxsaniz mende 8-e qeder tapir. sizden frqli olaraq.:idea:daha asan yolunu da dapmisam ama yazmaga erinirem.

[elviz]

Yaz yaz
erinmekle bir wey cixmaz