Jump to content

Emhyr

Użytkownicy
  • Content Count

    9
  • Joined

  • Last visited

Community Reputation

0 Neutralny

About Emhyr

  • Rank
    Nowy na forum
  1. Emhyr

    Problem z procedurą

    Dzięki, chodziło właśnie o "var" - teraz działa
  2. Witam! Jestem własnie w trakcie pisania malutkiego programiku w ramach którego dwie zmienne (a, b) przyjmują wartości losowe z zakresu 0-12. Po wylosowaniu procedura ma do zmiennej typu string zapisywać odpowiedni wyraz w zależności od wylosowanej liczby. Procedura wygląda następująco: Procedure Karta(x:Integer; y:String); Begin Case x of 0: y:='dwojka'; 1: y:='trojka'; 2: y:='czworka'; 3: y:='piatka'; 4: y:='szostka'; 5: y:='siodemka'; 6: y:='osemka'; 7: y:='dziewiatka'; 8: y:='dziesiatka'; 9: y:='walet'; 10: y:='dama'; 11: y:='krol'; 12: y:='as'; End; End; Po przerobieniu przez program procedury na ekranie ma się wyświetlać wyraz który został przypisany do wylosowanej liczby. Wywołanie procedury wygląda następująco: Karta(a, c); a to zmiena Integer, c to zmienna String. Niestety po poleceniu WriteLn©; nic się nie wyświetla, zmienna "c" jest pusta. Co jest nie tak? Jak to zrobić? Pozdrawiam!
×
×
  • Create New...