Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

[Pascal] Sumowanie wprowadzanych danych.

MarekPPN 19 Lip 2010 15:58 1152 1
  • #1 19 Lip 2010 15:58
    MarekPPN
    Poziom 35  

    Witam.
    Posiadam taki oto (nieskończony) program. Niestety nie wiem jak go dokończyć.
    Do programu podajemy powiedzmy dwa odcinki po 20 minut (0.20). Chciałbym, aby tam gdzie jest komentarz te odcinki się sumowały. Niestety nie wiem jak to zrobić.
    Program generalnie czyta minuty i zamienia je na godziny.
    Moglibyście mnie nakierować jak to rozwiązać? Nie chcę gotowego programu.

    Code:
    var minuty, godziny, i, ile: integer;
    
    var pytanie: byte;
    var odcinki: real;
    begin
      repeat
      writeln('Ile odcinkow chcesz policzyc?');
      readln(ile);
      writeln('Podaj ', ile, ' odcinkow.');
      for i:=1 to ile do readln(odcinki);
      writeln('Suma odcinkow wynosi.'); //Tutaj powinna byc suma podanych odicnkow.
      writeln('Podaj minuty.');
      readln(minuty);
      godziny:=minuty div 60;
      writeln(minuty, ' minut to ', godziny, ' godzina i ', (minuty mod 60), ' minut.');
      writeln;
      writeln('Powtorzyc program? 1 - Tak, 2 - Nie.');
      readln(pytanie);
      until pytanie = 2;
    end.

    0 1
  • #2 19 Lip 2010 16:24
    arnoldziq
    Moderator Programowanie

    Możesz zrobić coś takiego :

    Code:
    var
    
     suma_odcinkow : real;
    [...]
    suma_odcinkow:=0;
    writeln('Podaj ', ile, ' odcinkow.');
      for i:=1 to ile do
        begin
         readln(odcinki);
         suma_odcinkow:=suma_odcinkow+odcinki;
        end;
      writeln('Suma odcinkow wynosi.',suma_odcinkow); //Tutaj jest suma odicnkow.
    [...]

    0