Witam, prosiłbym o pomoc w rozwiązaniu zadania, które mam na zaliczenie semestru w szkole. Oto treść:

"Napisz program, w ktorym uzytkownik podaje n przychodów (n podajemy z klawiatury) i k wydatkow (k podajemy z klawiatury). Program ma obliczyc:
- sume dochodow
- sume wydatkow
- saldo koncowe (różncę ochodów i wydatków)
UWAGA: ZAbezpiecz program przed podaniem niepoprawnych danych. Użyj zmiennych tablicowych."

Chodzi oczywiscie tutaj o turbo pascala. Z gory dziekuje za pomoc :)

1

Odpowiedzi

2009-11-19T22:38:25+01:00
Dawno nie pisałem nic w pascalu więc jakby nie chcialo sie kompilowac to pisz pod gg: 2888494

program wydatki;

uses crt;

var
przychody, wydatki, saldo, temp: real;
liczba_przychodow, liczba_wydatkow: integer;
i: integer;
begin
liczba_przychodow=-1;
liczba_wydatkow=-1;
przychody:=0;
wydatki:=0;
saldo:=0;
while (liczba_przychodow<0) do beign
writeln('Podaj liczbe przychodow');
readln(Liczba_przychodow);
end;

for i=1 to liczba_przychodow do begin
read(temp);
przychody:=przychody + temp;
end;

while (liczba_wydatkow<0) do begin
writeln('Podaj liczbe wydatkow');
readln(liczba_wydatkow):
end;
for i=1 to liczba_wydatkow do begin
read(temp);
wydatki:=wydatki + temp;
end;

saldo:=przychody-wydatki;

writeln('Suma przychodow: ',przychody);
writeln('Suma wydatkow: ',wydatki);
writeln('Saldo konta: ',saldo);
readln;
end.