Question

1.napisz procedure {turbo pascal} w ktorej zapełnisz tablice liczbami losowymi

2.napisz procedure {turbo pascal} w której komputer oblicza ile razy wylosowałą sie dama liczba(nie wpsizjesz jej tylko zaznaczas jako parametr) w tablicy

3.napisz procedure {turbo pascal} w której liczy wszyskie(z zakresu 0 do 50) ile razy zostały wylosowanee

ps. prosze to umiesci w jednym rpogramie i cały jak mozna :) z gory dziękuje

Answer 1

program tablica;
uses CRT;
var
los,i,s:integer;
tab:array[1..50] of integer;

procedure zapelnij(min,max:integer);
 begin
  for i:=1 to 50 do
   begin
    los := random(max+min);
    tab[i]:=los;
     if (i<50) then
      write(tab[i],', ')
     else
      write(tab[i],'.');
   end;
  writeln;
 end;

procedure szukaj(liczba:integer);
 begin
  s:=0;
  for i:=1 to 50 do
   begin
    if (tab[i]=liczba) then
     begin
      s:=s+1;
     end;
   end;
   if (s>=2) and (s<=4) then
   writeln('Znalazlem ',s,' liczby.')
   else if (s=1) then
   writeln('Znalazlem ',s,' liczbe.')
   else
   writeln('Znalazlem ',s,' liczb.');
 end;

procedure zakres(min,max:integer);
 begin
  s:=0;
  for i:=1 to 50 do
   begin
    if (tab[i]>=min) and (tab[i]<=max) then
    begin
    s:=s+1;
    end;
   end;
  writeln('Liczby z zakresu ',min,'-',max,' wystapily ',s,' razy.');
 end;

begin
clrscr;
randomize;
 zapelnij(0,100);
 szukaj(15);
 zakres(0,50);

readln;
end.

 

Pozdrawiam :)