Логические переменные

51. Определите значение логического выражения, утверждаю­щего, что точка с координатами x, y принадлежит окружности радиусом r. Центр окружности находится в точке a, b. Уравнение окружности (x-a)²+(y-b)²=r²

Решение:

Program log;

var x,y,a,b,r:integer;

v:boolean;

begin

writeln ('vvod x,y,a,b,r');

readln (x,y,a,b,r);

v:=(sqr(x-a)+sqr(y-b))=(sqr(r));

writeln ('v=',v);

end.

Output

vvod x,y,a,b,r

2 0 0 0 2

v=TRUE

52. Определите значение логического выражения, утверждающего, что точка с координатами x, y принадлежит первой или третьей четверти координатной плоскости.

1-ая четверть

x>0 and y>0

3-я четверть

x<0 and y<0

Решение:

Program log;

var x,y:integer;

v:boolean;

begin

writeln ('vvod x,y');

readln (x,y);

v:=((x>0) and (y>0))or((x<0) and (y<0));

writeln ('v=',v);

end.

Output

vvod x,y

5 10

v=TRUE

vvod x,y

-5 10

v=FALSE

vvod x,y

-5 -10

v=TRUE

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

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

55. Напишите программу, которая вычисляет значение логического выражения, утверждающего, что два вещественных числа, введенных с клавиатуры, - числа разного знака.

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

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

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

59. Дано натуральное трехзначное число n, в записи которого нет нулей. Составить алгоритм, который возвращает значение ИСТИНА, если верно утверждение: "число n кратно каждой своей цифре", и ЛОЖЬ — в противном случае.

Строки

60. Дана строка m “кораблекрушение”, из которой составлены следующие строки:

№	Строка
1	булка
2	белка
3	кукла
4	корка
5	кирка

Укажите через запятую номера строк, которым соответствуют следующие алгоритмы.

m[8] + m[14] + m[9] + m[1] + m[4]

m[8] + m[10] + m[1] + m[6] + m[4]

m[5] + m[10] + m[6] + m[8] + m[4]

m[5] + m[7] + m[6] + m[1] + m[4]

m[1] + m[2] + m[9] + m[8] + m[4]

61. Строка а равна “аромат”, строка b равна “финик”. Известны алгоритмы образования строк a и b из строки n: a:= n[11] + n[5] + n[4] + n[6:8] b:= n[3] + n[1:2] + n[9] + n[10] Найдите строку n.

62. Дана строка s “кораблекрушение”, из которой составлены следующие строки:

№	Строка
1	Каблук
2	Оракул
3	Облик
4	Крушение
5	Клубника

Укажите через запятую номера строк, которым соответствуют следующие алгоритмы.

s[2:4] +s[1] + s[10] + s[6]

s[8] +s[6] + s[10] + s[5] + s[13:14] +s[8] + s[4]

s[8] +s[4:6] + s[10] + s[1]

s[1] +s[3] + s[10:15]

s[2] +s[5:6] + s[14] + s[1]

63. Строка а равна “бар”, строка b равна “соки”. Известны алгоритмы образования строк a и b из строки n:

a:= n[2] + n[1] + n[3]

b:= n[7] + n[6] + n[5] + n[4]

Найдите строку n.

64. Дана строка t “липа” и строка k “нота”. Какая строка получится в результате вычисления выражения:

k[4] + k[1] + k[3] + t[2] + t[1] + k[2] + t[3:4]

65. Найти сумму цифр трехзначного числа, вводимого с клавиатуры

66. Переписать слово из 4 букв в обратном порядке

67. Во введенной строке из 5 символов удалите все символы, стоящие на нечетных местах

68. Во введенной строке из 5 символов добавить букву “a” после каждого четного символа

69. Преобразовать слово “слон” в слово “луна”

70. Ввести фамилию. Ввести имя. Подсчитать суммарное количество букв.

71. Ввести слово ИНФОРМАТИКА. Определить, с какой позиции начинается слово ФОРМА, слово ФОРМАТ и слово ТИК.

72. Ввести слово ИНФОРМАТИКА. Вывести с помощью функции Copy слова ФОРМА, ТИК.

73. Во введенной строке ‘последователь’ удалите символы, чтобы получилась строка ‘следователь’.

74. Во введенной строке ‘карта’ вставьте символ, чтобы получилась строка ‘карета’.

75. Ввести имя Валя. Изменить имя на Валюша.

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

77. В заданном слове удвоить все символы, стоящие на чётном месте (ауау – аууауу).

78. Напишите программу, которая преобразует строковое значение “geografia” в “grafika”.

79. Напишите программу, которая преобразует строковое значение “informatika” в “matematika”.

80. Напишите программу, которая преобразует строковое значение “strategia” в “start”.

81. Определить номер заданной буквы, под которым эта буква находится в русском алфавите: 1) – до буквы Е, 2) – после буквы Ё.