grzywa099
Nowy
Dołączył: 18 Lut 2008
Posty: 1
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
|
 Wysłany: Pon 20:41, 18 Lut 2008 Temat postu: potrzebuje pomocy aby zrozumiec :) |
|
|
Siemka mam taka tresc zadania:
Użytkownik podaje wielkość tablicy poprzez podanie ilości wierszy i kolumn. Nastepnie wpisujemy do tablicy podane przez użytkownika liczby ich ilość jest dopasowana do wielkości tablicy. Na koniec użytkownik może wybrac czy chce zobaczyc iloczyn czy sume podanych liczb.
Program wyglada tak.
program tablica;
uses crt;
var tab:array[1..10,1..10] of integer;
x,y,z,d,m,k,xp,yp:integer;
begin
clrscr;
write('Podaj ilosc wierszy: ');
readln(x);
write('Podaj ilosc kolumn: ');
readln(y);
clrscr;
yp:=1;
while yp<=y do
begin
xp:=1;
while xp<=x do
begin
write('Podaj wartosc ktora zostanie wpisana do tablicy: ');
readln(k);
tab[xp,yp]:=k;
xp:=xp+1;
end;
yp:=yp+1;
end;
clrscr;
writeln('Ktore z dzialan chcesz wykonac:');
writeln('1. Dodawanie');
writeln('2. Mnozenie');
write('Wybierz: ');
readln(z);
case z of
1: begin
yp:=1;
while yp<=y do
begin
xp:=1;
while xp<=x do
begin
d:=tab[xp,yp]+d;
xp:=xp+1;
end;
yp:=yp+1;
end;
writeln('----------------------------');
writeln('Wynik dodawania wynosi ', d);
readkey;
end;
2: begin
m:=1;
yp:=1;
while yp<=y do
begin
xp:=1;
while xp<=x do
begin
m:=tab[xp,yp]*m;
xp:=xp+1;
end;
yp:=yp+1;
end;
writeln('--------------------------');
writeln('Wynik mnozenia wynosi ', m);
readkey;
end;
end;
end.
I teraz moja prosba, jak by ktos mogl po kolei wytłumaczyć co się dzieje w tym programie (najlepiej do każdej linijki dopisac jakis komentarz żeby to mi się jakos rozjaśniło) program jak na mnie jest zbyt skomplikowany a musze się tego nauczyc. Z gory dziekuje za odpowiedzi
Post został pochwalony 0 razy
|
|
