Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Найти максимум и минимум массива и количество элементов между ними В примере нужно найти максимум и минимум, количество элементов между ними, и сумму элементов между макс. и мин. Помогите в нахождении кол-ва элементов и суммы. uses crt; const n=5; var a:array of integer; i,j,mx,imx,mn,imn,x,k,s:integer; begin https://www.cyberforum.ru/ pascal/ thread61678.html	строки Pascal помогите скласть прогу, нада удалить часть текста взятую в квадратные дужки
Pascal Найти предел последовательности. Я желаю здравия всем программистам этого форума! Нужна помощь. Условие задачи следующее: Найти корень третьей степени из "a" как предел последовательности x0,x1,x2,..., где x0=a/3, а каждое следующее xn+1 получается по формуле: xn+1=2/3(xn+a/(2xnxn)), n=1,2,3... https://www.cyberforum.ru/ pascal/ thread61676.html	Pascal текстовый файл https://www.cyberforum.ru/ pascal/ thread61667.html Каждая строка текстового файла имеет следующую структуру: Фамилия_студента Факультет Группа Средний_балл Поля разделены одним или несколькими пробелами. Внутри по-ля пробелы не допускаются. Требуется организовать текстовый файл с полями:Факультет Группа Средний_балл_по_группе Определить группы с наибольшим и наименьшим средним баллом. Помогите, не получается у меня
Pascal Вычислить используя процедуру необходимо вычислить выражение используя процедуру. выражение:	Pascal 3 задания про уникальное число, площадь многоуг. и кроликов) Простите пожалуйста что прошу помощи но немогу понять пару задач по Паскалю. Уже неделю разбираюсь с ними но никак, а програмеру пару минут дела. Задачи легкие. 1.Входные данные: в текстовом файле price.in через пропуск записаны натуральные числа, которые не превышают 50 000. Выходные данные: в текстовый файл price.out записать єдинствиное число – найменьшее уникальное . Если такого числа нету,... https://www.cyberforum.ru/ pascal/ thread61652.html
Pascal Оператор цикла с параметром for https://www.cyberforum.ru/ pascal/ thread61647.html Ребят! Помогите пожалуйста. В Паскале я пока что чайник, поэтому до меня просто не доходит, как можно решить данную задачу: Нужно вывести на экран с помощью оператора цикла с параметром for символы английского алфавита от a до z и номера этих символов Заранее благодарю)))	Pascal Произведение цифр числа Помогите пожалуйста сделать функцию. Чему равняется произведение цифр числа, четному или нечетному. Спасибо. Пример: Число: 324 Произведение = 24 тип: четное
Pascal Работа с масивами Pascal https://www.cyberforum.ru/ pascal/ thread61617.html В двумерном массиве (NxM) найти и вывести максимальные элементы по столбцам с указанием значения и местоположения. Помогите	Pascal Дана матрица размера 5 x 9 https://www.cyberforum.ru/ pascal/ thread61605.html Дана матрица размера 5 x 9. Перед последним столбцом, содержащим только положительные элементы, добавить столбец, состоящий из единиц. спасиб))
Простые числа Pascal Составить подпрограмму, определяющую, является ли заданное число простым, то есть делящимся только на единицу и на само себя. С помощью подпрограммы определить, являются ли простыми числа 6, 11, 21, 31. помогите плиз))))	Pascal Получить последовательность по правилу Это решение задачи через процедуры и функции: "Даны натуральное число n, действительное число x и действительная матрица размера nx2n. Получить последовательность b1,..., bn из нулей и единиц, где bi =1, если элементы i-ой строки матрицы не превосходят x и bi =0 в противном случае" program Project1; {$APPTYPE CONSOLE} uses SysUtils; type https://www.cyberforum.ru/ pascal/ thread61598.html

Jazon_deenAlt

4117 / 999 / 191

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

Сообщений: 4,223

06.11.2009, 17:30

Линейные массивы - Pascal - Ответ 340025

06.11.2009, 17:30. Показов 1142. Ответов 2

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

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

Решение

Pascal

pol:=0;
otr:=0;
nol:=0;
for i:=1 to n do begin
if a[i]>0 then pol:=pol+1
else if a[i]=0 then nol:=nol+1
else if a[i]<0 then otr:=otr+1;
end;

Добавлено через 53 секунды
где pol, otr, nol переменные типа интеджер которые в конце надо вывести

Вернуться к обсуждению:
Линейные массивы Pascal

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

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

IT_Exp

Эксперт

34794 / 4073 / 2104

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

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

Блог

06.11.2009, 17:30

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

Линейные массивы.
народ привет! я в паскале полный ноль, надеюсь на вашу помощь! вот задание: в векторе х(N)...

Линейные массивы
Написать программу, которая для заданной последовательности A1, A2…A2n вычисляет: Max(A1+A2n ,...

Линейные массивы
Помогите плиз решить задачку. Дан массив натуральных чисел. Найти сумму элементов, кратных...

Линейные массивы
известны сведения о количестве осадков выпавших за каждый день мая. первого мая осадков не было ....

	06.11.2009, 17:30

BasicMan

Эксперт

29316 / 5623 / 2384

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

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

Блог

06.11.2009, 17:30

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

Линейные массивы
Помогите решить. плизз. Задача1. Дан массив действительных чисел, размерность которого N....

линейные массивы
Написать программу, которая подсчитывает количество поло*жительных элементов в заданном массиве а ,...

Линейные массивы
Здрасте, решите пжлста задачки: A8: В массиве все элементы, стоящие после максимального,...

Линейные массивы
Нужно написать программу, которая проверяет – образуют ли элементы заданного массива возрастающую...

Новые блоги и статьи
Какой локальный веб-сервер выбрать InfoMaster 19.01.2025 В современной веб-разработке локальные веб-серверы играют ключевую роль, предоставляя разработчикам надежную среду для создания, тестирования и отладки веб-приложений без необходимости использования. . .	Почему планшеты и iPad уже не так популярны, как раньше InfoMaster 19.01.2025 Эра революционных инноваций История планшетных компьютеров началась задолго до того, как эти устройства стали привычными спутниками нашей повседневной жизни. В начале 1990-х годов появились первые. . .	Как самому прошить BIOS ноутбука InfoMaster 19.01.2025 BIOS (Basic Input/ Output System) представляет собой важнейший компонент любого компьютера или ноутбука, который обеспечивает базовое взаимодействие между аппаратным и программным обеспечением. . .	Какой Linux выбрать для домашнего компьютера InfoMaster 19.01.2025 Современные реалии выбора операционной системы В современном мире выбор операционной системы для домашнего компьютера становится все более важным решением, которое может существенно повлиять на. . .	Как объединить два словаря одним выражением в Python InfoMaster 19.01.2025 В мире программирования на Python работа со словарями является неотъемлемой частью разработки. Словари представляют собой мощный инструмент для хранения и обработки данных в формате "ключ-значение". . . .	Как без исключения проверить существование файла в Python InfoMaster 19.01.2025 При разработке программного обеспечения на Python часто возникает необходимость проверить существование файла перед выполнением операций с ним. Это критически важная задача, которая помогает избежать. . .
Как определить, содержит ли строка подстроку в JavaScript InfoMaster 19.01.2025 При разработке веб-приложений часто возникает необходимость выполнять различные операции со строками, среди которых особое место занимает поиск подстрок. JavaScript предоставляет несколько встроенных. . .	Что такое метаклассы в Python InfoMaster 19.01.2025 Метаклассы в Python представляют собой один из самых мощных и одновременно сложных механизмов языка, позволяющий программистам контролировать процесс создания классов. По своей сути, метакласс. . .	Как удалить свойство из объекта JavaScript InfoMaster 19.01.2025 В современной веб-разработке объекты JavaScript играют фундаментальную роль в организации и структурировании данных. Они представляют собой контейнеры, которые хранят связанные данные и. . .	Какая разница между String и string в C# InfoMaster 19.01.2025 В языке программирования C# существует интересная особенность: для работы со строками можно использовать как String, так и string. Эта двойственность часто вызывает вопросы у разработчиков, особенно. . .	Как в Git откатить репозиторий к предыдущему коммиту InfoMaster 19.01.2025 В современной разработке программного обеспечения система контроля версий Git стала неотъемлемой частью рабочего процесса, предоставляя разработчикам мощные инструменты для управления изменениями в. . .	Как работают замыкания (closure) в JavaScript InfoMaster 19.01.2025 В мире современной веб-разработки замыкания (closures) представляют собой один из фундаментальных концептов языка JavaScript, который часто вызывает затруднения у начинающих разработчиков, но при. . .

Наверх