👤
a fost răspuns

Implementați in limbajul Pascal o aplicație sa realizeze urmatoarele cerinte :
1)Contine un generator de numere aleatorii care sa furnizeze valori pentru punctele 2 si 3
2)Generati un sir aleator de 50 de litere mici . Aflati sirul si de cate ori apare in sir caracterul "c"
3)Generati un vector de 20 de numere intregi.Afisati vectorul si cel mai mic element din vector .​

Imi trebuie urgenttt !!

Răspuns :

Răspuns:

program aleator;

var ch:char;

   num, i, cod, contor, minim:integer;

   A: array[1..20] of integer;

begin

 { punctul 1 }

 randomize;

 writeln('2) Sirul de 50 litere mici, generate aleator: ');

 contor:=0;

 for i:=1 to 50 do

   begin

     cod:=97+random(27);

     ch:=chr(cod);

     write(ch, ' ');

     if ch='c' then inc(contor);

   end;

   writeln;

   writeln('Caracterul ''c'' a aparut de ',contor,' ori');

   {generare vector din 20 numere intregi aleatorii}

   { si aflarea celui mai mic }

   minim:=102;

   for i:=1 to 20 do

     begin

       num:=random(100);

       A[i]:=num;

       if num<minim then minim:=num;

     end;

   writeln; writeln('3) vector cu 20 numere (elemente) aleatorii:');

   for i:=1 to 20 do

     write(A[i],'   ');

   writeln;

   writeln('cel mai mic element este ',minim);

end.

Explicație:

la vector am generat numai nenegative. Dacă doreşti şi negative mai medităm

Vă mulțumim că ați ales să vizitați platforma noastră dedicată Informatică. Sperăm că informațiile disponibile v-au fost utile. Dacă aveți întrebări suplimentare sau aveți nevoie de sprijin, nu ezitați să ne contactați. Vă așteptăm cu drag și data viitoare! Nu uitați să adăugați site-ul nostru la favorite pentru acces rapid.


Wix Learning: Alte intrebari