Question

1.Napisz algorytm w postaci schematu blokowego, obliczając średnią arytmetyczną n-liczb calkowitych. 2.Napisz algorytm w postaci schematu blokowego, wprowadzając 10 liczb całkowitych i obliczający sumę liczb większych od 6. 3.Napisz algorytm w postaci schematu blokowego, znajdujący NWD dwóch liczb naturalnych. (algorytm Euklidesa). schemat blokowy lub program w pascalu :)

Answer 1

1)

uses crt;

var n,i:byte;

      a:word;

      suma:integer;

 

BEGIN

suma:=0;

clrscr;

writeln('Program do obliczania sredniej arytmetycznej z n liczb');

writeln;

write('Ile liczb chcesz wprowadzic: ');

readln(n);

For i:=1 to n do begin

                        write('Wprowadz ',i, ' liczbe: ');

                        readln(a);

                        suma:=suma+a;

                        end;

writeln('Srednia arytmetyczna wynosi: ',suma/n:2:0);

readln;

end.

 

2)

uses crt;

var i:byte;

      suma:integer;

      a:word;

 

BEGIN

clrscr;

writeln('Program obliczajacy sume liczb wiekszych od 6');

writeln;

FOR i:=1 to 10 do begin

                           write('Wprowadz ',i,' liczbe: ');

                           readln(a);

                           If a>=6 then suma:=suma+a;

                           end;

writeln('Suma wynosi: ',suma);

readln;

end.

 

3)

uses crt;
var a,b:real;

 

begin
clrscr;
writeln('Program do znajdowania najwiekszego wspolnego dzielnika');
writeln;

write('Wprowadz pierwsza liczbe: ');
readln(a);
write('Wprowadz druga liczbe: ');
readln(b);
while a<>b Do If a>b then a:=a-b
                               else b:=b-a;
writeln('Najwiekszy wspolny dzielnik to: ',a:3:0);
readln;
end.