Задача: в файле input.dat записаны числа, сколько их – неизвестно, но не более 100. Переставить их в порядке возрастания и записать в файл output.dat

КАРТА УРОКА

 для организации занятий с использованием

Дистанционных технологий обучения

 

Учитель: Лавриненко А.П.

Предмет: Информатика и ИКТ

Класс: 10А

Дата проведения урока: 30.04 2020 Чт

Выполненное практическое задание необходимо предоставить в любом доступном формате (скан, фотография, документ MS Word):

- обязательно присоединено файлом выполненного домашнего задания в Виртуальной школе в своем дневнике;

- можно электронным письмом на адрес a-lvr@yandex.ru;

- можно сообщением на странице в социальной сети https://vk.com/club193796786 (в контакте).

Название файла (сообщение) должно содержать название предмета, фамилию ученика, дата и класс. Например: Информатика Иванов 6042020 10А.doc

Тема урока: Файлы. Типизированные файлы.

Цель урока:

- продолжить знакомство с приемами использования файлов в программировании;

- научиться разрабатывать и анализировать программы с использованием файлов.

 

Задание на урок:

Повторить теоретический материал по теме «Файлы», воспользоваться презентацией расположенной на Яндекс диске по адресу https://yadi.sk/i/BuJ-3TrBO9pgSA, при необходимости просмотреть еще раз видеоурок «Урок информатики Работа с Файлами в Pascal» по адресу https://youtu.be/W0GZZqOtzVo

ТЕОРЕТИЧЕСКИЙ МАТЕРИАЛ.

Ознакомиться с презентацией по теме урока, которая называется «ИНФ 10 кл Типизированные файлы 30 04 2020» и расположена на Яндекс диске по ссылке  

Https://yadi.sk/i/G7WGmVdzmE9-gg

Разбор теоретического материала, представленного в презентации с использованием видеоконференции zoom. Инструкция по использованию zoom после конспекта этого урока (Приложение1)

Задачи, разобранные в презентации набрать в ABCPascal и проанализировать.

Задача 1

Задача: в файле input.dat записаны числа, сколько их – неизвестно. Записать в файл output.dat их сумму.

Задача 2

Задача: в файле input.dat записаны числа, сколько их – неизвестно, но не более 100. Переставить их в порядке возрастания и записать в файл output.dat.

 

 

  Домашнее задание:

Написать условие задачи, которую решает программа записанная в ABCPascal.

program A1;

Var

  f: Text;

a: array of string:= ('Каждый','охотник','желает','знать','где','сидит','фазан');

Begin

  assign(f,'a.txt');

rewrite(f);

for var i:=0 to a.Length-1 do

    writeln(f,a[i]);

close(f);

writeln('Текст записан в файл a.txt');

end.