Pascal

1 uzd) duoti 4iu atkarpu ilgiai. ar is ju galima sudaryti romba, ar lygiagretaini ? parasykite programa, siam uzdaviniui spresti

 

2 uzd) parasykite programa elektroninio laikrodzio rodomam laikui rasti po vienos sekundes. pwz jei laikrodis rodo 23h 59min 59s, tai rezultatas turi buti 00h 00min 00s (viena sekunde veliau)

 

 

gal kas turit kompe šitus uždavinius išsprendę? :huh: arba šiaip geros dūšios žmonės ir galit parašyt? :)

Redagavo Sausio 16, 2008 titasas

1. formulių nepamenu

 

2. maždaug

 

var h,min,s,laikas:integer;

begin

read(h,min,s);

laikas:=h*3600+min*60+s+1;

h:=laikas div 3600;

laikas:=laikas mod 3600;

min:=laikas div 60;

s:=laikas mod 60;

writeln(h,min,s);

end;

 

gal kur kokią klaidą įvėliau. patikrink;)

1. formulių nepamenu

Forumulių jokių ir nereikia. Rombą galima sudaryti tada, kai visos keturios kraštinės vienodos, o lygiagretainį - kai yra dvi poros po dvi vienodo ilgio. :)

na tas kuri issprendiai, tai kazkas negerai, net nesuprantu kas, bandziau taisyt kazka, bet nieka nesigavo :?

Forumulių jokių ir nereikia. Rombą galima sudaryti tada, kai visos keturios kraštinės vienodos, o lygiagretainį - kai yra dvi poros po dvi vienodo ilgio. :)

 

būtent tai ir pavadinau formulėmis;)

 

einu fps įsijungsiu jei rasiu..

 

program Bevarde0;

var h,min,s,laikas:longint;

begin

read(h,min,s);

laikas:=h*3600+min*60+s+1;

h:=laikas div 3600;

if h=24 then h:=0;

laikas:=laikas mod 3600;

min:=laikas div 60;

s:=laikas mod 60;

writeln(h,'h ',min, 'min ',s,'s ');

end.

tam su rombais galima masyvą naudot ir ciklus? ta prasme, nieks neknis proto, kad naudoji kažką daugiau, nei mokėtės ar pnš?

tam su rombais galima masyvą naudot ir ciklus? ta prasme, nieks neknis proto, kad naudoji kažką daugiau, nei mokėtės ar pnš?

O kam tuos masyvus ir ciklus ten naudoti?

Paprasčiausiai: :)

program figuros;
var a, b, c, d: integer;
begin
read(a, b, c, d);
if (a = b) and (a = c) and (a = d)
	then writeln('Iš duotų atkarpų galima sudaryti rombą.')
	else writeln('Iš duotų atkarpų sudaryti rombo negalima.');
if ((a = b) and (c = d))
  or ((a = c) and (b = d))
  or ((a = d) and (b = c))
	then writeln('Iš duotų atkarpų galima sudaryti lygiagreitainį.')
	else writeln('Iš duotų atkarpų sudaryti lygiagreitainio negalima.');
Readln;
end.

Mėgstu aš juos:))