5. Использование переменных типа char

Тип CHAR - это символьный тип данных. Значениями переменных такого типа являются отдельные символы.

Описание переменных типа СHAR:

Var

имена: char;

Например:

Var

u,v: char;

Тогда можно записать операторы присваивания:

u:='а';

v:=u;

u:='*';

Апостороф (') употребляется, когда значение типа char явно указывается в программе. При выводе апострофы не печатаются и не высвечиваются на экране.

Возможна, например, такая запись:

if u='b' then v:='a'

Задания

№1. Что будет выведено на экран в результате выполнения следующей программы:

Const

a='Р';

c='Г';

Var

b,d:char;

Begin

b:='Д';

d:='У';

writeln(b,a,d,c)

End.

№2. Присвоить переменной X символ 'М',

переменной Q символ 'и',

переменной Y символ 'а',

переменной R символ 'н',

переменной Z символ 'ш',

переменной S символ 'м'.

С помощью этих переменных вывести следующие слова: Маша, наша, Миша, ниша, шина, машина, мина.

№3. Найдите ошибки в следующем фрагменте программы:

Var

b,c,y : char;

a : real;

……………

case y of

'18','30' : C:='11';

'3' : c:=A;

'20' : B:=A

end

№4. Если целое число S отрицательное, то присвоить переменной Q символ '-', если положительное - '+', если 0 - '0'.

№5. Ввести значение символьной переменной Х. Если это '+' или '-', то вычислить значение Z:

Z=Sin²B+Cos²C

Написать две программы: с использованием CASE и без его использования.

№6. Ввести символ Х. Выяснить, что это за символ, и:

если Х='!', то вычислить R=Q·R;

если Х='0','1','2',...,'9', то вычислить U=B²-4·A·C;

если Х='A','B',...,'Z','a','b',...'z', то вычислить R=d·R;

иначе N положить равным 0,1.

№7. Миникалькулятор. Вводится первое число, знак операции (+,-,*,/ и ^ - степень), второе число. Вывести на экран результат. На неправильный ввод операции должно быть предусмотрено соответствующее сообщение.

№8. Задан падеж первой буквой ('И' - именительный и т.д.). Вывести в заданном падеже слово 'Печь'. На неправильный ввод должно быть соответствующее сообщение.

№9. Перепишите следующую программу и подчеркните все ошибочные места. Укажите общее количество ошибок в данной программе.

Сonst

a:=23,7; b:48; c='#'

Var

d:real

e;f:integer

h:chr;

Begin

d=a+b; e:=a-b; f:=2b; e:=f*b;

h:='&'; f:=b*10/2; c:=h;

if d>b and c<h or a=d then

d=d-a e=e-f

else

f=ord(c);

case h of

'0..8' : h:=Succ(c);

'9' : d:=Sgr(b);

'10' : e:=Sqr(b);

'a'..'f','z'..'h': e:=Round(a) f:=Trunc(a);

! : h:=b;

* : h:=chr(b);

else e:=b div 10; f:=b mod 10;

end {case}

Write('a=,'a,' b=',c,' c=',a+b+d:10:2,e,f,g,h)

End.

6. Реализация циклических структур

В языке PASCAL существует три оператора цикла:

1) оператор цикла с параметром;

2) оператор цикла с постусловием;

3) оператор цикла с предусловием.

6.1. Применение оператора цикла с параметром

Оператор цикла FOR организует выполнение одного оператора заранее известное число раз. Существует два варианта оператора.

Общий вид оператора цикла с параметром:

FOR i:=a TO b DO s

или

FOR i:=a DOWNTO b DO s

где i - переменная порядкового типа (CHAR, INTEGER, BYTE и т.д.) - параметр цикла;

a, b - переменные или выражения такого же типа, что и I (если I целочисленная переменная, то a и b могут принимать значения как положительные, так и отрицательные, и ноль);

s - оператор (тело цикла).