zadania z Pascala

[zzuzzia93]

Będę miała spr z infy z Pascala. Robiliśmy takie różne zadania ale ja tego w ogóle nie rozumiem i chyba będę się musiała uczyć tego wszystkiego na pamięć, bo kompletnie nic z tego nie wiem. Podam wam rozwiązania tych zadań i proszę abyście mi powiedzieli co dany program robi i na czym polega. Bo ja mam tylko te rozwiązania a nie wiem do czego one są...

1. program C1;
uses Crt;
begin
writeln (10/2:10:1);
writeln (10000/3:10:2);
readln;
end.

2. program C3;
uses Crt;
var
imie, Podciag:string;
begin
imie:='Andrzej';
Podciag:=copy (imie,2,2);
writeln (Podciag);
readln;
end.

3. program liczby;
uses Crt;
var
i,n,u,nu,x: integer;
znak:char;
procedure zliczaj (u:integer);
begin
if u<0 then
u:=u+1
else
nu:=nu+1;
end;
begin
repeat
ClrScr;
u:=0;
nu:=0;
Write ('liczba elementow '); Readln (n);
for i:=1 to n do
begin
write ('Podaj liczbe'); readln (x);
zliczaj (x);
end;
writeln ('ujemne:',u);
writeln ('nieujemne', nu);
write ('Czy kont. T/N?'); readln (znak);
until (upcase (znak)='N');
end.

4. program C3;
uses Crt;
var
Imie, Nazwisko, ImieNazwisko: string;
begin
ClrScr;
writeln ('Podaj imie'); readln (Imie);
writeln ('Podaj nazwisko'); readln (nazwisko);
ImieNazwisko=concat (Imie,' ', Nazwisko);
writeln (ImieNazwisko);
readln;
end.

5. program C6;
uses Crt;
var
x, w: real;
begin
ClrScr;
writeln ('Podaj liczbe'); readln (x);
If x>=0 then
w:= x
else
w:= -x;
writeln ('Wartosc bezwzglendna wynosi ' , w);
readln;
end.

6. program C6;
uses Crt;
var
a, b: real;
begin
ClrScr;
writeln ('Podaj a'); readln (a);
writeln ('Podaj b'); readln (b);
if a>b then
writeln ('a jest wieksze od b')
else
if b>a then
writeln ('b jest wieksze od a')
else
writeln ('a jest rowne b');
readln;
end.

7. program C6;
uses Crt;
var
imie: string;
lastl: string [1];
begin
ClrScr;
writeln ('Podaj imie'); readln (imie);
lastl:= Copy (imie,length (imie),1);
if (lastl='a') or (lastl='a') then
writeln ('Kobieta')
else
writeln (mezczyzna');
readln;
end.

8. Program C13;
uses Crt;
var
i: integer
begin
ClrScr;
for i:= to 100 do
if(i mod 11=0) then
writeln(i);
readln;
end.

9. Program C13;
uses Crt;
i,n: integer
a, suma:real;
begin
SlrScr;
suma:-0;
write('Podaj ile liczb sumowac'); readln (n);
for i:=1 to n do
begin
write ('Podaj liczbe'); readln (a);
suma:= suma+a;
end;
writeln ('Suma wynosi' ,suma);
readln;
end.

10. Program C1;
uses Crt;
var
imie, nazwisko: string [30];
begin
ClrScr;
writeln ('Podaj imie: ');
readln (imie);
writeln ('Podaj nazwisko: ');
readln (nazwisko);
writeln (imie:15);
writeln (nazwisko:15);
readln;
end.

Liczę na pomoc...

[milka333]

Sama już dokładnie nie pamiętam Pascala, ale powiem tak.
Konstrukcja programu jest ta sama, chodzi mi o to, że wygląda tak:
Program nazwaprogramu;
Uses CRT; (CRT to nazwa biblioteki, dzięki niej możesz używać różnych funkcji i poleceń)
var
(tu nadajemy używanym zmiennym typy. Są różne, np.string-zmienna tekstowa, string[30]-tyle znaków najwięcej można wpisać, integer,real-zmienne liczbowe)
begin
ClrScr(to czyściło poprzednie wyniki, tzn. jak jeszcze raz uruchomisz program, wcześniejsze wyniki nie będą wyświelane w tym czarnym okienku)
(treść programu)
end.

10. pod var deklarujesz zmienne. Są to imię i nazwisko. Każde z nich może zawierać do 30 znaków, a skoro to string-będą to literki. Teraz o treści programu.
writeln to komenda, dzięki której możesz wyświetlić napis w tym czarnym oknie.
readln z kolei wczytuje coś do pamięci programu z klawiatury,
ClrScr czyści okno
Pojawia się napis: Podaj imie: (dzięki writeln)
Ty wpisujesz jakieś imię do 30 znaków, np.: Adam (readln wczytuje to do pamięci pod zmienną imie)
Znów pojawia się napis: Podaj nazwisko:
Znów wczytujesz z klawiatury nazwisko (pod zmienną nazwisko),np.: Kozak
Kolejne dwa polecenia wyrzucają nam na ekranie komunikat: Adam Kozak

9. Program C13; (nazwa programu)
uses Crt; ( użyj biblioteki)
var
i,n: integer (deklarujesz zmienne o charakterze całkowitym)
a, suma:real; (deklarujesz zmienne rzeczywiste)
begin (rozpoczynasz pisanie programu)
ClrScr; (czyścisz czarne okienko)
suma:=0; (przypisujesz zmiennej suma wartość początkową, to ważna czynność, bo czasami
komputer sam może sobie przypisać wartość i kiszka)
write('Podaj ile liczb sumowac'); (wypisuje na ekranie napis w cudzysłowie) readln (n);(wczytujesz z klawiatury ilość liczb, czyli nadajesz wartość zmiennej n)
for i:=1 to n do (wykonujesz pętlę: dla i równego od 1 do n wykonaj)
begin (po wcześniejszym poleceniu można wykonać tylko jedno polecenie, a ty chcesz więcej, więc
zaczynasz od begin )
write ('Podaj liczbe'); (Komunikat na ekran) readln (a); (wczytujesz wartość zmiennej a z
klawiaury)
suma:= suma+a; (wykonujesz działanie do wartości wyrażenia suma dodajesz a, czyli dla i:=1
mamy: suma:=0+a, dla i:=2 mamy suma:=a+a, dla i:=3 mamy suma:=2a+a...)
end; (kończymy begin po pętli)
writeln ('Suma wynosi' ,suma); (komunikat na ekranie Suma wynosi20, te 20 to przykładowy
wynik)
readln;
end. (kończysz program)


8.Program C13;
uses Crt;
var
a: integer (deklarujesz zmienną całkowitą)
begin
ClrScr; (czyścisz ekran)
for i:=a to 100 do (wykonujesz pętlę for: dla i równego od a do 100 wykonaj ...)
if(i mod 11=0) then (zagnieżdżasz polecenie if, jeśli reszta z dzielenia liczby i przez 11 jest równa 0, to...)
writeln(i); (...to wypisz ja na ekran, każda w oddzielnej linii)
readln;
end.