Тема: «Операторы присваивания, ввода и вывода»
1. Какие из следующих операторов ввода записаны неверно? Объясните свой ответ.
а)- INPUT X
б)- INPUT “X =”; X
в)- INPUT “X =”
г)- INPUT “X, Y”; X , Y
д)- INPUT “X,Y”; X
е)- INPUT “X =” ; X , “Y =” ; Y
2. Найдите ошибки в следующих фрагментах программ:
а) А = 5
В = 2 * А
PRINT A : B
PRINT “B =” ; 2 * A
PRINT конец
б) Х = 7
2 * Х = Y
PRINT ‘Y =’ ; X ^ 2
PRINT Y + 3
3. Объясните назначение следующей программы:
INPUT “A =” ; A
INPUT “B =” ; B
A = A + B
B = A – B
A = A – B
PRINT “A =”; A ; “B =” ; B
4. Покажите на бумаге, что будет выведено на экран в результате работы следующего фрагмента программы:
X = 2
Y = 3
PRINT “X =” ; X , “Y =” ; Y
X = Y
Y = X
PRINT X , Y , 3
5. Что будет выведено на экран в результате работы следующего фрагмента программы:
A = 10 : B = 6
A = (A + B) / 2
B = (A + B) / 2
PRINT “A =” ; A , “B =” ; B
A = (A + B) / 2
PRINT : PRINT A , B
A = B : B = A
PRINT A , B
var s,a:string;
begin
write('Введите строку : ');
readln(s);
write('Введите слово : ');
readln(a);
if(pos(a, s) <> 0) then writeln('Слово "',a,'" в строке есть')
else writeln('В строке такого слова нет');
end.
Тест №1
Введите строку : Привет участникам олимпиады!
Введите слово : ник
Слово "ник" в строке есть
Тест №2
Введите строку : Всем привет!
Введите слово : админ
В строке такого слова нет