Задания для самостоятельного выполнения.

1. Вывести на экран монитора таблицу символов псевдографики вместе с их ASCII-кодами.

2. Вывести на экран монитора таблицу символов кириллицы вместе с их ASCII-кодами.

3. Вычислить и вывестси на экран монитора сумму порядковых номеров всех вводимых символов. Ввод продолжать до нажатия клавиши ‘Home’ на дополнительной клавиатуре.

4. Вывести на экран монитора таблицу кодов сканирования клавиш дополнтиельной клавиатуры. Ввод продолжать до нажатия клавиши ‘F1’.

5. Написать программу, обрабатывающую нажатие клавиш на клавиатуре. При нажатии функциональных клавиш (‘F1’ – ‘F10’) выводить их код сканирования вмести с названием клавиши. Во всех остальных случаях – выводить сообщение: ‘Не управляющая клавиша’. Ввод продолжать до нажатия клавиши ‘Ins’ на дополнительной клавиатуре.

6. Написать программу, обрабатывающую нажатие клавиш на клавиатуре. При нажатии клавиш на дополнительной клавиатуре выводить их код сканирования вмести с названием клавиши. Во всех остальных случах – выводить сообщение: ‘Не дополнительная клавиатура’. Ввод продолжать до нажатия клавиши ‘F2’.

7. Вводить символы с клавиатуры.Присвоить логической переменной Lзначение ‘true’, если выполняются указанные условия, и значение ‘false’иначе:

· значением Lявляется символ '*';

· значением Lявляется символ 'а';

· значением Lявляется цифра..

Вводимые символы и значение L выводить на экран монитора. Ввод символов продолжать до нажатия клавиши ‘Del’ на дополнительной клавиатуре.

8. Вывести текст, образованный символами с кодами ASCII, вводимыми с клавиатуры. Предусмотреть проверку принадлежности символа набору алфавитно-цифровых (не управляющих). В этом случае выводит на экран монитора код (а не символ). Ввод кодов с клавиатуры продолжать до нажатия ‘0’.

9. Вводить с клавиатуры десятичные цифры. На экран монитора выводить цифру, следующую по порядку за вводимой, считая при этом, что за '9' следует 'О’. Ввод продолжать до нажатия ‘End’ на дополнительной клавиатуре.

10. Вводить с клавиатуры символы латиницы. На экран монитора выводить значение ‘true’, если буква прописная, и ‘false’, если – заглавная. Ввод продолжать до нажатия ‘Home’ на дополнительной клавиатуре.

11. Вывести значение ‘true’, если в последовательности вводимых с клавиатуры символов заданная “буква 1” встречается чаще, чем заданная “буква 2”и значение ‘false’иначе. Ввод продолжать до нажатия ‘PgDn’ на дополнительной клавиатуре.

12. Если во вводимой последовательности символов входит каждая из букв слова 'key',тогда в качестве ответа вывести слово 'yes', а иначе - слово 'по'. Ввод продолжать до нажатия ‘PgUp’ на дополнительной клавиатуре.

13. Определить, являются ли вводимые символы правильной записью целого числа (возможно, со знаком). Ввод продолжать до нажатия ‘End’ на дополнительной клавиатуре.

14. Известно, что во вводимом тексте встречается заданная буква, причем не на последнем месте. Требуется вывести символ этого текста, который непосредственно следует за первым вхождением этой буквы. Ввод продолжать до нажатия ‘Del’ на дополнительной клавиатуре.

15. Известно, что во вводимом тексте встречается заданная буква, причем не на последнем месте. Требуется вывести символ этого текста, который непосредственно следует за последним вхождением этой буквы. Ввод продолжать до нажатия ‘Ins’ на дополнительной клавиатуре.

16. Вводить с клавиатуры десятичные цифры. На экран монитора выводить цифру, предшествующую по порядку за вводимой, считая при этом, что за '9' следует 'О’. Ввод продолжать до нажатия ‘Ins’ на дополнительной клавиатуре.

17. Если во вводимой последовательности символов входит каждая из букв слова ‘pascal’,тогда в качестве ответа вывести значение 'true', а иначе – значение ‘false’. Ввод продолжать до нажатия ‘PgDn’ на дополнительной клавиатуре.

18. Определить, являются ли вводимые символы правильной записью вещественного числа (возможно, со знаком). Ввод продолжать до нажатия ‘Home’ на дополнительной клавиатуре.

19. Вывести значение ‘true’, если в последовательности вводимых с клавиатуры символов заданная “буква 1” встречается реже, чем заданная “буква 2”и значение ‘false’иначе. Ввод продолжать до нажатия ‘PgUp’ на дополнительной клавиатуре.

20. Вывести значение ‘true’, если в последовательности вводимых с клавиатуры символов заданная “буква 1” встречается столько же раз, сколько и заданная “буква 2”и значение ‘false’иначе. Ввод продолжать до нажатия ‘Home’ на дополнительной клавиатуре.

21. Вводить символы с клавиатуры.Присвоить логической переменной Lзначение ‘true’, если выполняются указанные условия, и значение ‘false’иначе:

· значением Lявляется прописная буква латинского алфавита;

· значением Lявляется цифра..

Вводимые символы и значение L выводить на экран монитора. Ввод символов продолжать до нажатия клавиши ‘End’ на дополнительной клавиатуре.

22. Вводить символы с клавиатуры.Присвоить логической переменной Lзначение ‘true’, если выполняются указанные условия, и значение ‘false’иначе:

· значением Lявляется заглавная буква латинского алфавита;

· значением Lявляется скобка.

Вводимые символы и значение L выводить на экран монитора. Ввод символов продолжать до нажатия клавиши ‘Home’ на дополнительной клавиатуре.

23. Подсчитать, сколько раз заданная пара символов входит во вводимый текст.

24. Подсчитать число вхождений заданной тройки символов во вводимый текст.

Тема 9. График функции в текстовом режиме.

Построить график функцмм на заданном интервале. [a, b] изменения аргумента x. Использовать стандартные функции текстового режима (модуль CRT). Вычисление оформить в виде функции.

Пример 1. . Интервал [0; 4].

Program pr9;

uses crt;

const a = 0; b = 4; {интервал}

n = 14; {количество точек}

var i, xekr, yekr, yg, xg, j:integer;

x, y, dx:real;

function f(x: real): real;

begin

f:= 5*exp(x)

end;

begin clrscr;

dx:= (b-a)/(n-1); {шаг изменения x}

gotoxy(2y,1);

textcolor(2);

write('y=5*exp(x)');

for i:=21 downto 2 do begin

gotoxy(14,i);

textcolor(10); write('│');{<Alt>+179}

delay(100);

end;

gotoxy(14,1); write('^');

gotoxy(16,1); textcolor(13); write('Y');

for i:=1 to 3 do begin

gotoxy(14,4+(i-1)*6);

textcolor(10); write('│');{<Alt>+180}

gotoxy(9,4+(i-1)*6);

yg:=100*(4-i);

textcolor(13); write(yg:4);

delay(100);

end;

for j:=14 to 70 do begin

gotoxy(j,22);

textcolor(10); write('--');{<Alt>+196}

delay(100);

end;

gotoxy(72,22); write('>');

gotoxy(74,22);

textcolor(13); write('X');

for j:=1 to 5 do begin

gotoxy(14+(j-1)*14,22);

textcolor(10); write('-'); {<Alt>+194}

gotoxy(14+(j-1)*14,23);

xg:=(j-1);

textcolor(13); write(xg);

delay(80);

end;

for i:=0 to n-1 do begin

x:=dx*i; y:= f(x);

xekr:=round(14*x+14);

yekr:=round(22-y/15);

gotoxy(xekr,yekr);

textcolor(13); write('*');

delay(300);

end;

readkey;

end.