Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal построить график функции y=-6x^2+3x помогите плз, заранее благодарю https://www.cyberforum.ru/ pascal/ thread128250.html	Обработка строк. Pascal Пожалуйста, помогите с задачей. Дан массив из строк, выдать на экран самые длинные слова для каждой строки. (слово - последовательность символов, разделенная пробелом). С уважением.
Pascal 1. Определить полусумму длин двух векторов А(3), В(5). Длина вектора определяется как корень квадратный из суммы квадратов его проекций. 2. Дана пос https://www.cyberforum.ru/ pascal/ thread128237.html 1. Определить полусумму длин двух векторов А(3), В(5). Длина вектора определяется как корень квадратный из суммы квадратов его проекций. 2. Дана последовательность, состоящая из 10 слов....	Pascal Определить полусумму длин двух векторов А(3), В(5). Длина вектора определяется как корень квадратный из суммы квадратов его проекций. Определить полусумму длин двух векторов А(3), В(5). Длина вектора определяется как корень квадратный из суммы квадратов его проекций. https://www.cyberforum.ru/ pascal/ thread128236.html
Пpогpамма. Дана непустая последовательность слов из стpочных pусских букв; между соседними словами - запятая, за последним словом - точка. напечата Pascal Пpогpамма. Дана непустая последовательность слов из стpочных pусских букв; между соседними словами - запятая, за последним словом - точка. напечатать в алфавитном поpядке все гласные (*) буквы,...	Pascal Дана последовательность, состоящая из 10 слов. Напечатать все различные слова, указав для каждого из них число его вхождений в последовательность. Дана последовательность, состоящая из 10 слов. Напечатать все различные слова, указав для каждого из них число его вхождений в последовательность. https://www.cyberforum.ru/ pascal/ thread128232.html
Pascal Определить полусумму длин двух векторов А(3), В(5). Длина вектора определяется как корень квадратный из суммы квадратов его проекций. Определить полусумму длин двух векторов А(3), В(5). Длина вектора определяется как корень квадратный из суммы квадратов его проекций. https://www.cyberforum.ru/ pascal/ thread128228.html	нужно для курсака Pascal Задана квадратная матрица А размером NxN (N<=10), которая складывается с действительных елементов!Найти сумму наибольших елементов столбца матрицы и их координат!
Pascal ввод различных данных из одной строки на входе у нас есть строка видаString String integer integer каждая из частей разделена пробелом возможно ли для ввода такого использовать readln(str_1,str_2,int_1,int_2);? https://www.cyberforum.ru/ pascal/ thread128222.html	Pascal подпрограммы два натуральных числа называются "дружественными", если каждое из них равно сумме всех делителей(кроме его самого)другого числа(например 220,284)найти все пары "дружественных"чисел, которые небольше... https://www.cyberforum.ru/ pascal/ thread128218.html
Паскаль - не могу разобрать! Pascal 1. Определить полусумму длин двух векторов А(3), В(5). Длина вектора определяется как корень квадратный из суммы квадратов его проекций. 2. Дана последовательность, состоящая из 10 слов....	Pascal Составить программу для подсчёта суммы отрицательных элементов массива +2 задачи. Привет всем)))Помогите пожалуйста)))Нужны программы 1.для подсчёта суммы отрицательных элементов массива 2.Задан двумерный массив целых чисел.Найти отдельно в каждой строке сумму квадратных корней... https://www.cyberforum.ru/ pascal/ thread128216.html

Таша.92

0 / 0 / 0

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

Сообщений: 11

сортировка массивов - Pascal - Ответ 719533

11.05.2010, 21:41. Показов 492. Ответов 0

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

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

нужно создать блок-схему к программе

Pascal

program sort;
var
matr:array[1..100,1..100] of integer;
mas:array[1..1000] of integer;
i,j,m,kol,c:integer;
begin
randomize;
write('введите m ') ;
readln(m);
for i:=1 to m do
begin
for j:=1 to m do
begin
matr[i,j]:=random(101)-50;
write(matr[i,j]:4);
end;
writeln;
end;
kol:=0;
for j:=1 to m do
begin
for i:=1 to m-j do
begin
if matr[i,j] >=0 then
begin
kol:=kol+1;
mas[kol]:=matr[i,j];
end;
end;
end;
writeln;
writeln('до сортировки: ') ;
for i:=1 to kol do
write(mas[i]:4);
writeln;
writeln('после сортировки: ') ;
for i:=1 to kol-1 do
begin
for j:=i+1 to kol do
begin
if mas[i]>=mas[j] then
begin
c:=mas[i];
mas[i]:=mas[j];
mas[j]:=c;
end;
end;
end;
for i:=1 to kol do
write(mas[i]:4);
readln;
end.

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

11.05.2010, 21:41

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

программы усложненной структуры, обработка двухмерных массивов, использование стандартных функций для работы с массивами, сортировка массивов.
Искала задачи, нашла в с++, а нужно в паскале сотворить следующее. Использование стандартных...

Сортировка массивов. Сортировка выбором
Помогите пожалуйста, я что-то совсем запуталась при составлении данной программы... Сортировка...

Сортировка массивов
Для значений i=1,2,...,n вычислить число сочетаний из n по i и занести результаты в массив с=(с1,...

сортировка массивов
сформировать одномерный массив, состоящий из положительных элементов, заданной квадратной...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

11.05.2010, 21:41

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

Сортировка массивов
Даны целые числа а1,а2,...аn.Получить в пордке возрастания все различные числа,входящие в...

сортировка массивов
дана квадратная матрица N*M, состоящая из натуральных чисел. зеркально отразить ее элементы...

Сортировка массивов
Я вообще не понимаю как сортировать массивы,приведи те кто-нибудь пример сортировки самым простым...

Сортировка массивов
В городе имеется m банков. Известны величины задолженностей банков друг другу. Расположить...

Сортировка массивов
Помогите, я уже не могу ничего придумать.. 1)Сортировать вставкой рядки массива по возрастанию...

Сортировка массивов
Дан одномерный массив массив. Получить из него второй массив содержащий только четные элементы...

Наверх