Dvi nesunkios Pascal užduotis

Sveiki, reikia, kad padėtumėte išspresti pora nesunkių pascal uždavinių. Čia turi būti if`as ir dar kažkas berods.

1. Pasakoje apie Eglę Žalčių Karalienę yra epizodas, kuriame Žilvinas Eglei, norinčiai aplankyti tėvus, skiria užduotį: suverpti niekad nesibaigiantį pluošto kuodelį (pirma užduotis, žymima u1), sunešioti geležines klumpes (antra užduotis, žymima u2) ir iškepti pyragą nenaudojant jokių indų (trečia užduotis, žymima u3). Parašykite programą, kuri ekrane parodytų rezultatą „Žilvinas Eglę namų aplankyti išleis“, jei Eglė įvykdys visas jo užduotis, arba „Žilvinas Eglės aplankyti namų neišleis“, jei Eglė neįvykdys bent vienos užduoties. Spręsdami šį uždavinį, kiekvieną įvykdytą užduotį laikykite lygia 1, o neįvykdytą – lygia 0.

Pasitikrinkite: kai u1 = 1, u2 = 1, u3 = 1, tuomet ekrane turi būti rodomas pranešimas: Žilvinas Eglę namų aplankyti išleis. Kai u1 = 1, u2 = 0, u3 = 1, tuomet ekrane turi būti rodomas pranešimas: Žilvinas Eglės aplankyti namų neišleis.

2. Du broliai nesutaria, kuriam tvarkyti kambarį. Jie meta kauliuką. Jei iškrenta skaičius 1,3 arba 5 - kambarį tvarko jaunėlis. Jei 2,4,6 - vyresnėlis. Parašykite programą, kuri įvedus iškritusį skaičių k, ekrane rodytu pranešimą "Kambarį tvarkys jaunėlis", arba "Kambarį tvarkys vyresnėlis"

Pasitikrinkite: kai k =1, tuomet ekrane turi būti rodomas pranešimas: Kambarį tvarkys jaunėlis. Kai k = 4, tuomet turi būti rodomas pranešimas: Kambarį tvarkys vyresnėlis.

IŠ ANKSTO DĖKOJU

Nu visai jau apgailėtina. Negi sunku pačiam pabandyti parašyti? Užduotys tiesiog juokingos. Jeigu kas nesigaus - klausk ir paaiškinsime. ;)

Bandžiau rašyti aš tą programą. Viskas gaunasi, kol vienas skaičius yra, pvz antroj užduotį ten lyginiai, nelyginiai skaičiai.. Ir kaip pirmoje užduotyje padaryt, ten su tais u1, kad įvedus taip būtų 1, įvedus ne - 0?

program pirma;
var u1, u2, u3 : integer;
begin
 WriteLn('duomenys');
 Readln(u1, u2, u3);
 if (u1 = 1) and (u2 = 1)and(u3 = 1)
   then writeln('Žilvinas Eglę namų aplankyti išleis')
   else writeln('Žilvinas Eglės aplankyti namų neišleis');
 readln;
end.

program antra;
var k : integer;
begin
 WriteLn('duomenys: ');
 Readln(k);
 if k mod 2 <> 0
   then writeln('Kambarį tvarkys jaunėlis')
   else writeln('Kambarį tvarkys vyresnėlis');
 readln;
end.

Bet užduotys tai absurdiškos, gal paskaityk knygų nereiks nesąmoningų temų kurt

program pirma;
var u1, u2, u3 : integer;
begin
 WriteLn('duomenys');
 Readln(u1, u2, u3);
 if (u1 = 1) and (u2 = 1)and(u3 = 1)
   then writeln('Žilvinas Eglę namų aplankyti išleis')
   else writeln('Žilvinas Eglės aplankyti namų neišleis');
 readln;
end.

 

program antra;
var k : integer;
begin
 WriteLn('duomenys: ');
 Readln(k);
 if k mod 2 <> 0
   then writeln('Kambarį tvarkys jaunėlis')
   else writeln('Kambarį tvarkys vyresnėlis');
 readln;
end.

Bet užduotys tai absurdiškos, gal paskaityk knygų nereiks nesąmoningų temų kurt

Labai dėkingas! Viską buvau supratęs išskyrus : if (u1 = 1) and (u2 = 1)and(u3 = 1) - nežinojau tų skliaustų ir kad reikia rašyti and.. dėjau visokius kablelius ir t.t

Bandžiau rašyti aš tą programą. Viskas gaunasi, kol vienas skaičius yra, pvz antroj užduotį ten lyginiai, nelyginiai skaičiai.. Ir kaip pirmoje užduotyje padaryt, ten su tais u1, kad įvedus taip būtų 1, įvedus ne - 0?

tai kam prašai, kad padėt antra jei ten tik vienas skaičius ir yra. :D tu gal bent užduotį nrml perskaityk, nes čia nei taip nei ne įvedinėt nereik. ir nebeteršk kita kart forumo su tokiom nesąmonėm eik paskalio pasimokyt...

man baisu atrodo kai tokius dalykus bando užkrauti kitiems, net normaliai nepabandęs kažką daryti.