PascalABC.NET

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

Войти

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

Другие темы раздела
PascalABC.NET Определить, имеется в массиве хотя бы одна пара противоположных чисел https://www.cyberforum.ru/ pascalabc-net/ thread885761.html Помогите пожалуйста :) Определить, имеется в массиве хотя бы одна пара противоположных чисел. Массив одномерный, целочисленный, по возможности максимально просто написать программу.	PascalABC.NET Удалить из массива все элементы, в которых есть цифра 3 Program Pr4; uses crt; var a,b:array of integer; n,i,j,k,pp,po:integer; begin clrscr; randomize; n:=15; writeln('Исходный массив:'); for i:=1 to n do
PascalABC.NET База программ. О каждой программе: название, назначение, тип (системная, прикладная, инструментальная), год выпуска. Поиск по названию и году выпуска https://www.cyberforum.ru/ pascalabc-net/ thread885687.html Тема: записи. База программ. О каждой программе: название, назначение, тип (системная, прикладная, инструментальная), год выпуска. Поиск по названию и году выпуска.	PascalABC.NET Объявить два диапазонных типа: один буквы русского алфавита, второй буквы английского алфавита https://www.cyberforum.ru/ pascalabc-net/ thread885621.html Объявить два диапазонных типа: один буквы русского алфавита, второй буквы английского алфавита. Вводится буква с клавиатуры - выводится к какому алфавиту она принадлежит и ее номер в алфавите.
Ошибка: превышено время ожидания (модули) PascalABC.NET Юнит: unit program1; interface type matrix = array of real; var a:matrix; procedure MCount(var a:matrix); implementation procedure MCount(var a: matrix); var	PascalABC.NET Получить все пифагоровы тройки натуральных чисел, каждое из которых не превосходит n Здравствуйте! Уважаемые программисты, помогите пожалуйста решить задачку! Дано натуральное число n. Получить все пифагоровы тройки натуральных чисел, каждое из которых не превосходит n, т.е. все такие тройки натуральных чисел a, b, c, что a2+b2 =c2 (a<=b<=c<=n). Заранее спасибо! https://www.cyberforum.ru/ pascalabc-net/ thread884206.html
PascalABC.NET Вычисление выражения с заданной точностью Здравствуйте! помогите пожалуйста решить задачку:Заранее спасибо!!! Не используя стандартные функции (за исключением модуля), вычислить с точностью E>0 (считать, что требуемая точность достигнута, если модуль очередного слагаемого меньше E). E-экспонента При вводе значений Х и E>0 учитывайте, что в разложениях логарифма и арктангенса (ряды 5.4 и 5.5) значение Х должно быть по модулю меньше... https://www.cyberforum.ru/ pascalabc-net/ thread884202.html	получить наибольшее целое PascalABC.NET Здравствуйте, уважаемые программисты! помогите пожалуйста решить задачку! Дано натуральное число m>1. Получить наибольшее целое n, при котором 4n<m Заранее спасибо!:)
PascalABC.NET Строки: Напечатать слова строки в алфавитном порядке Дано несколько слов, в каждом из которых от одной до семи строчных букв, между соседними словами – не менее одного пробела, за последним словом – точка. Напечатать эти слова в алфавитном порядке. https://www.cyberforum.ru/ pascalabc-net/ thread883972.html	PascalABC.NET Модули: в каждом столбце матрицы посчитать количество отрицательных и положительных элементов среди четных Для числовой матрицы: -в каждом столбце матрицы посчитать количество отрицательных и положительных элементов среди парных Реализовать процедурой или функцией. https://www.cyberforum.ru/ pascalabc-net/ thread883822.html
PascalABC.NET Модули: в каждом столбце матрицы посчитать количество отрицательных и положительных элементов Для числовой матрицы: -в каждом столбце матрицы посчитать количество отрицательных и положительных элементов Реализовать процедурой	PascalABC.NET Переменной l присвоить значение, равной сумме всех компонент, предшествующих ей https://www.cyberforum.ru/ pascalabc-net/ thread883733.html Задан целочисленный вектор a={a1, .. , an}, n<=20. Если среди компонент этого вектора есть компонента со значением, равным целому числу b (b - задано), то переменной l присвоить значение, равной сумме всех компонент, предшествующих этой компоненте. В противном случае положить l=0. Исходные данные: n=6; a={8; 4; 12; 26; 1; 0}; b=1 P.S готов заплатить wmz, за функционирующую программу)

Puporev

Почетный модератор

64303 / 47600 / 32742

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

Сообщений: 115,181

31.05.2013, 09:46

Как правильно объявить процедуру - PascalABC.NET - Ответ 4646879

31.05.2013, 09:46. Показов 1120. Ответов 1

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

Ответ

Pascal

var f: text;
    n,s,a,p,t: string;
    i: integer;
    files: array[1..max] of string := ('1.txt', '2.txt', '3.txt', '4.txt', '5.txt','6.txt','7.txt','8.txt','9.txt','10.txt');
procedure Next(); forward;
procedure Edit(); forward;
procedure Remove();forward;
procedure Prev(); forward;

Добавлено через 1 минуту
Далее все по программе, описание процедур и т.д.

Вернуться к обсуждению:
Как правильно объявить процедуру PascalABC.NET

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

cpp_developer

Эксперт

20123 / 5690 / 1417

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

Сообщений: 22,546

Блог

31.05.2013, 09:46

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

Как правильно создать процедуру
Нужна процедура, которая будет заменять тексты на четырёх кнопках. implementation var q :...

Как правильно объявить в модуле переменную, тип данных которой описан в основной программе?
Как обратиться из модуля к записе, которая определена в программе? Например, есть такой код...

Как правильно вызвать процедуру?
как правильно вызвать данную процедуру? procedure n1(i:integer; A:T1); begin for I := 1 to 3 do...

Подпрограмма: Как правильно объявить процедуру, аргументом которой является массив?
Добрый вечер, уважаемые пользователи форума! Можете сориентировать как правильно записывать...

	31.05.2013, 09:46

raxper

Эксперт

30234 / 6612 / 1498

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

Сообщений: 21,154

Блог

31.05.2013, 09:46

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

Как объявить процедуру
Здравствуйте! Знаком с паскалем не очень давно. Столкнулся вот с какой проблемой: не могу объявить...

Как объявить процедуру в Дельфи?
обьясните пожайлуйста как обявить procedure DrawCircle(x1, y1, R : Integer); вот например...

Как объявить процедуру которая есть в длл
procedure Save (text:TStrings;file_name:string); stdcall; overload; var fff:textfile; begin ...

Как правильно объявить fopen
Доброго времени суток. наткнулся на некоторого рода проблемку. Не могу объявить fopen.. Описываю...

Новые блоги и статьи
Счётчик на базе сумматоров + регистров и генератора сигналов согласования. Hrethgir 07.01.2025 Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .	Как перейти с Options API на Composition API в Vue.js BasicMan 06.01.2025 Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .	Архитектура современных процессоров inter-admin 06.01.2025 Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .	История создания реляционной модели баз данных, правила Кодда Programming 06.01.2025 Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .	Полезные поделки на Arduino, которые можно сделать самому raxper 06.01.2025 Arduino как платформа для творчества Arduino представляет собой удивительную платформу для технического творчества, которая открывает безграничные возможности для создания уникальных проектов. Эта. . .	Подборка решений задач на Python IT_Exp 06.01.2025 Целью данной подборки является предоставление возможности ознакомиться с различными задачами и их решениями на Python, что может быть полезно как для начинающих, так и для опытных программистов. . . .
С чего начать программировать микроконтроллеры raxper 06.01.2025 Введение в мир микроконтроллеров Микроконтроллеры стали неотъемлемой частью современного мира, окружая нас повсюду: от простых бытовых приборов до сложных промышленных систем. Эти маленькие. . .	Из чего собрать игровой компьютер inter-admin 06.01.2025 Сборка игрового компьютера требует особого внимания к выбору комплектующих и их совместимости. Правильно собранный игровой ПК не только обеспечивает комфортный геймплей в современных играх, но и. . .	Обновление сайта www.historian.by Reglage 05.01.2025 Обещал подвести итоги 2024 года для сайта. Однако начну с того, что изменилось за неделю. Добавил краткий урок по последовательности действий при анализе вредоносных файлов и значительно улучшил урок. . .	Как использовать GraphQL в C# с HotChocolate Programming 05.01.2025 GraphQL — это современный подход к разработке API, который позволяет клиентам запрашивать только те данные, которые им необходимы. Это делает взаимодействие с API более гибким и эффективным по. . .	Модель полного двоичного сумматора с помощью логических операций (python) AlexSky-coder 04.01.2025 def binSum(x:list, y:list): s=^y] p=x and y for i in range(1,len(x)): s. append((x^y)^p) p=(x and y)or(p and (x or y)) return s x=list() y=list()	Это мы не проходили, это нам не задавали...(асихронный счётчик с управляющим сигналом зад Hrethgir 04.01.2025 Асинхронный счётчик на сумматорах (шестиразрядный по числу диодов на плате, но наверное разрядов будет больше - восемь или шестнадцать, а диоды на старшие), так как триггеры прошли тестирование и. . .

Наверх