Skocz do zawartości


Zdjęcie

Schemat blokowy dla tablicy


  • Zaloguj się, aby dodać odpowiedź
Brak odpowiedzi do tego tematu

#1 pejakk

pejakk

    Nowy

  • 1 postów

Napisano 09 03 2011 - 22:27

Witam, mam dany taki program, prosiłbym o narysowanie do niego schematu blokowego, ponieważ nie znam się na tym jak robić je na tablicach. Dziękuję z góry za pomoc:)

type
Ttablica=array[1..3] of byte;

var
tab:Ttablica;
i,j,licznik1,licznik2:longint;
wynik:real;

begin
randomize;
for j:=1 to 1000000000 do
begin
licznik1:=0;
for i:=1 to 3 do
begin
tab[i]:=random(2);
if tab[i]=0 then inc(licznik1);
end;
if licznik1>0 then inc(licznik2);
{writeln('W ',i,' rzutach orzelek wypadl ',licznik1,' razy ');}
end;
wynik:=licznik2/j*100;
writeln('Prawdopodobienstwo wyrzucenia przynajmniej 1 orzelka w ',i,' rzutach');
writeln('przy wykonaniu ',j,' prob wynioslo ',wynik:2:3);
readln;
end.

  • 0

Zobacz więcej tematów z tagiem: schemat blokowy



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

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