padėkit išspręst vieną uždavinį JPM (Pascal)

Sveiki, padėkit išspręst paskutinę užduotį:

20. Kibernetinis robotas gali judėti keturiomis kryptimis (0111 – šiaurė, 1110 – pietūs,

1011 – rytai, 1101 – vakarai) ir supranta tris skaitmenines komandas: 0 – judėti tiesiai, 1 –

pasukti į dešinę, -1 – pasukti į kairę.

Pradiniai duomenys: keturženklis skaičius, sudarytas iš nulių ir vienetų, reiškiantis

pradinę roboto kryptį, ir skaičius, reiškiantis komandą.

Užprogramuokite robotą taip, kad jis, įvykdęs komandą, ekrane

išspausdintų savo kryptį.

Pavyzdžiui, jeigu pradiniai duomenys būtų 0111 -1, rezultatas būtų

pranešimas Vakarai.

galėčiau sumokėt.... (bet daug neturiu)

program Robotas;
var kryptis, komanda : integer;
begin
writeln('Kryptis ir komanda:');
readln(kryptis, komanda);
if ((komanda = 1) and (kryptis = 1110)) or ((komanda = -1) and (kryptis = 0111)) or ((komanda = 0) and (kryptis = 1101)) then
   writeln('Vakarai')
else if ((komanda = 1) and (kryptis = 0111)) or ((komanda = -1) and (kryptis = 1110)) or ((komanda = 0) and (kryptis = 1011)) then
   writeln('Rytai')
else if ((komanda = 1) and (kryptis = 1011)) or ((komanda = -1) and (kryptis = 1101)) or ((komanda = 0) and (kryptis = 1110)) then
   writeln('Pietus')
else if ((komanda = 1) and (kryptis = 1101)) or ((komanda = -1) and (kryptis = 1011)) or ((komanda = 0) and (kryptis = 0111)) then
   writeln('Siaure')
else
	writeln('Klaida!');
readln;
end.

Oo, dar vienas JPM narys :) Padariau sita uzdavini savo ismastymais, bet uzdavinys tikrai nesukonkretintas, todel buvo galima spresti keliais budais, nes nebuvo zinoma, ar robotas ziuri visa laika i siaure, kad ir kuriame taske butu, o buvo tik pradines koordinates... Beje, kiek surinkai is pirmojo darbo?

program Robotas;
var kryptis, komanda : integer;
begin
writeln('Kryptis ir komanda:');
readln(kryptis, komanda);
if ((komanda = 1) and (kryptis = 1110)) or ((komanda = -1) and (kryptis = 0111)) or ((komanda = 0) and (kryptis = 1101)) then
   writeln('Vakarai')
else if ((komanda = 1) and (kryptis = 0111)) or ((komanda = -1) and (kryptis = 1110)) or ((komanda = 0) and (kryptis = 1011)) then
   writeln('Rytai')
else if ((komanda = 1) and (kryptis = 1011)) or ((komanda = -1) and (kryptis = 1101)) or ((komanda = 0) and (kryptis = 1110)) then
   writeln('Pietus')
else if ((komanda = 1) and (kryptis = 1101)) or ((komanda = -1) and (kryptis = 1011)) or ((komanda = 0) and (kryptis = 0111)) then
   writeln('Siaure')
else
	writeln('Klaida!');
readln;
end.

Ne greičiau su case daryt?

Greiciau su case, taciau jau paveluotai :)

ačiū už atsakymą, bet jau spėjau pats išspręst :)

program