Pascal - Konsolowe

Losowanie karty

Losowanie karty
Pascal - Konsolowe

Program: losujący kartę z talii do pokera.

Program pierw losuje oznaczenie karty, a potem wartość. Wykonywanie jest kontynuowane aż do wciśnięcia “N”.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program karty;
uses crt;
	var k,f:byte;
	z:char;
begin
	randomize;
	repeat
	clrscr;
	k:=random(4)+1;
	f:=random(6);
	write(chr(k),' ');
 	case f of
 		0: writeln('9');
 		1: writeln('10');
 		2: writeln('J');
 		3: writeln('D');
 		4: writeln('K');
 		5: writeln('A');
 	end;
	writeln;
	writeln;
	writeln('Czy zakonczyc program T/N');
 	repeat
 	z:=upcase(readkey);
 	until (z='T') or (z='N');
 	until (z='T');
end.