Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal 3 массива Можете чем-нибудь помочь...Буду премного благодарен. Даны три одномерных массива: A из 15, B из 20 и C из 10 элементов соответственно. Какой из массивов имеет наименьшее количество отрицательных элементов. Вводить элементы вручную. В двух вариантах: с процедурой общего вида и с функцией. https://www.cyberforum.ru/ pascal/ thread64534.html	Pascal работа с внешнеми файлами. помогите плз, никак не могу решить задачу: Подготовить данные об абитуриентах, поступающих в институт. Информацию о каждом абитуриенте оформить в виде записи, содержащей следующие поля: 1. Фамилия, имя, отчество. 2. Год рождения. 3. Год окончания школы. 4. Оценки в аттестате. 5. Признак - нуждается ли в общежитии. 6. Оценки вступительных экзаменов.
Pascal Обработка одномерного массива https://www.cyberforum.ru/ pascal/ thread64521.html Задание: Найти максимальный и минимальный элементы массива и поменять их местами. Условие: N<=20. Заранее, спасибо!!!	Pascal Компьютерная графика В графике я пока не силён но пытаюсь учиться)). Буду благодарен если поможете 1).Изобразить прямоугольник с длиной онования L и высотой H, перемещающийся по главной диагонали монитора. 2).По заданным значениям координат центра окружности и числа N ,построить окружность максимального радиуса, целиком помещающуюся в экран и разбить её на N закрашенных разных цветом секторов. https://www.cyberforum.ru/ pascal/ thread64518.html
оператор цикла в Паскале Pascal Решить, помогите, 2 задачи при помощи оператора цикла while без массивов 1. Дано вещественное число ε (> 0). Последовательность вещественных чисел AK определяется следующим образом: A1 = 1, A2 = 2, AK = (AK−2 + 2·AK−1)/3, K = 3, 4, … . Найти первый из номеров K, для которых выполняется условие \|AK − AK−1\| < ε, и вывести этот номер, а также числа AK−1 и...	Pascal Проверить справедливость соотношений https://www.cyberforum.ru/ pascal/ thread64503.html Помогите.... я не понимаю как сделать накопитель дроби... с остальным коекак разберусь Добавлено через 34 секунды Y=(x-1)/3-x^3/5+x^5/7….. Для х=0,9 с точностью Е=〖10〗^(-4) Точное значение T=(pi-4)/4+(x-arctgx)/x^2 Распечатать x,y,T.
Pascal цикл while https://www.cyberforum.ru/ pascal/ thread64495.html Дано целое число N (> 1). Последовательность чисел Фибоначчи FK определяется следующим образом: F1 = 1, F2 = 1, FK = FK−2 + FK−1, K = 3, 4, … . Проверить, является ли число N числом Фибоначчи. Если является, то вывести true, если нет — вывести false.	через while Pascal Даны целые положительные числа A и B. Найти их наибольший общий делитель (НОД), используя алгоритм Евклида: НОД(A, B) = НОД(B, A mod B), если B ≠ 0; НОД(A, 0) = A, где «mod» обозначает операцию взятия остатка от деления.
Pascal массивы https://www.cyberforum.ru/ pascal/ thread64489.html Помогите пожалуйста с такой задачкой. Даны 2 квадратные матрицы. Если условие выполняется только для одной, то для другой сделать преобразование. Условие: сумма элементов в каждой строке с четным номером - отрицательное число. Преобразование: все элементы стоящие под главной диагональю заменить на противоположные. Заранее большое спасибо))	Pascal текст 1. дан текст! нана напечатать букву, следующую за буквой 'а' если 'а' есть в тексте, причем не на последнем месте. 2. дан текст. Напечатать текст, причем удалив из него все цифры! и удвоив знаки "+" и "-". помогите пожалуйста, а то чет не получается! https://www.cyberforum.ru/ pascal/ thread64476.html
Возведение в степень и не только! Pascal Вася продолжает изобретать последовательности. Сегодня в школе его познакомили с операцией возведения в степень, и Вася придумал новую последовательность. Сначала он пишет на доске натуральное число A. Каждое следующее число, выписанное им на доске, будет равно степени с основанием A и показателем, равным предыдущему числу. Другими словами, последовательность будет выглядеть так: x = A, x =...	Pascal Упорядочить числа по неубыванию методом фон Неймана https://www.cyberforum.ru/ pascal/ thread64465.html Помогите плиз! Дано N целых чисел. Упорядочить их по неубыванию методом фон Неймана: завести два массива A и B и записать исходные числа в A; упорядочить пары соседних чисел (A1 и A2, A3 и A4 и т.д.) и записать их в B; взять из B по две соседние упорядоченные пары и, слив их в упорядоченные четверки, снова записать в A; затем каждые две соседние четверки из B слить в упорядоченные восьмерки и...

pikusfikus

175 / 172 / 40

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

Сообщений: 507

17.11.2009, 02:48 [ТС]

2 минимума массива - Pascal - Ответ 359484

17.11.2009, 02:48. Показов 6076. Ответов 13

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

Ответ

о спасиба тебе большое именно так просто и понятно а теперь смотри как я сделал,конечно алгоритм кривой но я сам его сделал )))

Pascal

program n20;
var
a:array[1..100] of integer;
i,min1,c,d,min2,n:integer;
begin
writeln('vvedit rozmir massiva');
readln(n);
randomize;
writeln('massiv');
for i:=1 to n do begin
a[i]:=random(100)-40;
write(a[i],' ');
end;
writeln;
min1:=a[1];
for i:=1 to n do
if min1>a[i] then min1:=a[i];
min2:=min1;
for i:=1 to n do
if (min2>a[i]) xor (min2=min1) then min2:=a[i];
c:=min2;
for i:=n downto 1 do
if (min2>a[i]) xor (min2=min1) then min2:=a[i];
d:=min2;
writeln('1 minimalnyj element ',min1);
if c<d then
writeln('2 minimalnyj element ',c);
if d<c then
writeln('2 minimalnyj element ',d);
end.

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

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

17.11.2009, 02:48

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

Найти среднее арифметическое Sr максимума и минимума массива.
Ввести одномерный массив А , вывести его. Найти среднее арифметическое Sr максимума и минимума...

Найти сумму максимума среди чётных и минимума среди нечётных элементов массива
1. Дан одномерный массив. Найти сумму максимума среди чётных и минимума среди нечётных. 2. Дана...

Поиск минимума
1. Пользователь вводит число целое неотрицательное число n (не превосходящее 100), а затем он...

Определение минимума функции
Составить подпрограмму определения минимума функции y=f(x), заданной в дискретных точках отрезка с...

	17.11.2009, 02:48

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

17.11.2009, 02:48

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

нахождение максимума и минимума.
здравствуйте!помогите пожалуйста найти ошибку в решении задачи. дан файл,содержащий числа.Найти в...

Поиск минимума/максимума и их индексов:
var a:arrayof integer; N,i,min,max:integer; begin write('N -> '); readln(N); {считываем...

Смена максимума и минимума в массиве
Здравствуйте!!! Задан массив, найти максимум и минимум и поменять их местами. Код программы......

Сортировка по возрастанию методом выбора минимума
Помогите сделать. Сортировка по возрастанию методом выбора минимума. Сортируемый фрагмент...

Наверх