FPS

Uždavė namų darbam parašyt programą, kuri, įvedus metų dieną, parodytų kokia tai savaitės diena (pirma metų diena pirmadienis).

Viskas būtų labai lengva, bet negalima naudot if.

Kaip tai padaryt? ^_^

Dabar man viskas gerai gaunasi, bet jei įvedu pvz. 7 ar 14 dieną, tai rodo 0 savaitės dieną.

case panaudojai? Ar masyvą?

Gi paprasta. Darai "metu_diena mod 7" ir pagal liekaną imi masyvo elementą.

case panaudojai? Ar masyvą?

Gi paprasta. Darai "metu_diena mod 7" ir pagal liekaną imi masyvo elementą.

Kas tie case, masyvas?

Nieko dar nžn, nes praeitą savaitę tik pradėjom pascal.

O dariau taip:

program Kelintadienis;
var a, b, c:integer;
begin
 WriteLn('Parašykite metų dieną ir sužinosite kokia tai savaitės diena.');
 ReadLn(a);
 b:= a mod 7;
 WriteLn('Tai yra ', b, ' savaitės diena');
 ReadLn;
end.

Iš kur užduotis? Jei ne iš vadovėlio, tai gal klaida padaryta.

Jei tau reik tik savaitės dienos skaičiaus tai prie b pridek vieną ir gausi.

Nieko gero taip negausiu, gausiu, kad pirma metų diena antradienis, o pagal sąlygą tai pirmadienis.

b := (a - 1) mod 7 + 1; ^_^

b := (a - 1) mod 7 + 1; :)

Ačiū ^_^

Prašom. Maniau, kad be T-Mix neapseisim ^_^

kamix manau ne taip galvojo, bet aš pasinaudojęs jo žodžiais pamačiau kaip turi būt :)

program Trikampiai;
var a, b, c, d: longint;
begin
 WriteLn('Įveskite pirmos trikampio kraštinės ilgį.');
 Readln(a);
 WriteLn('Įveskite antros trikampio kraštinės ilgį.');
 Readln(b);
 WriteLn('Įveskite trečios trikampio kraštinės ilgį.');
 Readln(c);
 [b]if a * a = b * b + c * c or b * b = a * a + c * c or c * c = a * a + b * b
 then writeln('Trikampis statusis.');[/b]
 Readln;
end.

Kas čia jam nepatinka? Rašo

Incompatible types: got "BOOLEAN" expected "LONGINT"

Kažkas blogai paryškintoj eilutėj.

Jau išsiaiškinau - čia dėl or. O kaip tada jį naudot?

Jei dar reikia tai programa:

program Trikampiai;
var a, b, c, d: longint;
begin
 WriteLn('I;veskite pirmos trikampio kraštine.s ilgi;.');
 Readln(a);
 WriteLn('I;veskite antros trikampio kraštine.s ilgi;.');
 Readln(b);
 WriteLn('I;veskite trec(ios trikampio kraštine.s ilgi;.');
 Readln(c);
 if a * a = b * b + c * c
then writeln('Trikampis statusis.')
	else if b * b = a * a + c * c
		then writeln('Trikampis statusis.')
			else if c * c = a * a + b * b
				then writeln('Trikampis statusis.')
					else writeln('Trikampis nera statusis.');
 Readln;
end.