Question

napisz program obliczający iloczyn n liczb rzeczywistych różnych od zera podawanych z klawiatury język Turbo Pascal wszystko pięknie łądnie jeśłi chodzi o mnożenie ale nie wiem jak zawrzec w tym zeby liczby byly rozne od zera mam tyle proszę o jak najszybszą pomoc.

var a,iloczyn:real;

i,n: longint;

begin iloczyn:=1;

writeln('Ile liczb?');

readln(n); for i:=1 to n do

begin writeln('Podaj liczbe'); readln(a); if a=0 then

begin writeln('Podales zero!');end; iloczyn:=iloczyn*a; end;

writeln('iloczyn liczb rzeczywistych wynosi ', iloczyn:2:2);

readln; end.

Answer 1

To może nie jest najlepsze rozwiązanie, ale powinno działać (modyfikacja fragmentu powyżej):

begin writeln('Podaj liczbe'); readln(a); if a=0 then

begin writeln('Podales zero!'); i:=i-1;end; iloczyn:=iloczyn*a; end;

writeln('iloczyn liczb rzeczywistych wynosi ', iloczyn:2:2);

 

Mało estetycznie, ale najmniej ingeruje w to co sama zrobiłś

 

Lepiej by pewnie jednak było dodać/zmienić na np. pętle while, czyli coś takiego (nie mam teraz pascala nie moge sprawdzic):

begin writeln('Podaj liczbe'); readln(a);

while a!=0 do 
begin 
iloczyn:=iloczyn*a;

end;

end;

writeln('iloczyn liczb rzeczywistych wynosi ', iloczyn:2:2);

readln; end.