1. Napisz program wczytujący N liczby rzeczywistych i wyznaczający sumę tych liczb.
2. Napisz program wczytujący N liczby rzeczywistych i wyznaczający iloczyn tych liczb.
3. Napisz program z użyciem pętli while wczytujący z klawiatury liczbe całkowitą. Program powinien przyjmowac jedynie liczbe dodatnią. Jeśli użytkownik poda liczbę ujemna to powinien pozostać poinformowany zewymagana jest liczba dodatnia i poproszony o kolejna liczbe. Proba wczytania dopóty, dopóki uzytkownik nie poda liczby poprawnej (dodatniej).
4. Napisz program z użyciem pętli REPEAT wczytujący z klawiatury liczbe całkowitą. Program powinien przyjmowac jedynie liczbe dodatnią. Jeśli użytkownik poda liczbę ujemna to powinien pozostać poinformowany ze wymagana jest liczba dodatnia i poproszony o kolejna liczbe. Proba wczytania dopóty, dopóki uzytkownik nie poda liczby poprawnej (dodatniej).
5. Program wystawiający ocene w postaci słownej za uzyskane punkty na sprawdzianie oraz ilosc uzyskanych punktów. z klawiatury wprowadzamy liczbe całkowita p-ilosc punktow uzyskanych. jezeli uzyskano 90-100pkt- ocena 5, 75-89- ocena 4, 60-74 -ocena 3, 40-60- ocena 2, ponizej 40 -ocena 1.
Program 1:
Program suma_liczb;
uses CRT;
var suma,a,N: longint;
i: byte;
begin
CLRSCR;
Write(' Podaj ilosc liczb: '); Read(N);
suma:=0;
for i:=1 to N do
begin
Read(a);
suma:=suma+a;
end;
Write(' Suma podanych liczb wynosi: ',suma);
repeat until KeyPressed;
end.
*******************************************************************
Program 2:
Program suma_liczb;
uses CRT;
var iloczyn,a,N: longint;
i: byte;
begin
CLRSCR;
Write(' Podaj ilosc liczb: '); Read(N);
iloczyn:=0;
for i:=1 to N do
begin
Read(a);
iloczyn:=iloczyn*a;
end;
Write(' Iloczyn podanych liczb wynosi: ',iloczyn);
repeat until KeyPressed;
end.
*******************************************************************
Program 3:
Program dodatnie_while;
uses CRT;
var a: longint;
begin
CLRSCR;
Writeln(' Podaj liczbe: ');
read(a);
WHILE (a<0) DO
begin
Writeln(' Podaj liczbe dodatnia!!!');
read(a);
end;
repeat until KeyPressed;
end.
*******************************************************************
Program 4:
Program dodatnie_repeat;
uses CRT;
var a: longint;
begin
CLRSCR;
Writeln(' Podaj liczbe: ');;
repeat
read(a);
if a<0 then Writeln(' Podaj liczbe dodatnia!!!');
until a>0;
repeat until KeyPressed;
end.
*******************************************************************
Program 5:
program punkty;
uses CRT;
var pkt: byte;
begin
CLRSCR;
Write(' Podaj ilosc punktow: '); Read(pkt);
Write(' Uczen zdobywajac ',pkt,' uzyskal');
if ( (pkt<=100) and (pkt>=90 ) ) then Writeln(' piatke');
if ( (pkt<=89) and (pkt>=75 ) ) then Writeln(' czworke');
if ( (pkt<=74) and (pkt>=60 ) ) then Writeln(' trojke');
if ( (pkt<=59) and (pkt>=40 ) ) then Writeln(' dwojke');
if pkt<40 then Writeln(' jedynke');
repeat until keypressed;
end.