Operacje na plikach tekstowych w Pascalu

Konspekt Lekcji

Część organizacyjna:

Rok szkolny: 2011/2012
Data: 23.V.2012r
Nazwisko nauczyciela: Magdalena Ślusarczyk
Przedmiot: programowanie strukturalne i obiektowe
Klasa: 2c
Liczba uczniów: 14
Liczba godzin: 1
Miejsce odbywania zajęć: pracownia komputerowa

Część merytoryczna:

Temat jednostki metodycznej: „Operacje na plikach w Pascalu.”
Temat jednostki lekcyjnej: „Operacje na plikach tekstowych.”

Cele lekcji:
a) poznawczy
• uczeń potrafi wyjaśnić sens zastosowania zmiennej plikowej
• uczeń potrafi opisać ogólny schemat operacji na pliku
• uczeń potrafi wyjaśnić działanie procedury „assign”, „reset” i „rewrite”
• uczeń potrafi wyjaśnić działanie procedury „append”
• uczeń potrafi wyjaśnić zastosowanie procedur „read” i „write”
• uczeń potrafi wyjaśnić działanie procedury „close”
• uczeń potrafi wyjaśnić działanie procedury EOF
b) kształcący
• uczeń potrafi kojarzyć fizyczny plik na dysku ze zmienną plikową
• uczeń potrafi otworzyć plik tekstowy do odczytu lub zapisu danych
• uczeń potrafi odczytać lub zapisać informację do pliku
• uczeń potrafi dopisywać informacje do pliku bez utraty danych
• uczeń potrafi zamknąć plik
• uczeń potrafi zastosować procedurę EOF

Część metodyczna:

Metody nauczania:
- pogadanka
- pogadanka wstępna
- ćwiczenia z użyciem komputera
- pogadanka utrwalająca

Środki kształcenia:
✓ stanowisko komputerowe z systemem operacyjnym Mac OS X;
✓ program Xcode;
✓ projektor

Forma prowadzenia zajęć: grupowa

|Ogniwo |Czas |Treści |Metoda wiodąca |Uwagi metodyczne |
|I |5 |Podanie tematu i celów lekcji. |Metoda podająca (pogadanka) | |
|III |10 |Omówienie procedur wykorzystywanych w operacjach |Metoda podająca (pogadanka | |
| | |na plikach tekstowych |wstępna) | |
|V |25 |Ćwiczenia praktyczne przy komputerze |Metoda praktyczna (ćwiczenia z | |
| | | |użyciem komputera) | |
|VI |5 |Powtórzenie i utrwalenie wiadomości. |Metoda podająca (pogadanka | |
| | | |utrwalająca) | |

Ćwiczenia do wykonania w czasie lekcji.

Zad.1
Otwarcie istniejącego pliku do odczytu i wyświetlenie jego zawartości.

program test;
uses
EmptyPlaceHolderUnit;

var
zmienna_plikowa: text;
dane:string;

begin
assign(zmienna_plikowa,'/Users/ZSTiO/pliki2/palindrom.txt');
reset(zmienna_plikowa);

while not EOF (zmienna_plikowa) do
begin
readln(zmienna_plikowa,dane);
writeln(dane);
end;

close(zmienna_plikowa);
end.

Zad.2
Otwarcie pliku do zapisu, wpisanie nowych danych i ich wypisaniem.

program test;
uses
EmptyPlaceHolderUnit;

var
zmienna_plikowa: text;
dane:string;
i:integer;

begin
assign(zmienna_plikowa,'/Users/ZSTiO/pliki2/palindrom.txt');
rewrite(zmienna_plikowa);

for i:=1 to 5 do
begin
readln(dane);
writeln(zmienna_plikowa,dane);
end;
close(zmienna_plikowa);

reset(zmienna_plikowa);
while not eof (zmienna_plikowa) do
begin
readln(zmienna_plikowa,dane);
writeln(dane);
end;

close(zmienna_plikowa);
end.

Zad.3
Dopisywanie informacji do pliku, bez kasowania starych danych.

program test;
uses
EmptyPlaceHolderUnit;

var
zmienna_plikowa: text;
dane:string;
i:integer;

begin
assign(zmienna_plikowa,'/Users/ZSTiO/pliki2/palindrom.txt');
append(zmienna_plikowa);

for i:=1 to 5 do
begin
readln(dane);
writeln(zmienna_plikowa,dane);
end;
close ...