Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Сформировать список из N целочисленных случайных элементов https://www.cyberforum.ru/ pascalabc/ thread1274519.html Сформировать список из N целочисленных случайных элементов (N – вводится пользователем, значения элементов выбирать из диапазона от 1 до 5). Вставить после каждого нечетного элемента такое количество звеньев с нулевыми числами, которое соответствует значению этого элемента. P.S: При введении "n" - был список (не обязательно)	Pascal ABC Найти среднее арифметическое значение минимальных элементов строк таблицы Найти среднее арифметическое значение минимальных элеменов строк таблицы?:help:
Pascal ABC Определить, в каком столбце матрицы максимальный и минимальный элементы стоят рядом В каком столбце матрицы максимальный и минимальный элементы стоят рядом Надо использовать двумерный массив https://www.cyberforum.ru/ pascalabc/ thread1274448.html	Pascal ABC Есть у кого-нибудь таблица со всеми формулами для корней в степени? https://www.cyberforum.ru/ pascalabc/ thread1274437.html Есть у кого-нибудь таблица со всеми формулами для корней в степени? А то никак не могу найти, чтобы сделать задание На будущее, одна тема - одна задача (а не три), задания вставляйте в текстовом виде, для формул есть редактор формул, рисунки само собой вложением.
Отследить температуру удаленного датчика и вывести значение на экран (в градусах Цельсия) Pascal ABC Основная задача - управление температурой удалённого объекта через COM-порт. 1)Нужно отследить температуру удаленного датчика и вывести значение на экран(в градусах Цельсия). 2)В зависимости от величины температуры, допустим, что порог равен 30 градусам, включить нагреватель, если температура меньше 30 градусов, или охладитель, если больше 30 градусов. 3)Также нужна возможность управления...	Pascal ABC Написать программу вычисления значений выражения \sum_{k=1}^{n}2\frac{(-1)^{k+1}}{k(k+1)} помогите написать программу:wall: https://www.cyberforum.ru/ pascalabc/ thread1274378.html
Pascal ABC Для заданного x найти с точностью до E>0 сумму ряда помогите с задачами: а) Для заданного x найти с точностью до E>0 сумму ряда: S=1+x/1!+x^2/2!+x^3/3!+... Считается, что заданная точность достигнута, если абсолютное значение очередного слагаемого меньше E. б) Перевести число N из двоичной системы счисления в десятичную систему счисления. https://www.cyberforum.ru/ pascalabc/ thread1274350.html	Pascal ABC Отпечатать номера строк, которыми заданы точки, удаленные друг от друга не более чем на заданную величину Дана матрица из 4 столбцов и 6 строк. Двумя первыми элементами каждой строки заданы координаты одной, а двумя последними - соответствующие координаты другой точки плоскости. Отпечатать номера строк, которыми заданы точки, удаленные друг от друга не более чем на заданную величину, и число таких строк. Расстояние между точками находится по т. Пифагора.
Pascal ABC Посчитать, сколько шагов сделала сортировка, прежде чем закончить свою работу https://www.cyberforum.ru/ pascalabc/ thread1274291.html Доброго времени суток, друзья! Я никак не могу написать программу, высчитывающую сколько шагов сделала сортировка вставками, прежде чем закончить свою работу, и вывод времени, потраченное на сортировку вывести на экран, помогите пожалуйста?!	Pascal ABC Вывести элементы массива, встречающиеся только один раз https://www.cyberforum.ru/ pascalabc/ thread1274217.html Помогите решить задачу.Срочно нужно . Задача:Задать массив целых чисел. Вывести на экран только те значения элементов массива, которые встречаются в нем ровно один раз.
Вывести сумму чисел из данного набора, расположенных между первым и последним нулем Pascal ABC Дано целое число N и набор из N целых чисел, содержащий по крайней мере два нуля. Вывести сумму чисел из данного набора, расположенных между первым и последним нулем (если первый и последний нули идут подряд, то вывести 0). Загвоздка в том, что нужно найти сумму чисел между первым и последним нулями.Через рандом. Добавлено через 3 минуты Вот код программы, но выдает сумму чисел между первым...	Pascal ABC Определить n первых членов рекуррентной последовательности https://www.cyberforum.ru/ pascalabc/ thread1274155.html Определить n первых членов рекуррентной последовательности. Program pr1; var N,k:integer; a,a1,a2,a3:real; begin repeat writeln('Введите N: '); readln(N); until n>3;

vint-81

охотник

1011 / 535 / 650

Регистрация: 29.09.2014

Сообщений: 1,083

13.10.2014, 14:45

В массиве A(n) расставить все элементы, начиная с k-го, в порядке убывания. Вывести на экран новый массив - Pascal ABC - Ответ 6715582

13.10.2014, 14:45. Показов 2066. Ответов 1

Метки (Все метки)

Сообщение было отмечено Alex2003 как решение

Решение

Pascal

const n=10;
type mas=array[1..n] of integer;
var a:mas;
    i,k:integer;
 
procedure sort(var a:mas;o:integer);
var i,j,temp:integer;
begin
 for i:=o to n-1 do
  for j:=o to n+o-i-1 do
   if a[j] < a[j+1]
    then
     begin
      temp:=a[j];
      a[j]:=a[j+1];
      a[j+1]:=temp
     end;
end;
 
procedure v(var a:mas;f:boolean);
var i:integer;
begin
 for i:=1 to n do
  begin
   if f then a[i]:=random(11);
   write(a[i]:3)
  end;
 writeln
end;
 
begin
 randomize;
 repeat
  writeln('k=? ,0<k<=n');
  readln(k);
 until (k>0)and(k<=n);
 v(a,true);
 sort(a,k);
 v(a,false);
end.

Добавлено через 1 час 3 минуты
для k=10 не работает
в 34 и 36 строке k<=n заменить на k<n

Вернуться к обсуждению:
В массиве A(n) расставить все элементы, начиная с k-го, в порядке убывания. Вывести на экран новый массив Pascal ABC

Заказать работу у эксперта

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

13.10.2014, 14:45

Готовые ответы и решения:

В массиве A(n) расставить все элементы, начиная с k - го, в порядке убывания. Вывести на экран новый массив
#include <iostream> #include <windows.h> #include <ctime> #include <algorithm> //В массиве A(n)...

Дан массив C(N). Найти сумму модулей последних Z элементов. Расставить в порядке убывания элементы M, начиная с элемента K
Помогите пожалуйста с задачкой.) Дан массив C(N). Найти сумму модулей последних Z элементов....

Дан целочисленный массив размера N. Вывести все содержащиеся в данном массиве чётные числа в порядке убывания их индексов
Дан целочисленный массив размера N. Вывести все содержащиеся в данном массиве чётные числа в...

Дан целочисленный массив размера N. Вывести все содержащиеся в данном массиве четные числа в порядке убывания их индексов, а также их количество K
Помогите написать программу. Дан целочисленный массив размера N. Вывести все содержащиеся в данном...

	13.10.2014, 14:45

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

13.10.2014, 14:45

Помогаю со студенческими работами здесь

Массив. Вывести все четные в порядке возрастания их индексов,все нечетные в порядке их убывания
помогите, пожалуйста, решить задачи по массивам. очень нужно. полностью пропустила эту тему( 1.дан...

Элементы массива A[10] расположить в порядке убывания, не создавая новый массив
Помогите пожалуйста с заданием) Элементы массива A расположить в порядке убывания, не создавая...

Сформировать новый массив Y из массива X, расположив его элементы в порядке убывания
Задан массив Х{xi} (i=1,n; n=8 ). Сформировать новый массив Y из массива X , расположив его...

Вывести вначале все содержащиеся в данном массиве четные числа в порядке возрастания их индексов, а затем все нечетные в порядке убывания индексов
Дан целочисленный массив размера N. Вывести вначале все содержащиеся в данном массиве четные числа...

Новые блоги и статьи
Как написать микросервис на Go/Golang InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .	Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .	Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .	Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .
Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .	Как создать приложение магазина для iOS/iPhone на Swift InfoMaster 14.01.2025 Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .	Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь! Hrethgir 13.01.2025 По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта в Gowin Eda. Восьмибитный счётчик из сумматора+ генератор сигнала. . .	UserScript для подсветки кнопок языков программирования в зависимости от текущего раздела volvo 13.01.2025 В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .	Введение в модели и алгоритмы машинного обучения InfoMaster 12.01.2025 Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .	Как на Python создать нейросеть для решения задач InfoMaster 12.01.2025 В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .

Наверх