Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Создайте функцию Задача выложенная на фотке,сессия,выручите:( https://www.cyberforum.ru/ pascal/ thread41432.html	Разность велечин массивов Pascal Дан массив A из N элементов.Определить разность наибольшей и наименьшей абсолютной величины элемента в масиве
Pascal Программа движения маятника https://www.cyberforum.ru/ pascal/ thread41429.html Нужно создать программу движения маятнтка, запрограмировать нажатие любой клавиши на остановку маятника. Повторное нажатие, маятник продолжает двигиться.	Pascal Определить количество слов, у которых первая буква совпадает с последней буквой первого слова. Помогите, пожалуйста, вывод подсчитанной строки сделать, не получается :(( var s,s1,ch: string; A,B :integer; WriteLn('Введите строку:'); ReadLn(s); S := S + ' '; A := 0; B := 0; Ch := S; while Pos(' ', S) > 0 do begin https://www.cyberforum.ru/ pascal/ thread41428.html
Матрица Pascal Дана матрица A ,состоящая из m строк и n столбцов. Изменить матрицу путем замены каждого отрицательного элемента 2-го, 3го , ... ,n-го столбцов абсолютной велечиной суммы прешедствующих ему элементов той строки ,в которой он находиться .найти также средне арифметическое всех матриц.	Pascal Проверка. Текстовые файлы. https://www.cyberforum.ru/ pascal/ thread41407.html Не знаю, почему не работает прога, в файлах не шарю вообще. Выходной файл пустой. А так и компилируется, и идет прога нормально. Проверьте, что не так. program sem5; var f,f1,buf:text; s,c:char; begin assign (f,'sem51.txt'); assign (f1,'sem52.txt'); assign (buf,'buf.txt'); reset (f);
Pascal Найти номера пары точек Даны координаты n точек на плоскости: (X1, Y1),…, (Xn , Yn) (n≤30). Найти номера пары точек, расстояние между которыми наибольшее (считать, что такая пара единственная). прошу вашей помощи!!! https://www.cyberforum.ru/ pascal/ thread41394.html	Pascal простое число Логическая функция возвращает True, если ее аргумент – простое число. программа не сложная, но есть проблема, требуют чтоб в проге использовалась рекурсивная функция, а я их не прошел. помогите плз. могу кинуть свой исходник...
Pascal массив просто решить Дан массв X из N элементов. Сформировать массив Y из N эдементов по правилу: Yi= {1-SINXi при Xi>0 {1-COSXi при Xi<=0 при этом подсчитать количество неотрицательных Xi https://www.cyberforum.ru/ pascal/ thread41386.html	Pascal массив вам будет просто его решить https://www.cyberforum.ru/ pascal/ thread41385.html Даны два массива A и C, состоящие из N элементов каждый. Определить наибольшую из абсолютных величин среди произведений вида Ai*Cn-i+1(маленьким шрифтом написаны индексы).
Pascal Дана строка, значение которой является число в экспоненциальной форме Дана строка, значение которой является число в экспоненциальной форме представления (2,3Е+3). Необходимо получить строку, значением которой будет представлено в нормальной форме (2300). При решении не использовать преобразования строкового типа в числовой. Помогите с задачей на одном форуме уже спросил, но так и не разобрался!	Pascal Задача на одномерный массив. <<В ЗАДАННОМ МАССИВЕ ОПРЕДЕЛИТЬ СРЕДНЕЕ ЗНАЧЕНИЕ ЕГО ЭЛЕМЕНТОВ ,НЕ УЧИТЫВАЯ МАКСИМАЛЬНЫЙ И МИНИМАЛЬНЫЙ ЭЛЕМЕНТЫ>>. напишите пожалуиста саму программу Зарание спасибо! Добавлено через 13 минут 33 секунды :scratch: https://www.cyberforum.ru/ pascal/ thread41378.html

dest0rbed

0 / 0 / 0

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

Сообщений: 33

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

22.06.2009, 09:03. Показов 685. Ответов 1

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

Author24 — интернет-сервис помощи студентам

Поправьте пожалуйста код программы в соответствии с условием.
Cоставить программу, которая находит произведение элементов, меньших среднего арифметического всех элементов, сумму элементов, больших среднего арифметического, в массивах X(6) и Y(8). Вычисление суммы и произведения оформить в виде подпрограммы.(УСЛОВИЕ)

Pascal

var
a:array[1..6] of integer;
b:array[1..8] of integer;
pr,summ,summ2,i:integer;
sr1,sr2:real;
begin
{-----------------------------------------}
For i:=1 to 6 do
begin
a[i]:=random(10);
summ:=summ+a[i];
end;
sr1:=summ/6;
{-------------------------------------------}
For i:=1 to 6 do
begin
if a[i]<sr1 then pr:=pr*a[i];
end;
summ:=0;
{-------------------------------------------}
For i:=1 to 8 do
begin
b[i]:=random(10);
summ:=summ+b[i];
end;
sr2:=summ/8;
{---------------------------------------}
for i:=1 to 8 do
begin
if b[i]>sr2 then
summ2:=summ2+b[i];
end;
end.

(ЗАДАЧА) или же это все?

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

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

22.06.2009, 09:03

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

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

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

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

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

	22.06.2009, 09:03

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

22.06.2009, 09:03

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

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

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

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

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

Наверх