Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Вычислить сумму x1xn + x2xn-1 Всем привет. x_1x_n+x_2x_{n-1}+...+ x_nx_1 не понимаю как здесь работать с индексами. Заранее спасибо. https://www.cyberforum.ru/ pascal/ thread1534564.html	Напишите 2 функции вычисления i-го числа Pascal Напишите 2 функции вычисления i-го числа
Pascal Определить, кто сколько апельсинов съел https://www.cyberforum.ru/ pascal/ thread1534417.html Вчера Настина мама купила N апельсинов. Сегодня утром их уже не было. Настя точно помнит, что съела апельсинов на F меньше, чем папа, и на M больше, чем мама, и хочет узнать, кто же сколько съел. Ваша задача – помочь ей в этом. Input Со стандартного устройства ввода вводится три целых положительных числа – 10<=N<=100, 1<=F<=40, 1<=M<=40. Гарантируется, что задача всегда разрешима в целых...	Pascal Генерирование случайных величин с равномерным распределением https://www.cyberforum.ru/ pascal/ thread1534309.html Подскажите,пож-та, как составить программу генерирования СВ с равномерным распределением.
Pascal Определить количество четных чисел с помощью множеств Дано 30 целых чисел от 1 до 30. Определить сколько среди них четных чисел. Нужно решить при помощи "множеств". Помогите,пожалуйста.	Pascal Подскажите тип данных https://www.cyberforum.ru/ pascal/ thread1533987.html народ. нужен тип данных. чтобы по-простому описать: program PROG; {$APPTYPE CONSOLE} uses SysUtils; var a: ???;
Pascal Создание массива по вводу пользователя Нужно создать массив от 1 до n, которую вводит пользователь. https://www.cyberforum.ru/ pascal/ thread1533782.html	Pascal Определите, успеют друзья спасти всех животных на дереве Подскажите пожалуйста, как такую задачу записать в АЛГО Затопленное дерево имеет х ветвей, на каждой из которых спаслось у1 животных, еще у2 животных сидят на вершине. За 10 минут Петя и Айбоша успевают перевезти на лодке в безопасное место с1 животных. Дуся, курсируя между деревом и берегом, за 15 минут переправляет с2 животных. Определите, успеют друзья спасти всех животных на дереве, которые...
Pascal Определить сколько в отделе сотрудников, фамилии которых начинаются на заданную букву Не хватает времени сделать, помогите, пожалуйста, "Определить сколько в отделе сотрудников, фамилии которых начинаются на заданную букву" https://www.cyberforum.ru/ pascal/ thread1533442.html	Pascal Слова в тексте разделены пробелами. Сколько разных букв встречается в тексте? https://www.cyberforum.ru/ pascal/ thread1533401.html ???
Pascal Найти первое из чисел 1 1/2 1/3 1/4 меньшее заданного числа а найти первое из чисел 1 1/2 1/3 1/4 меньшее заданного числа а	Pascal Написать подобие телефонного справочника Ребят, доброго времени суток. Начал изучать Паскаль, да и вообще программирование.....уткнулся в массивы..... пытаюсь справиться с заданием: "Напишите программу, которая при запуске будет выдавать вам ваше ФИО и ФИО ваших друзей и номера ваших телефонов. Используйте строковый массив и циклы для отображения этих данных на экране" Типа телефонной миникнижки......Помогите плиз с объяснениями, если... https://www.cyberforum.ru/ pascal/ thread1532754.html

abit

495 / 450 / 138

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

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

21.09.2015, 06:54

Изменить процедуру на функцию - Pascal - Ответ 8096011

21.09.2015, 06:54. Показов 1668. Ответов 5

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

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

Решение

в Free Pascal это выглядит так (думаю что в старом паскале нечто подобное будет), хотя стиль, конечно плохой

Pascal

type
  mas=array of integer;
 
var A:mas; i,n:byte;
 
function Invert(b:mas):mas;
var i,t:integer;
begin
    for i:=1 to length(b) div 2 do
    begin
      t:=b[i];
      b[i]:=b[n-i+1];
      b[n-i+1]:=t;
    end;
    Invert:=b;
end;
Begin
    write('Размерность массива: ');
    readln(n);
    SetLength(A,n);
    writeln('Исходный: ');
    for i:=1 to n do
    begin
      A[i]:=random(30)-15;
      write(A[i]:4);
    end;
    writeln;
    A:=Invert(A);
    writeln('Преобразованный: ');
    for i:=1 to n do
     write(A[i]:4);
    readln;
end.

Вернуться к обсуждению:
Изменить процедуру на функцию Pascal

Следующий ответ

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

IT_Exp

Эксперт

34794 / 4073 / 2104

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

Сообщений: 32,602

Блог

21.09.2015, 06:54

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

Изменить Функцию на Процедуру
Program PascalGuru; {type massiv=array of integer;} var p1,p2:array of integer; {описание...

Изменить процедуру сортировки так, чтобы сортировка производилась по убыванию
Изменить процедуру сортировки так, чтобы сортировка производилась по убыванию элементов. Помогите...

Переделать функцию в процедуру
Помогите переделать в программе функцию в процедуру (если нужно условие задачи: Даны координаты...

Переделать процедуру в функцию
помогите переделать процедуру в функцию которая возвращает imin/ и если можно напишите как вызвать...

	21.09.2015, 06:54

BasicMan

Эксперт

29316 / 5623 / 2384

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

Сообщений: 30,364

Блог

21.09.2015, 06:54

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

решите процедуру и функцию
Разработать функцию определяющую колличество цифр в заданном натуральном числе . Разработать...

Оформить процедуру и функцию
заданы векторы R(i=1,...,15) и T(n=1,...,12) Элементы которых вычисляются по формулам : T=...

Процедуру переделать в функцию
Сделал прогу через процедуры, сказали не катит, переделывай, через функции, а я их толком не...

функцию переделать на процедуру
ребята, пожалуйста помогите. Не могу решить задачу...помогите пожалуйста. Нужно с помощью...

Новые блоги и статьи
В чем отличие между INNER JOIN и OUTER JOIN bytestream 22.01.2025 В современных базах данных информация часто распределена между множеством взаимосвязанных таблиц, что делает операции объединения JOIN неотъемлемой частью работы с SQL. Эти операции позволяют. . .	Как сделать первую букву заглавной в JavaScript bytestream 22.01.2025 JavaScript предоставляет разработчикам множество инструментов для эффективной работы с текстовыми данными. Одной из часто встречающихся задач при обработке строк является преобразование первой буквы. . .	Что такое Big O нотация и алгоритмическая сложность bytestream 22.01.2025 Введение в алгоритмическую сложность В мире разработки программного обеспечения эффективность алгоритмов играет crucial роль в создании качественных приложений. Алгоритмическая сложность. . .	Как решать конфликты слияния (merge) в Git bytestream 22.01.2025 Конфликты слияния в системе контроля версий Git возникают в ситуациях, когда две или более ветки разработки содержат несовместимые изменения в одних и тех же участках кода. Эти конфликты представляют. . .	Как использовать регулярные выражения bytestream 22.01.2025 Регулярные выражения представляют собой мощный инструмент для работы с текстовыми данными, который позволяет осуществлять поиск, проверку и манипуляцию строками на основе определенных шаблонов. Этот. . .	Как выйти из Vim bytestream 22.01.2025 Vim (Vi IMproved) представляет собой один из самых влиятельных текстовых редакторов в истории компьютерной индустрии, эволюционировавший из своего предшественника Vi, созданного Биллом Джоем в 1976. . .
NoSQL базы данных: что это такое и какие существуют bytestream 22.01.2025 В современную эпоху цифровой трансформации объемы данных растут экспоненциально, создавая новые вызовы для традиционных систем управления базами данных. NoSQL (Not Only SQL) представляет собой. . .	Обновление исследования от команды MCM (январь 2025 г.) Programma_Boinc 22.01.2025 Обновление исследования от команды MCM (январь 2025 г. ) Мы продолжаем изучать молекулярные сигнатуры, связанные с раком легких, с текущим фокусом на GCM1, факторе транскрипции, участвующем в. . .	Как работать с Kafka в Go (Golang) bytestream 22.01.2025 Apache Kafka представляет собой распределенную платформу потоковой передачи данных, которая произвела революцию в области обработки событий и интеграции микросервисов. Эта система, изначально. . .	Как использовать RabbitMQ в Go (Golang) bytestream 22.01.2025 RabbitMQ представляет собой надежный и широко используемый брокер сообщений, который играет ключевую роль в построении современных распределенных систем и микросервисной архитектуры. В основе работы. . .	Как преобразовать список списков в простой список в Python bytestream 22.01.2025 При работе с Python разработчики часто сталкиваются с необходимостью обработки сложных структур данных, среди которых особое место занимают вложенные списки. Эти структуры представляют собой списки,. . .	Что такое GUID / UUID и как их создать bytestream 22.01.2025 В мире разработки программного обеспечения существует постоянная потребность в уникальной идентификации объектов, записей и ресурсов. Эта задача становится особенно актуальной в распределенных. . .

Наверх