Pokaż wyniki 1 do 1 z 1

Temat: Średnie

  1. #1
    Zarejestrowany
    May 2008
    Postów
    1

    Domyślnie Średnie

    Witam Jestem początkujący w Perlu, proszę więc o wyrozumiałość. Mam taki problem: Dostałem zadanie, by napisać program, który wczytuje liczbę osób, następnie wczytuje dane każdej osoby, tj Imię, nazwisko i średnią ocen (każde oddzielone spacją). Na wyjściu ma się znaleźć średnia ocen tych wszystkich osób, np. dla danych
    2
    Michał Gow 3
    Maciej Hel 4.24
    ma się pojawić na wyjściu
    3.62

    Oto mój pomysł, proszę o weryfikację:
    Kod:
    #!/usr/local/bin/perl
    $t=<STDIN>;
    chop($t);  
    $z=0;
    for($i = 0; $i < $t; $i++)
    {
       $imie=<STDIN>;
       $nazw=<STDIN>;
       $srednia=<STDIN>;
       $z+=$srednia;
       chop($srednia);
    }
    $z/=$t;
    print "$z\n";
    Ostatnio edytowane przez mata : 05-22-2008 - 21:22

Zasady Postowania

  • Nie możesz zakładać nowych tematów
  • Nie możesz pisać wiadomości
  • Nie możesz dodawać załączników
  • Nie możesz edytować swoich postów
  •  
Subskrybuj