Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Процедуры и Функции https://www.cyberforum.ru/ pascal/ thread193763.html
Сформировать матрицы {aij}n,m , {bij}k,l , где i<=(n,k), j<=(m,l), по задан-ным правилам: (i+j)/2, (i*j)/Корень из 27. Фактическое число строк (n,k) и столб-цов (m,l) каждой матрицы, а также признак...
Перевести на язык паскаля Pascal
Вот эти вот две формулы Заранее спасибо )
Pascal произведение элементов в каждом столбце матрицы https://www.cyberforum.ru/ pascal/ thread193725.html
составить программу определения произведения элементов в каждом столбце матрицы L (9, 14). Элементы матрицы L равны произведению номеров строк и столбцов.
Pascal Бинарная Сортировка Ребят помогите сделать.:( Отсортировать элементы квадратной вещественной матрицы размерности n, стоящие на побочной диагонали, применив сортировку бинарным включением. https://www.cyberforum.ru/ pascal/ thread193722.html
Pascal присутствие корней функции: W=2a^3+3a^2 на каждом шаге заданного отрезка
составить пробную постановку с объяснением принципа приближенного решения, алгоритм и программу, определяющую присутствие корней функции: W=2a^3+3a^2 на каждом шаге заданного отрезка
Pascal Даны действительные числа x, y. Определить U. https://www.cyberforum.ru/ pascal/ thread193707.html
Даны действительные числа x, y. Определить U. Пусть D - заштрихованная часть плоскости (рис.3, а - е) и пусть U определяется по x и y следующим образом (запись(x, y)Є D означает, что точка с...
Pascal Отсортировать включением столбцы массива целых чисел по возрастанию Помогите пли3 решить задание: Отсортировать столбцы массива целых чисел по возрастанию. Сортировка включением. Совсем не полу4аеться:( Спасибо 3арание. https://www.cyberforum.ru/ pascal/ thread193698.html Pascal Дана матрица в столбцах с минимальным количеством отрицательных элементов все положительные элементы заменить на 0
Дана матрица A в столбцах с минимальным количеством отрицательных элементов все положительные элементы заменить на 0 Не могу решить задачу.. Помогите с решением.
Pascal Поменять местами три первых элемента массива Есть задача: написать программу которая в массиве найдет три максимума и поставит их в самое начало, я программу написал, но перестановка не всегда срабатывает например для таких чисел как... https://www.cyberforum.ru/ pascal/ thread193678.html Pascal Определить образует ли набор вещественных чисел убывающую последовательность Решите задачу с использованием операторов whildo или repeat until Дано целое число N и набор из N чисел вещественных чисел.Если данный набор образует убывающую последовательность,то вывести 0;в... https://www.cyberforum.ru/ pascal/ thread193664.html
Pascal Максимальный элемент массива заменить суммой
Задан массив одномерный В. Максимальный элемент (или максимальные элементы, если их несколько) заменить суммой элементов массива, расположенных до него (до каждого. если их несколько)
Pascal Составить программу для вычисления и вывода на экран таблицы значений функции. https://www.cyberforum.ru/ pascal/ thread193651.html
Помогите пожалуйста с программой. Сам очень давно ничего не писал(((((( Составить программу для вычисления и вывода на экран таблицы значений функции. Вывод выполнить в два столбика: первый столбик...
Заблокирован
19.11.2010, 13:35 0

Массив - Pascal - Ответ 1123269

19.11.2010, 13:35. Показов 353. Ответов 3
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses
SysUtils;
type
mas=array[1..10] of integer;
const
m:mas=(1,2,3,2,1,1,2,3,1,1);
Var
n,i:integer;
a,b,c,x,y,r,s:real;
begin
s:=0;
for i:=1 to 10 do writeln (m[i]);
for i:=1 to 10 do
begin
if M[5]=1 then a:=7; b:=8; s:=b/2*sqrt((a+b/2)*(a-b/2)); writeln (s:2:2);
if M[i]=2 then x:=2; y:=2; s:=x*y;  writeln (s:2:2);
if M[i]=3 then r:=1; s:=pi*r*r;  writeln (s:2:2);
writeln;
end;
writeln (s:2:2);
readln;
end.
помойму это а так кажеться нет

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

Дан одномерный массив A из N элементов. Переписать положительные элементы массива в массив B, а отрицательные в массив C
Дан одномерный массив A из N элементов. Переписать положительные элементы массива в массив B, а...

Дан массив А. Составить массив В, в котором b[ i ]=a[0]+a[1]+a[2]+....+a[ i ] i=0,1,2,3,4......n-1. Распечатать массив В
Дан массив А. Составить массив В, в котором b=a+a+a+....+a i=0,1,2,3,4......n-1. Распечатать массив...

из заданного теста выбрать цифры и записать в массив N ,а буквы - в массив B .Все остальные символы записать в массив S
Привет всем.Помогиет пожалуйста решить задачку из заданного теста выбрать цифры и записать в...

Сформировать типизированный файл из целых чисел, ввести в файл массив, прочитать массив, упорядочить массив по убыванию
Сформировать типизированный файл из целых чисел, ввести в файл массив, прочитать массив,...

3
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.11.2010, 13:35

Массив: Получить новый массив P, состоящую из чисел в интервале (a,b), которые не входят в массив H...
Помогите с заданием, пожалуйста :Написать программу, которая формирует новую последовательность P,...

Дан массив целых чисел а(12). Переписать в массив х четные, а в массив у нечетные элементы массива а
Помогите пожалуйста решить эту задачу. Массив a выводит на печать. Я пишу a mod 2 = 0 , а он мне 41...

Двумерный массив.Дан массив 5 х 5. Определить сумму элементов тех строк, где диагональный элемент равен нулю и записать их в отдельный массив.
помогите составить программу. во задание:Дан массив 5 х 5. Определить сумму элементов тех строк,...

Дан массив А. Составить массив В, в котором b[ i ]=a[0]+a[1]+a[2]+....+a[ i ] i=0,1,2,3,4......n-1. Распечатать массив В
Дан массив А. Составить массив В, в котором b=a+a+a+....+a i=0,1,2,3,4......n-1. Распечатать массив...

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