Ciekawy program PASCAL .

ruslaw · #1 (**permalink**) 24.11.2009, 21:24

Program: Napisz program pytający o ilość liczb do wczytania, a następnie obliczający sume tych liczb, sume liczb dodatnich, sumę liczb ujemnych oraz znajdujący liczbe największą i jej numer

==>> takie coś mam do zrobienia na 6 na koniec semestru. Pomoże ktoś ?

koner · #2 (**permalink**) 24.11.2009, 21:32

tych liczb tzn. jakich? pyta o liczbe liczb do wczytania, a potem ty je masz wklepac czy z pliku czy co?

ruslaw · #3 (**permalink**) 24.11.2009, 21:58

pyta ile liczb chcesz zsumować, po czym, pyta jakie to mają być liczby, wyswietla wynik tego działania .

koner · #4 (**permalink**) 24.11.2009, 22:07

Zrobilem to w taki sposob:

Kod:

program wczytywanie_liczb;

uses CRT;

var
        n, i, x, suma, sumadodatnich, sumaujemnych, max, numermax :integer;

begin
        write('Podaj ilosc liczb, ktora chcesz wczytac: ');
        readln(n);
        suma:=0; sumadodatnich:=0; sumaujemnych:=0; max:=0; numermax:=0;
        for i:=1 to n do begin
                write('Podaj wartosc liczby nr ',i,': ');
                readln(x);
                suma:=suma+x;
                if x>=0 then sumadodatnich:=sumadodatnich+x else sumaujemnych:=sumaujemnych+x;
                if x>max then begin max:=x; numermax:=i; end;
                end;
        writeln('Suma wczytanych liczb wynosi: ',suma);
        writeln('Suma dodatnich liczb wynosi: ',sumadodatnich);
        writeln('Suma ujemnych liczb wynosi: ',sumaujemnych);
        writeln('Najwieksza wartosc wczytanej liczby to ',max,', jest to liczba nr ',numermax);
        readkey;
end.

oczywiscie czesc dla przejrzystosci, w ogole niepotrzebna. Jesli masz jakies pytania to wal smialo, moge to przerobic na inne petle jak cos. Jescze pomysle czy bardziej sie go nie da zoptymalizowac.

telly · #5 (**permalink**) 24.11.2009, 23:42

Cytat:

Napisał koner

Jescze pomysle czy bardziej sie go nie da zoptymalizowac.

Możesz np. wywalić uses crt i zamienić readkey na readln.
Możesz jeszcze np. przed end-ami usunąć średniki, to zawsze będzie kilka pustych operacji mniej...

ruslaw · #6 (**permalink**) 25.11.2009, 01:19

Dziękuje bardzo za pomoc

alien11689 · #7 (**permalink**) 25.11.2009, 12:41

cos tu jednak nie gra...
a co będzie jak poda się temu programowi same ujemne liczby?
Wyświetli wtedy ze na indeksie 0 jest 0 czyz nie?

Kod:

for i:=1 to n do begin
                write('Podaj wartosc liczby nr ',i,': ');
                readln(x);
                suma:=suma+x;
                if x>=0 then sumadodatnich:=sumadodatnich+x else sumaujemnych:=sumaujemnych+x;
                if i = 1 begin max = x; numermax := 1; end;
                if x>max then begin max:=x; numermax:=i; end;
                end;

program musi sam ustalić ze pierwszy element jest maxem na poczatku

koner · #8 (**permalink**) 25.11.2009, 13:21

To inaczej jak bez tablic w takim razie sie nie obejdzie. Teraz juz wszystko powinno byc ok:

Kod:

program wczytywanie_liczb;

uses CRT;

const
	maxt=50;
	
type
	tab=array[1..maxt] of integer;

var
    n, i, suma, sumadodatnich, sumaujemnych, max, numermax :integer;
	t : tab;

begin
	clrscr;
    write('Podaj ilosc liczb, ktora chcesz wczytac: ');
    readln(n);
    suma:=0; sumadodatnich:=0; sumaujemnych:=0;
    for i:=1 to n do begin
                write('Podaj wartosc liczby nr ',i,': ');
                readln(t[i]);
                suma:=suma+t[i];
                if t[i]>=0 then sumadodatnich:=sumadodatnich+t[i] else sumaujemnych:=sumaujemnych+t[i]
                end;
	max:=t[1]; numermax:=1;
	for i:=2 to n do if t[i]>max then begin max:=t[i]; numermax:=i end;
    writeln('Suma wczytanych liczb wynosi: ',suma);
    writeln('Suma dodatnich liczb wynosi: ',sumadodatnich);
    writeln('Suma ujemnych liczb wynosi: ',sumaujemnych);
    writeln('Najwieksza wartosc wczytanej liczby to ',max,', jest to liczba nr ',numermax);
    readkey
end.

Szybka odpowiedź
Po Twoich działaniach wystąpiły następujące błędy

OK
Weryfikacja obrazka Wiadomość: Kliknij jedną z ikon szybkiej odpowiedzi w postach powyżej w celu aktywacji tego okna. Opcje Zacytować wiadomość podczas odpowiedzi? Dodawanie szybkiej odpowiedzi - Proszę czekać!

Narzędzia wątku	Przeszukaj ten temat
Wersja do druku Wyślij na email	Przeszukaj ten temat: Zaawansowane wyszukiwanie
Wygląd
Wygląd liniowy Wygląd mieszany Wygląd wątkowy

Podobne wątki
Temat	Autor wątku	Forum	Odpowiedzi	Ostatni post/autor
Pascal- program	blabla345	programowanie	3	31.03.2009 22:33
program pascal	karol109	programowanie	22	05.03.2009 21:23
Ciekawy Program Do Przerabianiq Filmow Na 3GP + Filmiki 3GP	chichu20	komórki	3	12.01.2009 19:15
[Pascal] Program do szkoły	varle	programowanie	1	09.04.2008 19:59
Ciekawy program do obrobki video.	MaTeVTR	programy	1	22.12.2006 22:48