Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Вычислить сумму модулей элементов массива, расположенных перед минимальным по модулю https://www.cyberforum.ru/ turbo-pascal/ thread177165.html
В одномерном массиве, состоящем из n вещественных элементов, вычислить сумму модулей элементов массива, расположенных перед минимальным по модулю элементом. 		Turbo Pascal Ркурсия
Пишу рекурсивную программу,и наткнулся на ошибку,вобщем мне надо чтобы программа рекурсивно выводила положительные числа ,но у меня почему-то выводит ошибку-выход за границы,а должны ввыводится все положительные у меня их 2 4,2 вот прогграмма USES CRT; const n=4; TYPE vector = array of integer; CONST a:vector = (4,2,-3,-12); function f(c:vector):integer; var i:integer; begin
Turbo Pascal Напечатать все слова взятые в скобки Помогите плз, я пока новенький в этом деле, в универе грузят ппц, а я ведь только неделю назат начал Паскаль учить. Еще не все понимаю, затянул ппц. Так вот, помогите задачи сделать пожалуйста) 1. Написать программу табулирования функции y=f(x) на интервале с шагом h=(b-a)/n, где n- целое число (вводится с клавиатуры). Вот мой вариант)) y=ln(2+sin(квадрат)x) (эту нужно решить с помощью... https://www.cyberforum.ru/ turbo-pascal/ thread177112.html Turbo Pascal Дан двумерный массив, заменить нулем элементы https://www.cyberforum.ru/ turbo-pascal/ thread177105.html
Дан двумерный массив 5*5. Заменить нулем элементы, расположенные над побочной диагональю.
Вычислить произведение элементов массива Turbo Pascal
В одномерном массиве, состоящем из n вещественных элементов, вычислить произведение элементов массива, расположенных перед максимальным по модулю элементом. 		Turbo Pascal Рассматривая слова как числа, определить самое маленькое число Дана символьная строка, содержащая цифры от 0 до 9, объединенные в слова, разделенные между собой одним или несколькими пробелами. Рассматривая слова как числа, определить самое маленькое число.в паскале. Желательно решить поскорее. Сижу на паре. Заранее спасибо https://www.cyberforum.ru/ turbo-pascal/ thread177066.html
Turbo Pascal Дан двумерный массив,получить новый масив Дан двумерный массив размерностью 5*5. Получить новый массив путем деления всех элементов массива на наибольший по модулю элемент https://www.cyberforum.ru/ turbo-pascal/ thread177064.html Ввести фразу и напечатать полученное значение числа pi Turbo Pascal
Что-то я туплю сегодня ,но никак не выходит сделать это задание 1.2.13. “Это я знаю и помню прекрасно пи многие знаки мне лишни напрасны”. Ввести фразу и напечатать полученное значение числа .pi Проверить работоспособность программы на любом произвольном тексте. Вывести исходный текст и результат вычислений. Наведите хоть на мысль,позор:(
Turbo Pascal Двумерные массивы.Получение второй матрицы из суммы элеметов первой Дана квадратная матрица из вещественных чисел A порядка N(1<=N<=10). Получить матрицу B того же размера, элемент которой bij равен сумме элементов матрицы А, кроме расположенных в строке i и расположенных в столбце j. Количество операций сложения должно быть не более 5N^2. Программу написал,проверьте пожалуйста: var a,b:array of integer; i,n,j,s:integer; function... https://www.cyberforum.ru/ turbo-pascal/ thread176942.html Turbo Pascal Построить Массив В(6) по правилу https://www.cyberforum.ru/ turbo-pascal/ thread176921.html
Дан массив А . ПОСТРОИТЬ массив В (6)ПО СЛЕДУЮЩЕМУ ПРАВИЛУ: B(1) присвоить количество нулевых элементов главной диагонали, В(2) присвоить количество нулевых элементов диагонали, расположенной выше и паралельно главной диагонали и т.д, помогите решить
По двум заданным одномерным массивам формируется третий, содержащий попарно максимальные числа Turbo Pascal
По двум заданным одномерным массивам формируется третий, содержащий попарно максимальные числа. помогите решить задачу. 		Turbo Pascal Перевести линейные уровние в турбо паскаль https://www.cyberforum.ru/ turbo-pascal/ thread176905.html
Здраствуйте всем. Срочно по понедельника надо линейные задачи перевести в турбо паскаль. Желательно задач больше 20 штук перевести. Рисунок прилогаеться. Спасибо зарания.
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
16.10.2010, 16:33 0

Одномерные массивы: определить количество отрицательных элементов на четных позициях - Turbo Pascal - Ответ 1032142

16.10.2010, 16:33. Показов 1514. Ответов 1
Метки (Все метки)
Лучший ответ Сообщение было отмечено sdst как решение

Решение

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
29
30
31

Uses
 CRT;
Var
 i,n,kol:integer;
 sum:real;
 a:array[1..20] of integer;
begin
Clrscr;
repeat
 write('Ââåäèòå êîë-âî ýëåìåíòîâ ìàññèâà: ');
 readln(n);
until n in [1..20];
randomize;
kol:=0;
sum:=0;
 for i:=1 to n do
 begin
  a[i]:=random(10)-5;
  write(a[i]:3);
  if (a[i]<0) and (i mod 2=0) then
  begin
   inc(kol);
   end;
   if (a[i]>0) and (i mod 2<>0) then
   sum:=sum+a[i];
 end;
 writeln;
 writeln('ÊÎËÈ×ÅÑÒÂÎ ÎÒÐÈÖÀÒÅËÜÍÛÕ ÝËÅÌÅÍÒÎÂ,ÐÀÑÏÎËÎÆÅÍÍÛÕ ÍÀ ×ÅÒÍÛÕ ïîçèöèÿõ:=',kol);
 writeln('ñóììó ïîëîæèòåëüíûõ ýëåìåíòîâ, ðàñïîëîæåííûõ íà íå÷åòíûõ ïîçèöèÿõ:=',sum);
 readkey
 end.
ток n не вводи а константой сделай равной 50

Вернуться к обсуждению:
Одномерные массивы: определить количество отрицательных элементов на четных позициях Turbo Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 16.10.2010, 16:33
Готовые ответы и решения:

Определить количество отрицательных элементов массива, расположенных на четных позициях
Здрасти всем. Помогите написать. 1)Дан массив A(50). Определить количество отрицательных...

Определить количество отрицательных элементов, расположенных на четных позициях
Написал программу, теперь как сделать эту же программу с помощью указателей? Дан массив А(50)....

Определить количество отрицательных элементов, расположенных на четных позициях
Дан массив А(50). Определить количество отрицательных элементов, расположенных на четных позициях,...

Определить количество отрицательных элементов массива, расположенных на четных позициях
Массивы для файл-функции Сделать в Script Дан массив А(50). Определить количество отрицательных...

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

Определить количество отрицательных элементов, расположенных на четных позициях массива
Дан массив А(50). Определить количество отрицательных элементов, расположенных на четных позициях,...

Ввести одномерные массивы. Определить в каждом среднее арифметическое отрицательных элементов
Условие такое : Ввести одномерные массивы Х1 , Х2 и Х3 . Определить в каждом из них среднее...

Определить количество положительных чётных и количество отрицательных нечётных элементов массива
Дан одномерный массив из N элементов (количество элементов вводится с клавиатуры во время...

Среди элементов четных строк массива определить количество отрицательных элементов
Дан Массив X(N,M).Среди элементов четных строк массива определить К - количество отрицательных...

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