pomoc s pascalem

[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!

[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

[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.

[OndraSter]

Musíš kontrolovat i horní části datumů....

[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

[Pavel.P.]

Metodu závorkovací neznáš?
if ((mesic > 21) and (den > 21)) and ((mesic < 21) and ( den < 21)) then
Write('metoda zavorkovaci');