Katalog Magdalena Ślusarczyk, 2015-03-10 Katowice Informatyka, Konspekty 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 Ć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. |