Заполните таблицу, напишите действия указанных операторов:
№ Функция(оператор) Назначение функции(оператора)
1. MID$(S$,N1,N2)
2. LEN(‘STROKA’)
3. IF…THEN…ELSE
4. FOR ..TO…STEP…NEXT
5. INPUT Y$
6. PRINT “PECHAT’”
7. N=INSTR(1,Y$,B$)
2. Задание: Исследуйте функцию INSTR на примере программы:
REM
Y$=”БИНАРНЫЕ ЧАСЫ»: B$=”A”
N=INSTR(1,Y$,B$)
PRINT N
Какие необходимо сделать изменения в программе, чтобы определить номер позиции второй буквы
«А»?...Третьей? (ответ запишите в тетрадь
3. Программа автоматического подсчета количества букв «А» в строке. Задание: По блок-схеме
напишите программу на языке программирования QBASIC. Напишите пояснения, что выполняет
каждый элемент блок-схемы.
НЕТ ДА
НАЧАЛО
ВВЕДИТЕ S$
J=1 TO N STEP 1
Y$=mid$(s$,j,1)
Вывод К
Конец
N=LEN(S$): B$=”A”:K=0
IF Y$=B$
Y$=B$
y$=B$
yY$=B$
К=К+1
Домашнее задание:
1. Выучить операторы работы со строками.
2. Составить программу, которая подсчитывает количество слов во введеной с клавиатуры строке.
Составить программу движения двух спутников (Фобос и Деймос) вокруг Марса. (в графическом режиме, спутники и планету необходимо нарисовать схематично в виде окружностей
1. В.А.Котельников
Объяснение:
Влади́мир Алекса́ндрович Коте́льников (24 августа (6 сентября) 1908 года в Казани — 11 февраля 2005 года в Москве) — советский и российский учёный в области радиофизики, радиотехники, электроники, информатики, радиоастрономии и криптографии. Один из основоположников советской секретной радио- и телефонной связи. Академик АН СССР (23.10.1953), академик РАН (отделение физических наук), вице-президент АН СССР 1970—1988 гг, дважды Герой Социалистического Труда, 4-й кавалер ордена "За заслуги перед Отечеством" I степени.
Var
N,A:integer;
Begin
Write('N = ');Read(N);
A:=0;
While N>0 do
Begin
if (N mod 10) > A then A:= N mod 10;
N:=N div 10;
End;
Write(A)
End.
Var
N,A,B:integer;
C:boolean;
Begin
Write('N = ');Read(N);
A:=-1;
B:=-2;
C:=false;
While N>0 do
Begin
if A=B then C:=true;
if N>0 then
Begin
A:=N mod 10;
N:=N div 10;
End;
if A=B then C:=true;
if N>0 then
Begin
B:=N mod 10;
N:=N div 10;
End;
End;
if A=B then C:=true;
if C then Write('Есть')
else Write('Нет')
End.
Подробнее - на -