Skocz do zawartości

net4game

Największy polski serwer RolePlay w GTA: San Andreas Multiplayer

WatcherBack

Rejestracja: 28/11/2011
Poza forum Ostatnio: 08/11/2012 18:10
-----

Moje tematy

Pascal

30/05/2012 - 18:55

No, wybrałem sobie zły profil tak wiec przyda mi się mała pomoc bo musze to zaliczyć. ;d


1. napisz program sumujący 10 kolejno wprowadzonych liczb w poziomym rzędzie
2. Napisz program obliczający średnią z n wczytanych liczb

Tutaj mam problem z tym, że nie wiem jak pętle zrobić by na jednej zmiennej mi to sumowało. Zrobiłem tak:

repeat
write('Podaj  liczby i zakońvz wpisujac koniec');
read(n);
write(n);
write('Podaj kolejną liczbę');
read(n);
n:=n+n;
write(n);

Ale pascal się pluje. :< Ofkors wcześniej dałem begina etc, ale daje tu ten ważny kawałek. Dołączona grafika

3. napisz program znajdujący największą z 10 kolejno wprowadzonych liczb w kolumnie

wiem jak to zrobić podając 10 zmiennych, a jak uprościć?

4. napisz program wypisujący liczby od 1 do 20 po 5 w kolejnych 4 rzędach

I jeszcze coś takiego:

2. Napisz program zgadnij jaka to liczba, losujący liczbę a następnie pobierający liczby wpisywane
przez użytkownika i wyświetlający komunikat za dużo lub za mało. Gra kończy się kiedy
użytkownik zgadnie jaka to liczba wyświetleniem komunikatu zgadłeś po ... próbach.