В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Dimka14228
Dimka14228
13.03.2020 12:27 •  Информатика

В программе приведенной ниже в прямоугольники поставьте операторы языка Паскаль, так что программа решит следующую задачу: Переменной C присвоить 10,5, В переменную D за данные с клавиатуры. Если их произведение больше 55, то переменной L присвоить 125,3 иначе L присвоить 20,4.

Program vetv2;

...

C, D, K, L :

; begin

C := 10.5 ;

Read ( D ); K := C * D;

IF > 55 THEN L := 125.3;

IF <=55 THEN L:= 20.4;

Write ('...=...', :5:2 );

Показать ответ
Ответ:
mauzeriss
mauzeriss
16.05.2022 20:31

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

PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018Внимание! Если программа не работает, обновите версию!

procedure SortByInsert(a: array of real);

// сортировка простыми вставками

begin

 for var Граница := 1 to a.Length - 1 do

   if a[Граница - 1] < a[Граница] then

   begin

     // сдвиг вправо

     var (Элемент, Позиция) := (a[Граница], Граница - 1);

     while (Позиция >= 0) and (a[Позиция] < Элемент) do

       (a[Позиция + 1], Позиция) := (a[Позиция], Позиция - 1);

     // вставка на нужное место

     a[Позиция + 1] := Элемент

   end

end;


begin

 var a := ReadArrReal(8);

 SortByInsert(a); a.Println

end.

Пример2.9 -25 8.1 31.9 -30.9 20.9 47.6 6.647.6 31.9 20.9 8.1 6.6 2.9 -25 -30.9
0,0(0 оценок)
Ответ:
nocitronum
nocitronum
25.07.2020 01:04

#include <iostream>  //подключаем библиотеки

#include <fstream>  //подключаем библиотеки

using namespace std; //пространство имён

int main() {

 

setlocale(LC_ALL, "Russian"); //русский

 

int arr[10] = {5,4,6,17,2,3,16,9,8,1};

 

for(int i = 0; i < 10; i++) //сортируем масссив

{

 if (arr[i] % 2 == 0)  //все четные

 {

  arr[i] = 1;    //меняем значение

  cout << arr[i] << " ";  //выводим

 }else    //все нечетные

 {

  arr[i] = 10;    //меняем значение

  cout << arr[i] << " ";  //выводим

 }

}

 

return 0; //возращаем ничего

}

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота