Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Инфоурок / Информатика / Другие методич. материалы / Команды языка программирования PascalABC.NET для работы с текстом

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

Международный конкурс по математике «Поверь в себя»

для учеников 1-11 классов и дошкольников с ЛЮБЫМ уровнем знаний

Задания конкурса по математике «Поверь в себя» разработаны таким образом, чтобы каждый ученик вне зависимости от уровня подготовки смог проявить себя.

К ОПЛАТЕ ЗА ОДНОГО УЧЕНИКА: ВСЕГО 28 РУБ.

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

Подробнее о конкурсе - https://urokimatematiki.ru/


Идёт приём заявок на самые массовые международные олимпиады проекта "Инфоурок"

Для учителей мы подготовили самые привлекательные условия в русскоязычном интернете:

1. Бесплатные наградные документы с указанием данных образовательной Лицензии и Свидeтельства СМИ;
2. Призовой фонд 1.500.000 рублей для самых активных учителей;
3. До 100 рублей за одного ученика остаётся у учителя (при орг.взносе 150 рублей);
4. Бесплатные путёвки в Турцию (на двоих, всё включено) - розыгрыш среди активных учителей;
5. Бесплатная подписка на месяц на видеоуроки от "Инфоурок" - активным учителям;
6. Благодарность учителю будет выслана на адрес руководителя школы.

Подайте заявку на олимпиаду сейчас - https://infourok.ru/konkurs

  • Информатика

Поделитесь материалом с коллегами:

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

расширением 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% скидкой при обучении по программам профессиональной переподготовки.

После окончания обучения выдаётся диплом о профессиональной переподготовке установленного образца (признаётся при прохождении аттестации по всей России).

Обучение проходит заочно прямо на сайте проекта "Инфоурок".

Начало обучения ближайших групп: 18 января и 25 января. Оплата возможна в беспроцентную рассрочку (20% в начале обучения и 80% в конце обучения)!

Подайте заявку на интересующий Вас курс сейчас: https://infourok.ru/kursy



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

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

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

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

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

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

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

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

УЖЕ ЧЕРЕЗ 10 МИНУТ ВЫ МОЖЕТЕ ПОЛУЧИТЬ ДИПЛОМ

от проекта "Инфоурок" с указанием данных образовательной лицензии, что важно при прохождении аттестации.

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

Список всех тестов можно посмотреть тут - https://infourok.ru/tests


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