Stránka 1 z 1
pomoc s pascalem
Napsal: úte 20. led 2009, 17:06
od kenas
Zdarec lidi, potreboval bych pomoc s par prikladame do informatiky
Nevite jak naprogramovat toto:
1. V promenych den, mesic a rok je ulozeno datum. Napiste program, ktery urci prislusne rocni obdobi
2. Sestavte program, ktery urcite vzdalenost mezi dvema body, jsou-li zadany souradnice kazdeho z nich. (A[x1,y1] B[x2,y2]).
Diky hosi!
Re: pomoc s pascalem
Napsal: úte 20. led 2009, 17:59
od Aigor
Vime
ad 1:
v kalendari si najdes kdy zacina jaro, leto,... ulozis do promennych
po zadani DD,MM,RR jednoducha IF rok, mesic, den je v intervalu THEN jaro, leto,...
ad 2:
predpokladejme ze obe souradnice pouzivaji stejny souradny system a jejich souradnice jsou vztazeny ke stejnemu pocatku
pak si udelej delta-X, delta-Y a pouzij pythagorovu vetu - mas tam pravouhlej 3uhelnik
Re: pomoc s pascalem
Napsal: úte 20. led 2009, 18:07
od kenas
hej diky... ta dvojka to byla spis jen o matice, ze jsem nevedel jak na to, ale ta jednicka je spis o programovani
mel jsme tohle, ale je to kompletne blbe a nedava to smysl...
Kód: Vybrat vše
program c20;
uses crt;
var den,mesic,rok:integer;
begin
TextBackground(1);
TextColor(yellow);
clrscr;
writeln('Zadej den, mesic a rok v cislech');
readln(den);
readln(mesic);
readln(rok);
if den>=21 and mesic>=6 then
writeln('Je leto');
if den>=23 and mesic>=9 then
writeln('Je podzim');
if den>=21 and mesic>=12 then
writeln('Je zima');
if den>=20 and mesic>=3 then
writeln('Je jaro');
readln;
readln;
end.
Re: pomoc s pascalem
Napsal: úte 20. led 2009, 18:11
od OndraSter
Musíš kontrolovat i horní části datumů....
Re: pomoc s pascalem
Napsal: úte 20. led 2009, 18:19
od kenas
no, ale jak to mam udelat aby to bylo v jedne podmince? To je prave to co nechapu. Kdyby me to prosim nekde napsal, tak mu poslu penize na pivo
Re: pomoc s pascalem
Napsal: úte 20. led 2009, 20:25
od Pavel.P.
Metodu závorkovací neznáš?
if ((mesic > 21)
and (den > 21))
and ((mesic < 21)
and ( den < 21))
then
Write('metoda zavorkovaci');