Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Записи Здравствуйте, помогите пожалуйста написать программу: В процессе функционирования АСУ ВД в файле фиксируются данные о самолетах, совершивших посадку. Каждая запись имеет структуру типа: 11:15(время посадки) ТУ-154М(марка ЛА) Б-3726(бортовой номер) ТАШКЕНТ(пункт отправления). 1) Подготовить... https://www.cyberforum.ru/ pascal/ thread28958.html Создать файл, где компонентой будет матрица из N строк и N столбцов (квадратная).... Pascal
В данной лабораторной работе необходимо сделать типизированный файл, где каждой компонентой будет число, массив или матрица. Количество компонент заранее не определено, поэтому, при обработке файла необходимо использовать либо булевское значение функции EOF (конец файла), либо значение функции FILESIZE (размер файла). Сами значения каждой компоненты можно задавать генератором случайных чисел. ...
Pascal Движение в графическом режиме Подскажите, как сделать движение прямоугольника вокруг точки, вводимой пользователем в графическом режиме. Размер прямоугольника и расстояние от точки до прямоугольника также вводятся. С чего начать? И что за чем писать?, т.е. последовательность.. https://www.cyberforum.ru/ pascal/ thread28944.html Pascal Произвести зеркальное отражение относительно вертикальной оси симметрии в двумерном массиве (NxN) произвести зеркальное отражение относительно вертикальной оси симметрии помогите сделать плз https://www.cyberforum.ru/ pascal/ thread28940.html
Pascal Задача на двумерный массив
А. Создайте программу, которая заполняет квадратный массив 7*7 числами по следующему правилу: •элементы, расположенные на побочной диагонали, равны 1; •элементы, расположенные выше побочной диагонали, равны 0; •ниже побочной диагонали находятся случайные двузначные числа. Б. Выведите созданный массив на экран. В. В последней строке этого массива найдите максимальный элемент...
Pascal Лаба двумерные массивы помогите пожалуйста дано:массивы А1 (N1,M1), A2(N1,M2),A3(N3,M3).найти в каждой строке исходного массива наименьший и наибольший элементы и поменять их местами. нахождение в каждой строке массива наименьшего и наибольшего элементов а также перестановку их местами оформить в виде подпрограммы заранее спасибо) https://www.cyberforum.ru/ pascal/ thread28928.html
Pascal Задачка с Двухмерным Масивом Дан двухмерный масив с набором любых чисел Найти найменшее число масива, Найбольшее число и поменять их местами Заранее Спасибо!! https://www.cyberforum.ru/ pascal/ thread28916.html Преобразование квадратной матрицы Pascal
а) Вычесть из А единичную матрицу; б) сформировать матрицу В, транспонированную по отношению к матрице, полученной в результате предыдущего преобразования; в) сформировать вектор V, элементы которого представляют собой суммы элементов строк и столбцов матрицы В, пересекающихся на соответствующих элементах главной диагонали. Помогите мне кто-нибудь, пожайлуста!
Pascal Нарисовать блок-схему. https://www.cyberforum.ru/ pascal/ thread28893.html
Помогите, пожалуйста нарисовать блок-схемы. uses crt; var x,y,z,x1,x2,mx,mn,sr,c: real; begin clrscr; write ('x= ');readln (x); write ('y= ');readln (y); write ('z= ');readln (z);
Pascal задача на паскале про строки https://www.cyberforum.ru/ pascal/ thread28883.html
помогите решить задачу задана строка s='if x<=1.2E-02 then y:=cos(x) else y:=sin(x)'.преобразовать в число семь символов строки s начиная с седьмого символа.посчитать число символов 'e'.сформировать новую строку из строки s путем удвоения пробела и замены строчных букв на заглавные.разработать программу решения этой задачи с выводом результата в файл
Pascal Разработка программного молуля для анализу результатов выборов
Вот мне задали такую задачу: Разработка программного молуля для анализу результатов выборов. Отображение результатов по каждому населенному пункту. А вот как я это реализовал: program my1; uses crt; type rec_info = record FIO : string; part : string;
Pascal задача с натуральными числами и переводом из киллограммов в фунты https://www.cyberforum.ru/ pascal/ thread28873.html
Никак не получается решить задачи: 1. составьте программу, которая печатает таблицу из килограммов в фунты(1 фунт=0,410 кг) для значений от 1 до 10 кг с шагом 1 кг 2. Даны натуральные числа от 1 до 50. Найти сумму тех из них, которые делятся на 5 или на 7.
16 / 16 / 6
Регистрация: 21.02.2009
Сообщений: 67
06.04.2009, 18:17 0

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

06.04.2009, 18:17. Показов 1203. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Никко как решение

Решение

Цитата Сообщение от Никко Посмотреть сообщение
Помогите решить. плизз.

Задача1.
Дан массив действительных чисел, размерность которого N.
Подсчитать, сколько в нем отрицательных, положительных и нулевых элементов.
Pascal
1
2
3
4
5
6
7
8
9
10
kol_otr:=0;
kol_pol:=0;
kol_nul:=0;
for i:=1 to n do
 begin
  if a[i]<0 then inc(kol_nul);
  if a[i]>0 then inc(kol_pol);
  if a[i]=0 then inc(kol_nul);
 end;
writeln(kol_pol,' ',kol_otr,' ',kol_nul);


Вернуться к обсуждению:
Линейные массивы Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.04.2009, 18:17
Готовые ответы и решения:

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

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

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

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

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

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

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

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

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

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru