ЗАДАНИЯ К ЛАБОРАТОРНЫМ РАБОТАМ

ПО ДИСЦИПЛИНЕ «ИНФОРМАТИКА И ПРОГРАММИРОВАНИЕ»

Задание к лабораторной работе №1.

Тема: Изучение процедур Write, Writeln и оператора цикла с параметром.

1. Войти в среду ТР и набрать текст программы выдачи списка кодов в диапазоне (0..N) и соответствующих им символов:

{ Начальный текст программы: }

program cod_simv;

var n,i:byte;

sim: char;

begin writeln(‘ Программа выдает список имеющихся в ПК символов’);

writeln(‘ соответствующих кодам из диапазона (0..N, ’);

writeln(‘ где число N вводится с клавиатуры’);

writeln;

writeln(‘Задай целое положительное число N=’);read(n);

for i:=1 to n do write(i,chr(i));

writeln;

writeln(‘для завершения работы нажми Enter ’);

readln;

End.

2. Сохранить файл, присвоив ему имя “cod_sim.pas”. Выполнить программу, задавая последовательно значения N=10, 20, 200. Убедиться, что читать результат практически невозможно из-за слияния значений кодов и символов.

3. Внести изменения в строку оператора цикла for:

For i:=1 to n do write(i, ‘ – ‘,chr(i), ‘; ‘);

Выполнить программу при N=120. Уже лучше? Но еще трудно читать.

Примечание.

Программу придется запускать многократно при различных значениях N. Поэтому рекомендуется всю программу заключить в оператор цикла

repeat…until (povtor=’N’) or (povtor=’n’);

Для этого в программе необходимо объявить переменную povtor и внести соответствующие дополнения

4. Задать выдачу каждого символа в отдельной строке, изменив в for-операторе процедуру write на writeln. Задать N=15, затем 50. Увидим на дисплее только последние коды до 50-го и их символы.

5. Tело цикла записать в виде составного оператора, заключенного в операторные скобки:

For i:=1 to n do

Begin sim:=chr(i); writeln(‘Коду ‘,i,’ соответствует символ ‘,sim,’ ‘);

End;

Выполнить программу при n=15 и 120. Видим последние коды до 120-го.

6. Увеличить число видимых символов, удалив ln в процедуре writeln и задав N=120. Плохо читается? Перейти к п.7.

7. Изменить программу, задавая печать только двух кодов-символов в строке:

· Объявить переменную S – счетчик строк.

· До начала цикла установить S в 0.

· Оператор цикла записать в виде:

For i:=1 to n do

Begin sim:=chr(i); write(i,’: ‘,sim,’ ‘);s:=s+1;

If S=2 then

Begin S:=0;writeln {переход на следующую строку}

end

End;

Выполнить программу при N=15 и 120.

8. Задать в программе условие размещения в строке максимального числа кодов-символов и выполнить программу при N=15, 120, 200. А как задавать произвольное число элементов в строке, вводимое в процессе работы программы? Проведите соответствующие изменения и дополнения в программе и проверьте результат.

9. Включить в программу процедуру clrscr очистки экрана. Для этого подключить модуль CRT, содержащий библиотеку дополнительных функций и процедур, в частности процедуру clrscr:

Program cod_simv;

Uses CRT;

Var ……………

……………

Begin clrscr;……

…………..

End.

Выполнить программу при N=15, 150, 300, 600.

Убедиться, что начиная с кода 256 символы повторяются, то есть всего кодируется в компьютере 256 символов (практически меньше, так как некоторые коды не связываются с символами. Найдите такие коды и подсчитайте их количество).