М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
blurryfacegirl
blurryfacegirl
12.10.2020 03:10 •  Информатика

Паскаль! Получил плохую оценку! :
1. Дан массив из 10 элементов. Найти сумму минимального и максимального элементов.

2. Дан массив из 10 элементов, значения которых равны соответственно (1, 5, 25, 35, 45, 55, 105, 0, 2, 10). Найти минимальное значение оканчивающееся на 5. Заменить все элементы массива, большие 50 на это значение и вывести новый массив.

👇
Ответ:
Ангелок1105
Ангелок1105
12.10.2020

===== PascalABC.NET =====

begin

 // 1

 var a := ArrRandom(10, -99, 99);

 a.Println;

 Println('Сумма минимального и максимального равна', a.Min + a.Max);

 // 2

 var b := Arr(1, 5, 25, 35, 45, 55, 105, 0, 2, 10);

 b.Println;

 var m := b.Where(p -> p mod 10 = 5).Min;

 b.Transform(p -> p > 50 ? m : p);

 b.Print

end.


Паскаль! Получил плохую оценку! : 1. Дан массив из 10 элементов. Найти сумму минимального и максимал
4,5(71 оценок)
Открыть все ответы
Ответ:

То же задание, только другой вывод? Ну, вот например, несколько вариантов (все выводят одно и то же- ну, если конечно на вход подавать число, указанное в задании, а не что попало :)

1) текстовый вариант (запрашиваемое число вводится сразу в текстовом виде):

алг

нач

лит т

вывод "Введите четырёхзначное число",нс

ввод т

вывод т[1],"+",т[2],"=",Цел(т[1],0)+Цел(т[2],0),", "

вывод т[3],"*",т[4],"=",Цел(т[3],0)*Цел(т[4],0)

кон

2) числовой вариант (простой):

алг

нач

цел а,б,в,г,д

вывод "Введите четырёхзначное число",нс

ввод а

д:=mod(а,10);а:=div(а,10)

г:=mod(а,10);а:=div(а,10)

в:=mod(а,10);а:=div(а,10)

б:=mod(а,10)

вывод б,"+",в,"=",б+в,", ",г,"*",д,"=",г*д

кон

3) числовой вариант (так себе):

алг

нач

цел а,ц

цел таб т[1:4]

вывод "Введите четырёхзначное число",нс

ввод а

нц для ц от 1 до 4

т[ц]:=mod(а,10)

а:=div(а,10)

кц

вывод т[4],"+",т[3],"=",т[4]+т[3],", ",т[2],"*",т[1],"=",т[2]*т[1]

кон

4) число-текстовый вариант (ерунда какая то, типа если не очень то, что в первом варианте число вводится как текст) -цикл перевода сделан для разнообразия, и так то заменяется одним алгоритмом, переводящим всё число сразу- цел_в_лит(а),  при этом и начальное значение  т  задавать не надо.

алг

нач

цел а

лит т=""

вывод "Введите четырёхзначное число",нс

ввод а

нц 4 раз

т:=символ(48+mod(а,10))+т

а:=div(а,10)

кц

вывод т[1],"+",т[2],"=",Цел(т[1],0)+Цел(т[2],0),", "

вывод т[3],"*",т[4],"=",Цел(т[3],0)*Цел(т[4],0)

кон

5) числовой вариант (непойми что и сбоку бантик):

алг

нач

цел а,б,в,н,ц

цел таб т[1:4]

вывод "Введите четырёхзначное число",нс

ввод а

нц для н от 1 до 4

а:=mod(а,10**(5-н))

т[н]:=div(а,10**(4-н))

в:=т[н]

ц:=div(н,4)

если 2*ц=н-2 то

вывод б,символ(43-ц),в,"=",б+в-(б+в-б*в)*ц,символ(44-12*ц)," " все

б:=т[н]

кц

кон


Написать программу на языке Кумир: Для введенного с клавиатуры четырехзначного числа найти сумму дву
4,7(19 оценок)
Ответ:
вика3878
вика3878
12.10.2020

видимо речь идет о кодировании графических изображений векторного типа.

Это учебник Босовой, 6 класс. итак есть координатная плоскость с осями - ОХ (по горизонтали) и ОУ по вертикале. Читаем условие:

например:

Установить 60,20 одна клеточка на рисунке принимается за 10. Поэтому откладываем на оси ОХ 6 клеточек, на оси ОУ 2 клеточки. Находим точку на пересечении. Это и будет Начальной точкой рисунка. А теперь просто. Рисуем линии от этой начальной точки. например линия (20,60). От точки которую мы только что нашли откладываем по оси Х 20 оси У 60. Рисуем точку и соединяем эти 2 найденных точки прямой линией. Дальше идет рисунок в такой же последовательности но уже исходной считается 2 точка. 

Не знаю, понятно ли объяснила. 

4,7(85 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ