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

Нужно вытянуть ! напишите процедуру ввода n элементов массива из файла. отсортируйте по невозрастанию методом простого обмена. (паскаль)

👇
Ответ:
Var  i,j,n,k: integer; 
 a: array [1..100] of integer;
begin
assign (input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
readln (n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do 
for j:=1 to n-i do
 if a[j+1]>a[j]
then begin k:=a[j]; a[j]:=a[j+1]; a[j+1]:=k; end;
for i:=1 to n do
write (a[i],' ');
end.

Входные данные писать в файл input.txt в формате:
n
a[i] a[i+1] a[i+2]...a[n].
4,6(20 оценок)
Открыть все ответы
Ответ:
joom3
joom3
25.04.2023

program sravnenie;

var a,b:integer;

begin

 write('Введите первое число для сравнения: ');

 readln(a);

 write('Введите второе число для сравнения: ');

 readln(b);

 if(a>b) then writeln('Первое число ',a, ' больше второго числа ',b)

 else if(a=b) then writeln('Первое число ',a, ' равно второму числу ',b)

 else writeln('Первое число ',a, ' меньше второго числа ',b);

end.

Объяснение:

Выше программа на языке программирования Pascal

Если будет нужно на Python/C++, напишешь в комментарии, добавлю

Надеюсь , удачи.

К ответу прикрепляю скриншот, что всё работает


Напишите код программы на сравнение 2-х чисел ​
4,6(69 оценок)
Ответ:
111dashamm639
111dashamm639
25.04.2023

Код C#:

double z, y, x;

           Console.Write("z = ");

           z = Convert.ToInt32(Console.ReadLine());

           Console.Write("y = ");

           y = Convert.ToInt32(Console.ReadLine());

           Console.Write("x = ");

           x = Convert.ToInt32(Console.ReadLine());

           x = (Math.Pow(z, 2) / (y + Math.Pow(x, 3)) + Math.Sin(y / 5));

           Console.WriteLine("ответ: " + x + "\n");

           Console.Write("x = ");

           x = Convert.ToInt32(Console.ReadLine());

           Console.Write("y = ");

           y = Convert.ToInt32(Console.ReadLine());

           x = (3 * x / (Math.Pow(Math.Cos(2),2) + 3));

           Console.WriteLine("ответ: " + x);

           Console.ReadKey();

Объяснение:

В данной программе происходит динамическая обработка данных линейных структур.

Первое что мы делаем, это инициализируем наши переменные (z, y, x), присвоение переменным значений задаёт пользователь в консоли (что и делает заполнение переменных динамическими, а не статическими). Далее мы присваиваем написанный пример к любой переменной, дабы вывести его на консоль.

Пишем ReadKey, чтобы консоль не закрылась сразу же после выполнения программы.

Думаю, что по коду и так всё ясно.

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