Konspekt z przedmiotu Programowanie strukturalne

Temat: Polecenie READ i READLN.

Prowadzący: inż. Marek Pudełko

Klasa I SP, specjalność technik Informatyk

Lekcja odbyła się

Czas zajęć: 2 x 45 minut.

Cele dydaktyczne:

• Zapoznanie z podstawami programowania w Pascalu.

• Doskonalenie znajomości edytora i poleceń READ i READLN.

• Nabranie odpowiednich nawyków programowania.

• Wypracowanie ergonomicznych zasad pracy z komputerem

Cele operacyjne:

Po zajęciach słuchacze powinni:

• Umieć przepisać samodzielnie kod programu.

• Znać składnię i opcje poleceń READ i READLN.

• Zmodyfikować gotowy kod programu.

Środki dydaktyczne: komputer z edytorem Turbo Pascal 7.0, tablica, karteczki z programem.

Metody: wykład, praca z komputerem, praca z tablicą, praca samodzielna.

Formy: praca z zespołem klasowym, praca indywidualna słuchacza

Przebieg lekcji:

1) Część wstępna:

• powitanie

• sprawdzenie listy obecności

2) Lekcja właściwa:

• Przypomnienie wiadomości. Jaka jest budowa programu w Pascalu? Co robią polecenia Write, Writeln?

• Informacja. Polecenia read, readln służą do wczytywania danych z klawiatury, plików, pamięci itp.

• Składnia polecenia

read ([nazwa zmiennej do której wczytujemy dane]);

readln ([nazwa zmiennej do której wczytujemy dane]);

• Przykład

read (x); wczytujemy zmienną x

read (imie); wczytujemy zmienną imie

readln (gdzie_to_jest); wczytujemy zmienną gdzie_to_jest

• Polecenie readln działa tak samo jak read, ale po wczytaniu przechodzi do nowej linii.

• Polecenie puste nie robi nic, ale pozwala na zatrzymanie się programu, który czeka na naciśnięcie klawisza ENTER. Polecenie to jest przydatne np. na końcu programu, gdy chcemy zobaczyć efekt jego działania.

• Praca z kodem programu. Uczniowie otrzymują karteczki z kodem programu, który przypisują.

program suma;

var a,b,c:integer;

begin

writeln ('Podaj pierwszą liczbę: ');

readln(a);

writeln ('Podaj drugą liczbę: ');

readln(b);

c := a + b;

writeln ('Wynik wynosi: ', c);

readln;

end.

• Informacja. Nauczyciel wyjaśnia budowę programu i użyte polecenia

• Nagłówek składa się z dwóch linijek. Dodano polecenie var.

var (od variable) - zmienna.

• Deklaracja zmiennych używanych w programie.

• var x :integer:

• deklaracja nazwa_zmiennej:typ_zmiennej;

• typ integer - liczba całkowita.

np. 1,2,0, -98, -1209 itp.

W Pascalu w typie integer są używane liczby w zakresie od -32765 do + 32765

• Ćwiczenie. Uczniowie zmieniają polecenie readln na read. Obserwują zmiany efektów działania programu. Analizują, który jest czytelniejszy i odpowiednio modyfikują program.

• Ćwiczenie. Uczniowie wprowadzają nowe zmienne do programu (np, d,e,f). Dodają linie wprowadzające je do pamięci i modyfikują wyrażenie sumy. Obserwują efekt działania programu.

• Ćwiczenie. Uczniowie otrzymują karteczki z kodem programu, który przypisują.

program moj_drugi;

var i:integer;

begin

writeln('Podaj mi swoj wiek');

readln(i);

write ('masz lat ');

writeln (i);

readln;

end.

• Ćwiczenie. Uczniowie zmieniają program tak, by podawał ile osoba będzie miała lat za rok.

• Ćwiczenie. Uczniowie zmieniają program tak, by podawał ile osoba miała lat w zeszłym roku.

• Ćwiczenie. Uczniowie zmieniają program tak, by podawał rok urodzenia danej osoby.

3) Zajęcia końcowe:

1. powtórzenie materiału z lekcji:

• budowa programu w Pascalu

• Co oznaczają poszczególne polecenia Pascala?

• Jak wygląda składnia poleceń READ i READLN?

2. ocena pracy słuchaczy.

3. Zadanie domowe: Uczniowie zmieniają typ integer na typ zmiennoprzecinkowy real i obserwują efekt zmian jego działania.

program suma;

var a,b,c:integer;

begin

writeln('Podaj pierwszą liczbę:');

readln(a);

writeln('Podaj drugą liczbę:');

readln(b);

c := a + b;

writeln('Wynik wynosi:', c);

readln;

end.

program suma;

var a,b,c:integer;

begin

writeln('Podaj pierwszą liczbę:');

readln(a);

writeln('Podaj drugą liczbę:');

readln(b);

c := a + b;

writeln('Wynik wynosi:', c);

readln;

end.

program suma;

var a,b,c:integer;

begin

writeln('Podaj pierwszą liczbę:');

readln(a);

writeln('Podaj drugą liczbę:');

readln(b);

c := a + b;

writeln('Wynik wynosi:', c);

readln;

end.

program suma;

var a,b,c:integer;

begin

writeln('Podaj pierwszą liczbę:');

readln(a);

writeln('Podaj drugą liczbę:');

readln(b);

c := a + b;

writeln('Wynik wynosi:', c);

readln;

end.

program suma;

var a,b,c:integer;

begin

writeln('Podaj pierwszą liczbę:');

readln(a);

writeln('Podaj drugą liczbę:');

readln(b);

c := a + b;

writeln('Wynik wynosi:', c);

readln;

end.

program suma;

var a,b,c:integer;

begin

writeln('Podaj pierwszą liczbę:');

readln(a);

writeln('Podaj drugą liczbę:');

readln(b);

c := a + b;

writeln('Wynik wynosi:', c);

readln;

end.

program suma;

var a,b,c:integer;

begin

writeln('Podaj pierwszą liczbę:');

readln(a);

writeln('Podaj drugą liczbę:');

readln(b);

c := a + b;

writeln('Wynik wynosi:', c);

readln;

end.

program suma;

var a,b,c:integer;

begin

writeln('Podaj pierwszą liczbę:');

readln(a);

writeln('Podaj drugą liczbę:');

readln(b);

c := a + b;

writeln('Wynik wynosi:', c);

readln;

end.

program moj_drugi;

var i:integer;

begin

writeln('Podaj mi swoj wiek');

readln(i);

write ('masz lat ');

writeln (i);

readln;

end.

program moj_drugi;

var i:integer;

begin

writeln('Podaj mi swoj wiek');

readln(i);

write ('masz lat ');

writeln (i);

readln;

end.

program moj_drugi;

var i:integer;

begin

writeln('Podaj mi swoj wiek');

readln(i);

write ('masz lat ');

writeln (i);

readln;

end.

program moj_drugi;

var i:integer;

begin

writeln('Podaj mi swoj wiek');

readln(i);

write ('masz lat ');

writeln (i);

readln;

end.

program moj_drugi;

var i:integer;

begin

writeln('Podaj mi swoj wiek');

readln(i);

write ('masz lat ');

writeln (i);

readln;

end.

program moj_drugi;

var i:integer;

begin

writeln('Podaj mi swoj wiek');

readln(i);

write ('masz lat ');

writeln (i);

readln;

end.

program moj_drugi;

var i:integer;

begin

writeln('Podaj mi swoj wiek');

readln(i);

write ('masz lat ');

writeln (i);

readln;

end.

program moj_drugi;

var i:integer;

begin

writeln('Podaj mi swoj wiek');

readln(i);

write ('masz lat ');

writeln (i);

readln;

end.

program moj_drugi;

var i:integer;

begin

writeln('Podaj mi swoj wiek');

readln(i);

write ('masz lat ');

writeln (i);

readln;

end.

program moj_drugi;

var i:integer;

begin

writeln('Podaj mi swoj wiek');

readln(i);

write ('masz lat ');

writeln (i);

readln;

end.

2

---