Самое маленькое по размеру.
Если яблоко в руке больше, чем на столе то:
Положить яблоко во вторую корзину
Если меньше, то:
Оставить его на столе, а во вторую корзину положить предыдущее яблоко, которое лежало на столе.
Даны два массива, в одном - случайные числа, второй такого же размера, как и первый, но не содержит элементов.
Найти в первом массиве самый маленький элемент и присвоить переменной min - этот элемент. Все остальные - переместить во второй массив.
Программа:
var basket1, basket2:array[0..10] of integer;
min, i: integer;
begin
// Переменные по умолчанию 0, в таком случае не можем быть минимального числа.
// Но я знаю, что в массиве, максимальное число = 100. Возьмём его за минимальное - для сравнения.
min := 101;
// Заполняем первый массив случайными числами. От 0 до 100.
for i:=0 to 10 do
begin
basket1[i] := random(100);
basket2[i] := 0;
write(basket1[i]:3);
end;
writeln();
for i:=0 to 10 do
if basket1[i] < min then
begin
basket2[i] := min;
min := basket1[i];
end
else
basket2[i] := basket1[i];
writeln(min);
end.
Объяснение:
Здесь не надо писать программу. Я очень сомневаюсь, что в 9 классе нужно будет написать программу под это задание.
Строки которые начинаются с // - являются комментариями, их можно удалить.
ответ: python возможно при копирований будет давать ошибку, видимо, потому что не признает пробелы которые использует "Знания". А так Алгоритм и код полностью рабочие(замени пробелы на свои, если будешь копировать)
a)
text = input("Введите текст: ")
c = ''
while len(ch) != 1:
c = input("Введите букву: ")
is_c_in_text = False
for i in text:
if i == c:
is_c_in_text = True
if is_c_in_text:
print("буква \"" + c + "\" содержится в ранее введенном тексте")
else:
print("буква \"" + c + "\" отсутсвует в тексте")
б)
text = input("Введите текст:")
word = input("Введите слово:")
i = 0
is_word_in_text = False
while i < len(text):
j = 0
while j < len(word):
if word[j] != text[i + j]:
break
elif j == len(word) - 1:
is_word_in_text = True
j += 1
i += 1
if is_word_in_text:
print(f"слово \"{word}\" было в тексте(или содержалось в другом слове, как его часть)")
else:
print(f"слова \"{word}\" не было в тексте")
в)
text = input("Введите текст:")
word = input("Введите слово:")
i = 0
cnt = 0
while i < len(text):
j = 0
while j < len(word):
if word[j] != text[i + j]:
break
elif j == len(word) - 1:
cnt += 1
j += 1
i += 1
print(f"слово \"{word}\" встречалось в тексте {cnt} раз(а)")
Объяснение:
Верный ответ: e)45_A; и i)fg-л23.
2. В данном вопросе нужно расставить отношение, однако слева на 1 больше,чем справа, поэтому отвечаю как написан вопрос.
В данном случае типы данных можно сразу разделить на "целочисленные" (integer, byte,word) и "с плавающей точкой" (real). каждый из них имеет свой диапазон значений:
Byte [0..255]
Word [0..65535]
Integer [-32768..32767]
Real [-39..38] (однако в разных версиях паскаля может различаться)
Таким образом, числа с дробной частью сразу уходят к типу Real. Число 64000 автоматически отправляется к типу Word. 10351 - приходится на тип Integer. Число 14 остается для типа Byte.
ответ: a) A:=3.234=> b) Real
b) Z:=14=> c) Byte
c) B:=10351=> a) Integer
d) K:=-0.2=> b) Real
e) C:= 64000=> d) Word
3. a) Переменная - оператор присваивания - значение -;
V:=7;
b) Переменная Z - оператор присваивания - переменная Z + 30 - ;
Z:=Z+30;
ответ: a) V:=7; b) Z:=Z+30
4. Вывод на экран производится оператором Write();
а) Для вывода на экран символьной строки, в скобках оператора ставятся одинарные кавычки в которых пишется желаемое сообщение.
Write('Имя');
b) Для вывода на экран числа,которое не является сообщением, число или же переменную в скобках оператора ставят после запятой, которая ставится после кавычек сообщения.
Write(' ',400);
ответ: a)Write('Имя'); b) Write(' ',400);
5. a) Var => c) Раздел описания переменных
b) Program => b) Раздел имени программы
c) Uses => d) Раздел описания библиотечных модулей
d) Begin …end => а) Раздел операторов
ответ: a)=>c)
b)=>b)
c)=>d)
d)=>a)
6. Рассмотрим каждый случай на ошибку:
a) Write ©; - в данном случае после оператора вывода сразу же идет символ, что недопустимо компилятором - следовательно ошибка в том,что этот символ должен находится в скобках и кавычках,а именно таким образом: Write('©');
b) Writeln; - в этом случае критической ошибки нет, так как суффикс ln у оператора обозначает,что после его выполнения будет сделан переход каретки вывода на следующую строку.
c) Writeln (Введите любое число); - как я уже указывал ранее, сообщение,которое мы хотим вывести на экран должно находится внутри скобок в кавычках, которых здесь нет. В этом и заключается ошибка в этом случае. Правильно эта команда выглядит так: Writeln ('Введите любое число');
d) Write X,Y; - Ошибка аналогичная варианту выше, за исключением того,что в этот раз используются переменные для вывода на экран,а значит они должны быть описаны для данного оператора в скобках, после кавычек и запятой : Write (' ', X , Y);
e) WRITELN (‘воскресенье, нерабочий день’); - Оператор написан большими буквами, что не является ошибкой, так как не разделяет регистры букв. В скобках все указано верно (кавычки видимо стоят такие ' ', если же нет - то в них ошибка).