Keletas užduočių...

Aš esu naujokas tokiems dalykams, mėginu viską atlikti savarankiškai, bučiau labai dėkingas jeigu Jūs galėtumėte patikrinti šias programas, pasakyti kur kas blogai?

1 programa

Pirmosios olimpinės žaidynės įvyko 1896 metais ir toliau organizuojamos kas ketveri metai. Jei žaidynės neįvyksta, tie metai vistiek laikomi olimpiniais, o žaidynėms skiriamas eilės numeris. Parašykite programą, kuri surastų m-ųjų olimpinių žaidynių numerį n. Jei metai neolimpiniai, turi būti spausdinama „Metai neolimpiniai“.

program Zaidynes;

var m : longint;

begin

WriteLn('Iveskite data');

Readln(m);

If m mod 2=0 then writeln('Metai olimpiniai')

else writeln('Metai neolimpiniai');

Readln;

end.

2 programa

Parašykite programą, spausdinančią pusę kintamojo x reikšmės, jei įvesta x reikšmė lyginė.

program Bevarde5;

var x : longint;

begin

WriteLn('Iveskite lygini skaiciu');

Readln(x);

If x mod 2=0 then writeln('Puse ivesto skaiciaus reiksme', x/2:7:1)

else writeln('Skaicius nelyginis');

Readln;

end.

3 programa

Duotis trys skaičiai - atkarpų ilgiai. Parašykite programą, kuri patikrintų ar galima iš šių atkarpų sudaryti trikampį.

program Bevarde6;

var a, b, c : real;

begin

WriteLn('Iveskite trys reiksmes');

Readln(a, b, c);

If (a<b+c)and

(b<a+c)and

(c<a+b)

then writeln('Trikampis galimas')

else writeln('Trikampis negalimas :(');

Readln;

end.

Aš esu naujokas tokiems dalykams, mėginu viską atlikti savarankiškai, bučiau labai dėkingas jeigu Jūs galėtumėte patikrinti šias programas, pasakyti kur kas blogai?

 

1 programa

 

Pirmosios olimpinės žaidynės įvyko 1896 metais ir toliau organizuojamos kas ketveri metai. Jei žaidynės neįvyksta, tie metai vistiek laikomi olimpiniais, o žaidynėms skiriamas eilės numeris. Parašykite programą, kuri surastų m-ųjų olimpinių žaidynių numerį n. Jei metai neolimpiniai, turi būti spausdinama „Metai neolimpiniai“.

 

 

program Zaidynes;

var m : longint;

begin

WriteLn('Iveskite data');

Readln(m);

If m mod 2=0 then writeln('Metai olimpiniai')

else writeln('Metai neolimpiniai');

Readln;

end.

// Kodėl nusprendei, kad lyginiai metai - olimpiniai metai?

 

2 programa

 

Parašykite programą, spausdinančią pusę kintamojo x reikšmės, jei įvesta x reikšmė lyginė.

 

 

 

program Bevarde5;

var x : longint;

begin

WriteLn('Iveskite lygini skaiciu');

Readln(x);

If x mod 2=0 then writeln('Puse ivesto skaiciaus reiksme', x/2:7:1)

else writeln('Skaicius nelyginis');

Readln;

end.

 

// ne x/2, o x div 2

 

 

3 programa

 

Duotis trys skaičiai - atkarpų ilgiai. Parašykite programą, kuri patikrintų ar galima iš šių atkarpų sudaryti trikampį.

 

 

 

program Bevarde6;

var a, b, c : real;

begin

WriteLn('Iveskite trys reiksmes');

Readln(a, b, c);

If (a<b+c)and

(b<a+c)and

(c<a+b)

then writeln('Trikampis galimas')

else writeln('Trikampis negalimas :(');

Readln;

 

end.

// Šitą tingiu tikrinti, bo jau turiu išeiti, bet principas toks:

if sqr(a) = sqr(b) + sqr© then // Galimas

else if sqr(b) = sqr(a) + sqr© then //galimas

else if sqr© = sqr(a) + sqr(b) then // galimas

else

//negalimas

 

// Žinoma, galima dirbti ir per tavo pasirinktą požymi, bet tada reikia normalų ifą daryti, o ne tą nesąmonę, kurią padarei tu. :-)

Atsakiau citatoje.

Atsakiau citatoje.

Atsiprašau, bet kur tu mėginai "ištaisyti" 3 programą, parašei nesąmonę, čia tinka tik stačiajame trikampyje, o kitiems ne.Beje pirmoje lyginiai todėl, kad olimpiada vyksta, kas keturis metus.

Atsiprašau, bet kur tu mėginai "ištaisyti" 3 programą, parašei nesąmonę, čia tinka tik stačiajame trikampyje, o kitiems ne.Beje pirmoje lyginiai todėl, kad olimpiada vyksta, kas keturis metus.

Teisingai, neperskaičiau pirmos sąlygos. Turėtų veikti, pakeitus 'AND' į 'OR' - juk negali a, b, ir c būti didžiausios kraštinės vienu metu. :-)

Dėl olimpinių metų - neįsižeisk, bet pabandyk perskaityti savo teiginį. Ar tu tikrai nori pasakyti, kad kiekvieni lyginiai metai yra olimpiniai todėl, kad olimpiada vyksta kas keturis metus? :-)

Tau reikia tikrinti: ar įvestas metų skaičius yra didesnis arba lygus už 1896 ir ar metai yra dalūs iš 4. Tai yra klasikinis 'mod' operatoriaus įsisavinimo uždavinys. Į google įvedus 'olimpiniai metai pascal' galima rasti, pvz., šitą linką: http://css.lt/forumas/showthread.php?t=24461 . Nebuvo taip sunku, tiesa? :-)

Teisingai, neperskaičiau pirmos sąlygos. Turėtų veikti, pakeitus 'AND' į 'OR' - juk negali a, b, ir c būti didžiausios kraštinės vienu metu. :-)

 

Dėl olimpinių metų - neįsižeisk, bet pabandyk perskaityti savo teiginį. Ar tu tikrai nori pasakyti, kad kiekvieni lyginiai metai yra olimpiniai todėl, kad olimpiada vyksta kas keturis metus? :-)

 

Tau reikia tikrinti: ar įvestas metų skaičius yra didesnis arba lygus už 1896 ir ar metai yra dalūs iš 4. Tai yra klasikinis 'mod' operatoriaus įsisavinimo uždavinys. Į google įvedus 'olimpiniai metai pascal' galima rasti, pvz., šitą linką: http://css.lt/forumas/showthread.php?t=24461 . Nebuvo taip sunku, tiesa? :-)

Taip tiesa, dėkui..

Trečią labai panašią rašiau tik su kordinatėm, tai išsikarpytum ir gautum gerą(beje, ne pats optimaliausias variantas čia)

{Surandam koks yra trikampis? Status, bukas,smailas ar isvis neegzistuoja toks trikampis}
program mini_uzduotele_spalio_06;
var x1,x2,x3,y1,y2,y3:integer;
   a,b,c,temp1,temp2:real;
begin
 WriteLn('Iveskite x1 x2 x3 y1 y2 y3 koordinates!');
 Read(x1,x2,x3,y1,y2,y3);

 a:= sqrt(sqr(x2-x1)+ sqr(y2-y1));                    //gaunu krastiniu ilgius
 b:= sqrt(sqr(x3-x1)+ sqr(y3-y1));
 c:= sqrt(sqr(x3-x2)+ sqr(y3-y2));

 if a > c then begin                                 //nustatau, kad ilgiausia krastine butu priskirta reiksmei c
   temp2:= a;
   a:= c;
   c:= temp2
           end;
 if b > c then begin
   temp2:= b;
   b:= c;
   c:= temp2;
           end;
   temp1:= round(a*a+b*b);

 if (a+b>c) and (a+c>b) and (b+c>a)                  //tikrinam reiksmes tik jeigu trikampis egzistuoja
  then
    begin
    if temp1 = round(c*c) then writeLn('Trikampis yra status!')
                  else if temp1 < round(c*c) then WriteLn('Trikampis yra bukas!')
                                             else WriteLn('Trikampis yra smailas!');
    end
  else
   WriteLn('Toks trikampis neegzistuoja!');
end.

1 programa

 

Pirmosios olimpinės žaidynės įvyko 1896 metais ir toliau organizuojamos kas ketveri metai. Jei žaidynės neįvyksta, tie metai vistiek laikomi olimpiniais, o žaidynėms skiriamas eilės numeris. Parašykite programą, kuri surastų m-ųjų olimpinių žaidynių numerį n. Jei metai neolimpiniai, turi būti spausdinama „Metai neolimpiniai“.

 

 

program Zaidynes;

var m : longint;

begin

WriteLn('Iveskite data');

Readln(m);

If m mod 2=0 then writeln('Metai olimpiniai')

else writeln('Metai neolimpiniai');

Readln;

end.

Juk reikia surasti dar olimpinių metų numerį

program Zaidynes;
var m : longint;
metai : integer;
begin
WriteLn('Iveskite data');
Readln(m);
metai := m - 1896;
If metai mod 4 = 0 then
begin
writeln('Metai olimpiniai');
WriteLn('Metų numeris: ',metai div 4);
end
else writeln('Metai neolimpiniai');
Readln;
end.

kas bus jei ivesi maziau uz 1896m?

beje jei pradinis duomuo 2000 => raso 26 zaidynes , nors 2000 m. vasaros olimpinės žaidynės (arba XXVII olimpinės žaidynės)

kas bus jei ivesi maziau uz 1896m?

beje jei pradinis duomuo 2000 => raso 26 zaidynes , nors 2000 m. vasaros olimpinės žaidynės (arba XXVII olimpinės žaidynės)

program zaidynes;
var m:integer;
begin
 WriteLn('Iveskite zaidiniu data!');
 ReadLn(m);
 if m < 1896  then WriteLn('Zaidynes tuo metu dar nevyko')
              else
                    if (m - 1896) mod 4 = 0 then WriteLn('Metai olimpiniai ir zaidines yra ', (m-1896) div 4 + 1)
                                            else WriteLn('Neolimpiniai metai');
 Readln;
end.