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

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

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

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

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

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

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

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

Команды языка программирования PascalABC.NET для работы с текстом

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

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

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


bl-1_z-1.pas

uses crt;

var f:text;

i:integer;

stp,stc:string;

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

begin

textbackground(2);

clrscr;

textcolor(4);

gotoxy(24,1);

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

textcolor(14);

gotoxy(4,2);

write('Сегодня ты узнаешь о том, что записывая специальные команды - операторы.');

gotoxy(8,3);

write('ты сможешь давать мне команды для работы с текстом!');

gotoxy(2,4);

textcolor(15);

write('Hабирай с клавиатуры слова, написанные латинскими буквами и нажимай ');

assign(f,'bl_1_1.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(11);

gotoxy(2,4+i*2);

write(nabor[i]);

textcolor(5);

end;

until nabor[i]=stc;

end;

close(f);

gotoxy(2,5+i*2);

write('Молодец! Запиши в тетрадь тему урока: "Команды языка программирования PascalABC.NET для работы с текстом"');

gotoxy(2,6+i*2);

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

gotoxy(2,7+i*2);

write('Выучи дома все, что записано в тетради на этом уроке. До новых встреч!');

readkey;

end.


bl_1_1.txt

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

uses crt;

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

begin

выбрать цвет фона: зеленый - 2: textbackground(2);

textbackground(2);

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

clrscr;

выбрать цвет символов: лиловый - 5: textcolor(5);

textcolor(5);

координаты текста:4,5: gotoxy(4,5);

gotoxy(4,5);

вывести на экран текст Здравствуй, ПК!: write('Здравствуй, ПК!');

write('Здравствуй, ПК!');

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

readkey;

конец программы: end.

end.



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


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

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

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

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

Уважаемые коллеги!

Данный материал может быть полезен тем, кто начинает обучение программированию в среде PascalABC.Net.

Я использую его на занятиях «Основы программирования» в 5 классах. В этом возрасте дети плохо воспринимают лекционный материал, не очень быстро могут записывать его в тетрадь, причем, могут допускать ошибки, ввиду того, что много слов нужно записывать не на русском языке.

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

Рекомендация: приведенный в предложенной методической разработке текст разбейте на файлы с именами bl-1_z-1.pas и bl_1_1.txt и поместите их в одной папке, т.к. файл с расширением pas будет опираться на файл с расширением txt.

Думаю, что не стоит компилировать основной файл, т.к. файл с расширением pas сам по себе вызывает интерес у обучающихся, ведь они хотят научиться программировать самостоятельно, так как сделали самостоятельный выбор данного предмета для изучения.

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

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