Skocz do zawartości


Zdjęcie

[Pascal] Ilośc znaków ?


  • Zamknięty Temat jest zamknięty
1 odpowiedź w tym temacie

#1 Iss66

Iss66

    Początkujący

  • 11 postów

Napisano 20 02 2009 - 15:41

Mam napisany program z użyciem tablic i funkcji losowej..
Program działa, tylko teraz mam problem, co zastosować, żeby program wyświetlał ilość tych znaków. ?
W tym wypadku będzie to '@' i '#'
Kod źródłowy:
CODE-BOX
Program cos_1;
uses crt;
Var
i, j : byte;
Z1, Z2: CHAR;
znaki : array [1..10 , 1..10] OF CHAR;
Begin
ClrScr;
randomize;
Z1:= '@';
Z2:= '#';
For i:= 1 to 10 do
for j:= 1 to 10 do
if random (2) = 0 then znaki [i,j]:=z1
else znaki [i,j]:=z2;
for i:= 1 to 10 do
begin
for j:= 1 to 10 do
write (znaki[i,j]);
WriteLn;
End;
ReadLn;
End.


Z góry dziękuję za pomoc. :lol:

  • 0

#2 Chinka

Chinka

    Seal of Approval

  • 426 postów

Napisano 22 02 2009 - 20:32

W tym przypadku to jest łatwe, bo ma szukać tylko zer i jedynek. Więc robisz podwójną pętlę for i sprawdzasz, czy dany element tablicy to zero lub jedynka. Zliczasz to jakimś licznikiem i podajesz wartość.

  • 0

Zobacz więcej tematów z tagiem: Turbo Pascal



Użytkownicy przeglądający ten temat: 0

0 użytkowników, 0 gości, 0 anonimowych