Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal Разложение функции Y в ряд S https://www.cyberforum.ru/ pascal/ thread195589.html
Здравствуйте. помогите пожалуйста с задачей. Все решил, осталась одна только.
Сформировать последовательность Pascal
1. Сформировать последовательность, элементы которой вычисляются по формуле a = n/ (n+1) , n = 1,2,...,42.
Pascal Множества Разработка программ с использованием данных типа Множество.Составить программу печати в алфавитном порядке всех букв текста (текст оканчивается точкой), входящих в него не менее двух раз.Желательно через IN.Благодарю. https://www.cyberforum.ru/ pascal/ thread195584.html Pascal Арифметическая прогрессия в Паскале https://www.cyberforum.ru/ pascal/ thread195581.html
1. Вычислить произведение m членов арифметической прогрессии, если известны значения первого члена a1 и разность арифметической прогрессии h.
Pascal Вывести на экран график функции, приведенной в Вашем индивидуальном задании. Отобразить координатную плоскость. Вывод графика производить попиксельно
Вывести на экран график функции y=3cos(x), Отобразить координатную плоскость. Вывод графика производить попиксельно с задержкой ! Буду благодарен если кто нить поможет с реализацией данной задачи
Pascal РАЗРАБОТКА АЛГОРИТМОВ И ПРОГРАММ С ИСПОЛЬЗОВАНИЕМ КОМБИНАТОРНЫХ АЛГОРИТМОВ Вычислить количество способов, которыми можно купить букет из 3 роз двух цветов, если в продаже имеются розы 3 цветов: белые, розовые и красные https://www.cyberforum.ru/ pascal/ thread195572.html
Pascal 2 задания по массивам https://www.cyberforum.ru/ pascal/ thread195569.html
В общем просьба огромная помочь, а то в данный момент нет возможности сесть и что нить накорябать самому. вот такие 2 задачки, примитив,но что то не идёт=( 1)Написать программу которая высчитывает меткость стрелка в процентном соотношении, если известно , что стрелок произвел н выстрело, а результаты каждого выстрела хранятся в линейном массиве в виде нулей(мимо) и единиц(попал) 2)написать...
Процедура maxmin (x, y) Pascal
1.Составить схему алгоритма и программу определения суммы и количества отрицательных элементов массива вещественных чисел К={кi}, i=1,t, t- число элементов массива (t260). Вывести на экран найденные значения. 2.В квадратной матрице размером М*М, имеющей имя МКМ, содержаться целые числа. М - число строк и столбцов. Ввести элементы матрицы с клавиатуры. Определить и вывести на экран число...
Pascal записи. доделать нужно.. Помогите пожалуйста дописать программу) Создать программу для хранения и обработки данных с помощью записей. Запись "фильм": название, режиссер, год выпуска, рейтинг IMBD, рейтинг кинопоиск, стоимость. Реализовать следующие функции: 1. Ввод данных с клавиатуры (сделала) 2. Вывод всех данных на дисплей (сделала) 3. Вывести данное пользователем число лучших фильмов по разным версиям... https://www.cyberforum.ru/ pascal/ thread195554.html Pascal Функции Составить алгоритм и программу, максимально используя для вычисления заданных выражений, подпрограммы типа FUNCTION. Примечание: При разработке программ не забывайте анализировать область допустимых значений функций.Заранее спасибо. https://www.cyberforum.ru/ pascal/ thread195552.html
в программе пишет 207 ошибка Pascal
Добрый день. Задание: нужно составить таблицу, которая будет выводить значение функции y(х) на промежутке от А до В . X меняется с определенным шагом. Функция trunc выдает правильное значение, т.е. целое число. Выражение под корнем не отрицательное, ввела отдельную переменную и проверяла, ln вообще в программе нет. Ошибка возникает при расчете значения переменной y(ошибка при последнем...
Pascal Сортировка Здравствуйте однофорумчане буду очень признателен если вы поможите мне зделать сортировку столбцов и матриц по убыванию.(числа нужно вводить самим, не через Randomize) https://www.cyberforum.ru/ pascal/ thread195516.html
Фрилансер
Эксперт С++
5845 / 1226 / 499
Регистрация: 23.11.2010
Сообщений: 3,375
Записей в блоге: 1
27.11.2010, 17:34 0

Массив и его сортировка - Pascal - Ответ 1146911

27.11.2010, 17:34. Показов 530. Ответов 9
Метки (Все метки)

Ответ

попробуйте

if (not odd(t[j])) and (t[j]<Nmin) then write(t[j]);

Добавлено через 100500 минут
так подойдет?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
program try;
const
n=10;
var
mas :array [1..n] of integer;
i, min :integer;
begin
min:=0;
writeln('Введите массив');
for i:=1 to n do
readln(mas[i]);
 
for i:=1 to n do {находим 1-й четный элемент}
if not odd(mas[i]) then
begin
min:=mas[i];
break;
end;
 
for i:=1 to n do
if (not odd(mas[i])) and (mas[i]<min) then
min:=mas[i];
 
if min <> 0 then
writeln('Наименьшее ', min)
else
writeln('Такого числа нет');
end.


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

Двумерный Массив Си и его сортировка
В общем не выходит отсортировать двумерный массив, хотя подобным способом уже пользовался и успешно...

Двумерный Массив Си и его сортировка
В общем не выходит отсортировать двумерный массив, хотя подобным способом уже пользовался и успешно...

Дан массив B(N). Преобразовать массив, упорядочив его по убыванию так, чтобы М его первых элементов остались неупорядоченными
Дан массив B(N). Преобразовать массив, упорядочив его по убыванию так, чтобы М его первых элементов...

Дан массив. Каждый его элемент, больший 4, заменить на его квадрат
дан массив. каждый его элемент,больший 4, заменить на его квадрат

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

Дан массив. Каждый его элемент, больший 4, заменить на его квадрат
дан массив. каждый его элемент,больший 4, заменить на его квадрат помогите пожалуйста

Выведите на экран массив, его минимальный элемент и его индекс в массиве
Сгенерируйте массив из n=10 случайных целых чисел в диапазоне от 0 до 10. Выведите на экран...

Создать динамический массив. Заполнить его числами от 1 до n и записать его в файл.
создать динамический массив. Заполнить его числами от 1 до n и записать его в файл.

Двумерный массив (Написать программу его поворота на 90 градусов относительно его центра)
Дан массив A(n,n). Написать программу его поворота на 90 градусов относительно его центра. На...

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