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. Показов 1092. Ответов 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

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

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

06.11.2009, 17:30

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

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

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

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

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

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

06.11.2009, 17:30

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

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

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

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

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

Наверх