[Turbo Pascal] PETLE REPEAT WHILE

Nasz informatyk zadał 5 zadań do domu. Mam je przesłać do niedzieli do północy. Jestem lewa noga z infy i nie potrafię ich w żaden sposób rozwiązać... próbowałam już zaglądać do poradników i kursów ale po prostu nic z tego nie wyszło. Mam nadzieję, że jest tu jakaś życzliwa osoba, która pomoże mi w napisaniu tych programów za co będę wdzięczna. Od tego zależy moja pozytywna ocena na półrocze pozdrawiam !


Ćwiczenie 1
Napisz program, który wczytuje z klawiatury jedną dodatnią liczbę. Program powinien być zabezpieczony
przed wprowadzeniem liczby ujemnej lub zero, tzn. tak długo powtarzać operację wprowadzania liczby, aż
zostanie podana liczba dodatnia.


Ćwiczenie 2
Napisz program, który wczytuje (w pętli) kilka liczb różnych od zera i wyświetla na ekranie ich
odwrotności. Wczytanie liczby równej zero oznacza zakończenie działania pętli.


Ćwiczenie 3a
Napisz program, który wczytuje (w pętli) kilka liczb różnych od zera i oblicza ich sumę. Wczytanie zera
oznacza zakończenie działania pętli i wyświetlenie obliczonej sumy.


Ćwiczenie 3b
Zmodyfikuj program z ćwiczenia 3a tak, aby liczył sumę oraz średnią arytmetyczną wprowadzonych liczb.


Ćwiczenie 4
Napisz program przedstawiający wprowadzoną z klawiatury liczbę parzystą w postaci iloczynu liczby dwa
i innej liczby całkowitej. Program powinien być zabezpieczony przed wprowadzeniem liczby nieparzystej
tzn. tak długo powtarzać operację wprowadzania liczby z klawiatury, aż zostanie podana liczba parzysta.
Wskazówka: wykorzystaj operator mod.


Ćwiczenie 5
Napisz program wypisujący wartości sinusów kątów od 0 do 2pi radianów z krokiem pi/10 (około 0.314
radiana). Spróbuj wykorzystać każdą z poznanych pętli. Wartość liczby pi zwraca funkcja Pi, zaś wartość
sinusa kąta - funkcja sin(x).


Poproszę o chociaż 3 zadania z wyżej wymienionych !

LICZE NA WAS !

Ćwiczenie 1

program cw1;
uses crt;

var
	 a : integer;

begin
	repeat
	  readln(a);
	until a > 0;
	writeln('wpisales liczba dodatnia - koniec programu');
	readln;
end.

Ćwiczenie 2

program cw2;
uses crt;

var
  liczba : integer;

begin
	repeat
	  readln(liczba);
	  writeln('Odwrotnosc podanej liczbay to: ', liczba*(-1));
	until liczba = 0;
end.

Ćwiczenie 3a

program cw3a;
uses crt;

var
  liczba, suma : integer;

begin
	suma := 0;
	repeat
		write('Podaj liczbe: ');
		readln(liczba);
		suma := suma + liczba;
	until liczba = 0;
	writeln('Suma liczb to: ',suma);
	readln;
end.

Ćwiczenie 3b

program cw3b;
uses crt;

var
  liczba, suma,i : integer;
  srednia : real;

begin
	suma := 0;
	i := 0;
	repeat
		Inc(i);
		write('Podaj liczbe: ');
		readln(liczba);
		suma := suma + liczba;
	until liczba = 0;
	writeln('Suma liczb to: ',suma);
	srednia := suma /( i-1);
	writeln('Srednia arytmetyczna liczb to: ',srednia:2:2);
	readln;
end.

Ćwiczenie 4

program cw4;
uses crt;
var
  liczba : integer;

begin
	repeat
	   readln(liczba);
	until (liczba mod 2) <> 0;
	writeln('Wprowadziles liczba nieparzysta - koniec programu');
	readln;
end.