Breaking News: Grepper is joining You.com. Read the official announcement!

Pascal Game

Bathila answered on April 9, 2022 Popularity 5/10 Helpfulness 2/10

answer Pascal Game

Pascal Game

Comment

program game;

var
        Deck    : Array [1..4,1..13] of integer;
        suit_var, card_var : Integer;
        card: integer;

        Shuffle : Array [1..4, 1 ..13] of integer;
        suit2_var, card2_var : Integer;

begin
     for suit_var := 1 to 4 do
                begin
			for card_var := 1 to 13 do
                  for card:= 1 to 13 do

                		Deck[suit_var] [card_var] :=card;
		end;

      for suit_var := 1 to 4 do
                begin
			for card_var := 1 to 13 do
                    begin

                if suit_var=1 then
                write('diamond');

                if suit_var=2 then
                write('clubs');

                if suit_var=3 then
                write('hearts');

                if suit_var=4 then
                write('spades');
                    write(',');

                 if card_var=11 then
                 write('Jack');

              if card_var=12 then
              write('Queen');

              if card_var=13 then
              write('King');

              if card_var=1 then
              write('Ace');

              if card_var=2 then
              write('Two');

              if card_var=3 then
              write('Three');

               if card_var=4 then
               write('Four');

              if card_var=5 then
              write('Five');

              if card_var=6 then
              write('Six');

             if card_var=7 then
             write('Seven');

               if card_var=8 then
               write('Eight');

               if card_var=9 then
               write('Nine');

              if card_var=10 then
              write('Ten');
                    write('    ');
		            end;

              end;
readln;
end.

Popularity 5/10 Helpfulness 2/10 Language pascal

Source: www.daniweb.com

Tags: pascal

Link to this answer
Share Copy Link

Contributed on Apr 09 2022

Bathila

0 Answers Avg Quality 2/10

Pascal Game

Contents

More Related Answers

Pascal Game

Grepper

Documentation

Social

Legal

Contact

Oops, You will need to install Grepper and log-in to perform this action.