Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal Линейные списки Представить одну из приведенную ниже таблицу в виде линейного списка L, элементами которого являются строки таблицы. Написать процедуры организа- ции, добавления элемента в список, исключения элемента из списка, просмотра списка, а также одну из процедур в соответствии с вариантом, приведенным ни- же. Значения и количество записей в таблице студент выбирает самостоятельно. Исходные данные... https://www.cyberforum.ru/ pascal/ thread2166568.html Блок-схема Pascal
Всем привет. Помогите, пожалуйста, составить блок-схему. y=\begin{cases}\sqrt{|x+1|} & \text{ if } x\,<\,7 \\\\ \frac{1}{x^3-2} & \text{ if } x\geq 7 \end{cases}
Pascal Функция, лист бумаги https://www.cyberforum.ru/ pascal/ thread2166129.html
Имеется прямоугольный лист бумаги со сторонами а и b. Из листа делается коробка следующим образом: по углам листа вырезается четыре квадрата и коробка склеивается по швам. Какова должна быть сторона квадрата вырезанного из листа, чтобы коробка имела наибольшую вместимость? Вычисление оформить функцией. 		Pascal Работа с файлами Задание 2 соответствует заданию 2 лабораторной работы № 4. Данные структуры запись хранить в типизированном файле. Вот сама программа {$APPTYPE CONSOLE} uses SysUtils,windows; Const nmax=100; https://www.cyberforum.ru/ pascal/ thread2166022.html
Pascal Операции с одномерными массивами
Помогите, пожалуйста!!!( В программе используются 4 массива: A, B, C, D. Элементы массивов вычисляются 2 способами — с помощью генератора случайных чисел или же с использованием ввода массивов с клавиатуры. При написании программы использовать подпрограммы. Массивы как глобальные переменные не объявлять. Задание по обработке массива: Сортировка массива C по убыванию методом Шелла. 		Pascal Надо написать 3 алгоритма для данных рисунков! https://www.cyberforum.ru/ pascal/ thread2165917.html
Pascal Алгоритм вычисления суммы последних отрицательных чисел https://www.cyberforum.ru/ pascal/ thread2165833.html
Добрый день :) Помогите сделать задачу, вот условие: Ввести максимальное количество подряд стоящих чисел в последовательности, имеющих одинаковые знаки и последовательность чисел. Признаком окончания ввода последовательности чисел является ввод подряд заданного ранее количества чисел, имеющих одинаковые знаки. Вычислить сумму последних в последовательности отрицательных чисел, введенных... 		Обработка двумерных массивов с помощью процедур и функций. Pascal
Дана целочисленная квадратная матрица. Определить: 1) сумму элементов в тех столбцах, которые не содержат отрицательных элементов; 2) минимум среди сумм модулей элементов диагоналей, параллельных побочной диагонали матрицы.
Pascal Программирование операций над записями и типизированными файлами. https://www.cyberforum.ru/ pascal/ thread2165815.html
Описать структуру с именем AEROFLOT, содержащую следующие поля: - название пункта назначения рейса; - номер рейса; - тип самолета. Написать программу, выполняющую следующие действия с помощью процедур или функций: - ввод с клавиатуры данных в файл, состоящий из элементов типа AEROFLOT; записи должны быть размещены в алфавитном порядке по названи- ям пунктов назначения; - чтение данных из... 		Pascal Построить блок-схему алгоритма для вычисления значения функции и написать программу на языке pascal https://www.cyberforum.ru/ pascal/ thread2165497.html
Помогите решить такую задачу Построить блок-схему алгоритма для вычисления значения функции и написать программу: Y(x,\,y)=\begin{cases}\sqrt{x+y^{\,}} & \text{, if } y\,<\,2 \\\\ (x+y)^2 & \text{, if } y\geq 5\end{cases}
Pascal Вычислить и вывести на экран в виде таблицы значения функции
Пожалуйста помогите написать код программы Вычислить и вывести на экран в виде таблицы значения функции, задан- ной с помощью ряда, на интервале от ХНАЧ до ХКОН с шагом dХ и точностью E . Таблицу снабдить заголовком и шапкой. Строка таблицы должна содержать значение аргумента, значение функции и количество просуммированных чле- нов ряда. 2(x+((x^3)/3)+((x^5)/5)+....) , |x|<1 		Pascal Схема алгоритма получения (печати) всех перестановок из n чисел Помогите пожалуйста, нужна блок схема и код алгоритма получения (печати) всех перестановок из n чисел.Сам додумать не могу и уже не хватает времени(( https://www.cyberforum.ru/ pascal/ thread2164872.html
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
28.12.2017, 15:37 0

Процедура переноса элемента - Pascal - Ответ 11989002

28.12.2017, 15:37. Показов 1142. Ответов 2
Метки (Все метки)
Лучший ответ Сообщение было отмечено Kateryna1111 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39

const n=5;
type mas=array[1..n] of integer;
procedure p1(var a:mas);
var i,x:integer;
begin
x:=a[n];
for i:=n downto 2 do
a[i]:=a[i-1];
a[1]:=x;
end;
procedure p2(var a:mas);
var i,x:integer;
begin
x:=a[1];
for i:=1 to n-1 do
a[i]:=a[i+1];
a[n]:=x;
end;
var a:mas;
    i:byte;
begin
randomize;
writeln('Исходный массив');
for i:=1 to n do
 begin
  a[i]:=10+random(90);
  write(a[i]:3);
 end;
writeln;
p1(a);
writeln('Перестановка последнего элемента в начало');
for i:=1 to n do
write(a[i]:3);
writeln;
p2(a);
writeln('Перестановка первого элемента в конец');
for i:=1 to n do
write(a[i]:3);
end.


Вернуться к обсуждению:
Процедура переноса элемента Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 28.12.2017, 15:37
Готовые ответы и решения:

Написать программу переноса первого элемента списка в его конец
Написать программу переноса первого элемента списка в его конец.

Процедура вставки элемента Е после каждого элемента списка
Составить процедуру вставки элемента Е после каждого элемента списка, превышающего некоторое...

Переноса в конец списка его первого элемента
Дан список А, состоящий из записей: первое поле - вещественное число , второе - адрес следующего...

Составить программу переноса в конец его первого элемента
помогите пожалуйста с задачей.заранее спасибо. Дан список А, состоящий из записей: первое поле –...

2
28.12.2017, 15:37
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 28.12.2017, 15:37
Помогаю со студенческими работами здесь

VBA процедура переноса настроек word с одного компьютера на другой
Прошу о помощи разбирающихся людей. Необходимо разработать процедуру переноса настроек приложения...

Центрирование элемента flex контейнера после переноса wrap
Четыре кнопки идут в ряд () () () () CSS контейнера display: flex; margin: 20px 0;...

Ошибка в коде vba для переноса элемента из одного списка в другой
При клике на элемент списка в форме должно, по моим ожиданиям, перекинуть выбранный элемент этого...

Дан список вещественных чисел. Написать функцию переноса в начало его последнего элемента.
Дан список вещественных чисел. Написать функцию переноса в начало его последнего элемента.

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru