zadanie w pascalu

Odpowiedz


RECAPTCHA_EXPLAIN
Emotikony
:D :) :( :o 8O :? 8) :lol: :x :P :oops: :cry: :evil: :twisted: :roll: ;) :!: :?: :idea: :arrow: :| :mrgreen:

BBCode włączony
[Img] włączony
[Flash] wyłączony
[URL] włączony
Emotikony włączone

Przegląd tematu
   

Rozwiń widok Przegląd tematu: zadanie w pascalu

Re: zadanie w pascalu

autor: piotr » 30 gru 2011, 09:33

if a=0 then

begin writeln('Podales zero!')
Oj,czas chyba odrobic zadanie domowe:P Przeciez sprawdzasz juz (albo ktos kto napisal ten kod), czy liczba jest rozna od 0, i nawet komunikat odpowiedni jest wyswietlany....

zadanie w pascalu

autor: gee » 27 lis 2011, 23:32

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 pomoc i wyrozumialosc ;)

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.

Na górę