PDA

View Full Version : Case Of...Pascal



bgli
05-23-2011, 22:44
Някой може ли да ми направи някаква проста програма на паскал с case of... защото case-a не го разбирам много много.Мерси предварително

Chacho
05-24-2011, 00:22
program pojelaniq;

var

i: integer;

begin

writeln("Dobre doshli v programata za pojelania");
writeln;writeln;
writeln('Izberete na kogo iskate da izpratite pojelanie');
writeln;
writeln('1.Na sebe si');
writeln('2.Na Boiko Borisov');
writeln('3.Na vsichki pokemoni');
writeln;
write('Izbor:')
readln(i);
writeln;

case i of
1 : writeln('Egoist.');
2 : writeln('Naredi se na opashkata!');
3 : writeln('Chestit 3-ti rojden den!');
otherwise writeln('Nauchi se da broish do 3!');
end;

end.