Zadanie domowe... Pomocy..

[kobi]

Mam zadanie domowe, któe muszę mieć zrobione na jutro.. Proszę o pomoc, nie wiem czy trafiłem na odpowiedni dział.. Z góry dziękuę za pomoc




Przeanalizuj program i napisz co on robi.

var L,P:char;
N,I:integer;
procedure Gwiazdki(Ile:integer;Lewy,Srodek,Prawy:char);
begin
Write(Lewy);
for N:=1 to Ile do Write (Srodek);
Write(Prawy);
end;
begin
L:=' ( ';
P:=' ) ';
I:=10;
Gwiazdki(2*I,L,' * ',P);
end.

[cosik_ktosik]

hmm, pomogę ale postaraj się sam coś na ten program powiedzieć. Np powiedz co wg Ciebie robią kolejne linijki:

1. var L,P:char;
2. N,I:integer;
3. procedure Gwiazdki(Ile:integer;Lewy,Srodek,Prawy:char);
4. begin
5. Write(Lewy);
6. for N:=1 to Ile do Write (Srodek);
7. Write(Prawy);
8. end;
9. begin
10. L:=' ( ';
11. P:=' ) ';
12. I:=10;
13. Gwiazdki(2*I,L,' * ',P);
14. end.

[kobi]

1. Wprowadzenie zmiennych L,P o znakowym typie danych (pojedynczy znak)
2. Wprowadzenie zmiennych N,I o całkowytym typie danych (przedział liczbowy)
3. Podaje nazwe procedury wraz z listą parametrów
4. Rozpoczyna program.
5. Wyświetla słowo Lewy
6. Dla N przypisuje 1 za Ile wyświetla Srodek
7. Wyświetla słowo Prawy
8. kończy program
9. Rozpoczyna podprogram
10.Dla L przypisuje (
11. Dla P przypisuje )
12. I ma wartość 10
13.Wywołuje procedure, w której mnoży 10 przez 2 otwiera nawias wstawia 20 gwiazdek i zamyka nawias
14. Kończy cały program.

[mir]

przecież napisałeś dość konkretnie co robi ten program, więc w czym mamy Ci pomóc?
czy linia 8 rzeczywiście zakończy program?

[kobi]

Nie rozumiałem pewnych kwestii i chciałem się upewnić, szperałem po zeszycie i znalazłem, przeanalizowałem i zrozumiałem. Jeśli dobrze to zrobiłem to już wysyłam to do nauczyciela.
Dzięki wielkie.

[mir]

czekaj, nie wysylaj
sprawdź jeszcze linie 8

-- 16 lis 2010, 19:31 ---

bo begin w linii 4 zaczyna blok procedury,
natomiast end kończy blok tej procedury.
tak poza tym, jak masz jeszcze czas to sprawdź na spokojnie, a wątpliwości pisz

[kobi]

linia 8 chyba nie kończy całego programu, nie wiem co ona dokładnie robi

-- 16 lis 2010, 19:33 ---

aa.. miałem głównie wątpliwości do 4 i 8 linijki..
reszta myśle, że jest dobrze.

[mir]

4 linia begin ZACZYNA BLOK PROCEDURY
natomiast
8 linia KOŃCZY BLOK PROCEDURY
w razie jakiś wątpliwości pisz

-- 16 lis 2010, 19:38 ---

6. Dla N przypisuje 1 za Ile wyświetla Srodek

co przez to rozumiesz?

[kobi]

hmm.. nie wiem sam, nawet nie wiem jak dobrze ubrać to w słowa..

[mir]

Kod: Zaznacz cały

for N:=1 to Ile do Write (Srodek);

petla for wykona się do momentu, aż n będzie równe Ile, czyli w tym wypadku Ile przekazujesz w parametrach do procedury jako I(10) * 2 więc pętla for obróci 20 razy, za każdym obrotem wykona następującą instrukcję

Kod: Zaznacz cały

Write (Srodek);

tak więc ta instrukcja zostanie wykonana 20x.
N na początku jest równe 1, jednak z każdym kolejnym obrotem zwiększa sie o 1
przemyśl jeszcze punkt 13