Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Свидетельство о публикации

Автоматическая выдача свидетельства о публикации в официальном СМИ сразу после добавления материала на сайт - Бесплатно

Добавить свой материал

За каждый опубликованный материал Вы получите бесплатное свидетельство о публикации от проекта «Инфоурок»

(Свидетельство о регистрации СМИ: Эл №ФС77-60625 от 20.01.2015)

Инфоурок / Информатика / Другие методич. материалы / Повторение команд работы с текстом в среде программирования PascalABC.Net и самостоятельный набор первой программы
ВНИМАНИЮ ВСЕХ УЧИТЕЛЕЙ: согласно Федеральному закону № 313-ФЗ все педагоги должны пройти обучение навыкам оказания первой помощи.

Дистанционный курс "Оказание первой помощи детям и взрослым" от проекта "Инфоурок" даёт Вам возможность привести свои знания в соответствие с требованиями закона и получить удостоверение о повышении квалификации установленного образца (180 часов). Начало обучения новой группы: 28 июня.

Подать заявку на курс
  • Информатика

Повторение команд работы с текстом в среде программирования PascalABC.Net и самостоятельный набор первой программы

библиотека
материалов

Внимание, в данном программном продукте приведены тексты двух отдельных файлов, причем файл с

расширением pas опирается на файл с расширением txt, поэтому сохраните их отдельно с указанными именами и расширениями и разместите в одной папке.


bl-1_z-2.pas

uses crt;

var f:text;

i:integer;

stp,stc:string;

nabor: array [1..9] of string;

begin

textbackground(2);

clrscr;

textcolor(1);

gotoxy(24,1);

write('Привет! Мой маленький ДРУГ!!!');

textcolor(14);

gotoxy(14,2);

write('Hадеюсь, что тебе было интересно в прошлый раз.');

gotoxy(10,3);

write('И ты дома выучил новые слова. Проверь, хорошо ли ты их знаешь');

gotoxy(2,4);

textcolor(15);

write('Hабери слова, которые обозначают: (не помнишь слов - открой тетрадь и посмотри)');

assign(f,'bl-1_z-2.txt');

reset(f);

for i:=1 to 9 do

begin

readln(f,stp);

readln(f,stc);

textcolor(1);

gotoxy(2,3+i*2);

write(stp);

textcolor(14);

repeat

gotoxy(2,4+i*2);

readln(nabor[i]);

if nabor[i]=stc

then

begin

gotoxy(40,4+i*2);

textcolor(15);

write(nabor[i]);

end

else

begin

textcolor(2);

gotoxy(2,4+i*2);

write(nabor[i]);

textcolor(5);

end;

until nabor[i]=stc;

end;

close(f);

gotoxy(2,5+i*2);

write('Молодец!!! Перепиши в тетрадь с экрана программу написанную белыми буквами');

gotoxy(2,6+i*2);

write('Нажми любую клавишу для перехода на новую страницу');

readkey;

clrscr;

gotoxy(2,1+i*2);

write('ЗАПИШИ И ЗАПОМНИ: Для создания нового файла:');

gotoxy(2,2+i*2);

write('Ctrl - N - Enter - Сохранить как - Напиши имя программы: bl-1_z-2)');

gotoxy(2,3+i*2);

write('Ctrl+S-Enter');

gotoxy(2,4+i*2);

write('Набери с клавиатуры текст программы, записанной в тетрадь.');

gotoxy(2,5+i*2);

write('При наборе текста программы каждые 5 мин нажимай: Ctrl+S - для сохранения');

gotoxy(2,6+i*2);

write('Shift+F9 - запуск программы.');

readkey;

end.


bl-1_z-2.txt

подключение текстового модуля

uses crt;

начало программы

begin

выбрать цвет фона: синий - 1

textbackground(1);

очистить экран (залив его выбранным цветом фона)

clrscr;

выбрать цвет символов: голубой - 11

textcolor(11);

координаты текста:2,15-от верхнего левого угла экрана вправо 2, вниз 15

gotoxy(2,15);

вывести на экран текст Ура! Все получается верно!!!

write('Ура! Все получается верно!!!');

команда ожидания нажатия на любую клавишу (читать клавишу)

readkey;

конец программы

end.



Подайте заявку сейчас на любой интересующий Вас курс переподготовки, чтобы получить диплом со скидкой 50% уже осенью 2017 года.


Выберите специальность, которую Вы хотите получить:

Обучение проходит дистанционно на сайте проекта "Инфоурок".
По итогам обучения слушателям выдаются печатные дипломы установленного образца.

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ

Краткое описание документа:

Данный материал будет полезен учителю на втором занятии по Основам программирования, в случае, если на предыдущем занятии дети уже познакомились с командами работы с текстом в Паскале. Запустив программу bl-1_z-2.pas обучающийся сможет проверить свои знания полученные на прошлом занятии, а при ошибочной записи той или иной команды сможет самостоятельно внести изменения и полностью успешно пройти этап самопроверки. Причем при вводе ответов на вопросы ему придется активизировать внимание и выполнять действия с внесением необходимых корректировок (цвета, координат, текста и др.) в сравнении с предыдущим уроком.

Автор
Дата добавления 19.11.2015
Раздел Информатика
Подраздел Другие методич. материалы
Просмотров164
Номер материала ДВ-171796
Получить свидетельство о публикации
Похожие материалы

Включите уведомления прямо сейчас и мы сразу сообщим Вам о важных новостях. Не волнуйтесь, мы будем отправлять только самое главное.
Специальное предложение
Вверх