banjalukaforum.com • Pogledaj temu

Pogledaj neodgovorene postove | Pogledaj aktivne teme

Index boarda » Računari i Internet » Programiranje

Sva vremena su u UTC [ DST ]

Turbo Pascal

Stranica 2 od 2

[ 24 Posta ]

Idi na stranicu Prethodni 1, 2

Pogled za štampu

Prethodna tema | Sledeća tema

Autoru

Poruka

kefalo

Tema posta:

Poslato: 11 Mar 2005, 02:33

Veteran

Pridružio se: 10 Feb 2002, 01:00
Postovi: 1310
Lokacija: Wien, Österreich

cek jel treba da saberes sve brojeve od 107 do 997 ili samo one koji cija je zadnja cifra 7... ajde malo to pojasni pa cu sutra da ti napisem rjesenje kad budem imao vremena

pozdrav

_________________
Pizzy sagt:
zlaja otiso u kurac
Pizzy sagt:
postao je umoran

Vrh

Vertygo

Tema posta:

Poslato: 11 Mar 2005, 12:00

Majstorski kandidat

Pridružio se: 12 Jul 2001, 01:00
Postovi: 457
Lokacija: Banjaluka

Vjerovatno bi to bilo ovako:

Citiraj:

program ovadsf;
uses crt;
var zbir,s,i,n:real;
begin
s:=107;
i:=10;
while s<997 do
begin
zbir:=zbir+s;
s:=s+i;
writeln ('s',s);
end;
writeln('S=107+117+...+997=',zbir:2:2);
readln(s);
end.

_________________
Ivan M.

Vrh

Tema posta:

Poslato: 11 Mar 2005, 17:12

Početnik

Pridružio se: 04 Nov 2004, 11:21
Postovi: 79

Jedino jos da inicijalizujes zbir i da koristis Integer tip posto nema potrebe za Real.

Vrh

mangia

Tema posta:

Poslato: 11 Mar 2005, 18:56

Stara kuka

Pridružio se: 06 Jan 2003, 01:19
Postovi: 4072

da potrebno je promjenjivoj zbir dodijeliti pocetnu vrijednost 0

tj ubaciti zbir:=0; iznad while petlje

Vrh

Stranica 2 od 2

[ 24 Posta ]

Idi na stranicu Prethodni 1, 2

Index boarda » Računari i Internet » Programiranje

Sva vremena su u UTC [ DST ]

Ko je OnLine

Korisnici koji su trenutno na forumu: Nema registrovanih korisnika i 0 gostiju

Ne možete postavljati nove teme u ovom forumu
Ne možete odgovarati na teme u ovom forumu
Ne možete monjati vaše postove u ovom forumu
Ne možete brisati vaše postove u ovom forumu
Ne možete slati prikačene fajlove u ovom forumu

Idi na: