Katalog

Magdalena Ślusarczyk, 2015-03-10
Katowice

Informatyka, Konspekty

Operacje na plikach tekstowych w Pascalu.

- n +

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

Ć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(zmienna_plikowa);

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

close(zmienna_plikowa);
end.

Wyświetleń: 175


Uwaga! Wszystkie materiały opublikowane na stronach Profesor.pl są chronione prawem autorskim, publikowanie bez pisemnej zgody firmy Edgard zabronione.