Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Ввести текст из файла https://www.cyberforum.ru/ pascal/ thread799817.html Задача: а) Ввести текст из файла. Определить количество пробелов и заменить их на символ "_". Ввод исходных данных оформить в виде диалога. Вывод результатов произвести на экран. Спасибо.	Pascal Создать меню пользователя для ввода квадратной матрицы Задача: а) Создать меню пользователя для ввода квадратной матрицы с клавиатуры и из файла. б) Транспонировать матрицу, вычислить минимальный по модулю элемент и его позицию. Вывод результатов осуществить с использованием меню пользователя на экран и в файл. Спасибо.
Pascal Найти целевую функцию https://www.cyberforum.ru/ pascal/ thread799745.html Помогите пожалуйста решить задачу:Из всех прямоугольных треугольников,у которых сумма одного катета и гипотенузы равна 1,найти треугольник с наибольшей площадью.Нужно найти целевую функцию.	Pascal Составить блок схему и программу на языке Паскаль z=1/m+m-1/m(x+1)^2 https://www.cyberforum.ru/ pascal/ thread799641.html Составить блок схему и программу на языке Паскаль z=1/m+m-1/m(x+1)^2
Вычислить сумму ряда Pascal кто поможет постараюсь как то вознаградить типа ключом в стим или чемто еше чемто)	Pascal Вставка элемента в двунаправленный список https://www.cyberforum.ru/ pascal/ thread799627.html Доброе время суток, форумчане. Есть такая задача: дан двунаправленный список целый чисел. Если встречается нечётный элемент, то после и перед ним вставить элемент 0. Я пытался написать решение, но оно не коректное и если делать проход в двух направлениях (прямой и обратный), то они не совпадают. Прошу помочь Type TPElSpisok = ^TElement; TElement = record key:integer; next:TPElSpisok;...
Pascal Заменить каждый элемент массива суммой соседних индексов. Если соседних элементов нет, то число оставить без изменения. 1)Дан одномерный массив, который содержит не более 50 целых чисел. Заменить каждый элемент массива суммой соседних индексов. Если соседних элементов нет, то число оставить без изменения. https://www.cyberforum.ru/ pascal/ thread799506.html	Pascal Вывести на экран номера строк, в которых максимальный элемент делится на пять нацело, а также соответствующие значения максимальных элементов Вывести на экран номера строк, в которых максимальный элемент делится на пять нацело, а также соответствующие значения максимальных элементов
Pascal Массив: Вычислить сумму элементов по столбцам и отсортировать матрицу в зависимости этой суммы Доброго всем времени суток. Ребят столкнулся с проблемой,задали написать программу! Написать программу, которая вводит по строкам с клавиатуры двумерный массив и вычисляет сумму его элементов по столбцам и сортирует матрицу в зависимости этой суммы. Но я не могу написать ее и даже, не очень дружу с маcсивами не мог бы помочь кто ни будь,помочь с данной программой ЗЫ прога очень нужна,за... https://www.cyberforum.ru/ pascal/ thread799204.html	Pascal Блок схема https://www.cyberforum.ru/ pascal/ thread798895.html Очень прошу!Помогите составить блок схему процедуры.Вот код. procedure 111(var f:text); var P1: pGruppi; Familia:String; j,count1:integer; f1:text; begin Assign(f,'f:\praktika\dekanat.txt');
Pascal Метод "Случайная замена" Вообщем задали сделать на Паскале 3 метода шифорвания\дешифрования Метод Цезаря Метод Виженера и Метод Случайной замены Вообщем с первыми 2мя все понятно, а вот с последним не могу разобраться Мб у кого нибудь есть код или хотя бы обьяснит кто нибудь как его делать. Да и есть ли др название этого метода ? Заранее спасибо	Pascal Операция неприменима к операндам этого типа (k:real; k:=d mod 1) https://www.cyberforum.ru/ pascal/ thread798749.html Program abcdbc; var N,M,g:integer; f,d,c,k:real; begin Writeln('bla'); Readln(N); c:=N*3; Writeln('bla'); Writeln('bla'); Readln(M);

Новичок

1642 / 1091 / 487

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

Сообщений: 5,345

03.03.2013, 21:31

Отсортировать по возрастанию линейный массив - Pascal - Ответ 4207115

03.03.2013, 21:31. Показов 1640. Ответов 1

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

Сообщение было отмечено как решение

Решение

Pascal

program dz;
uses crt;
const n=20;
var a:array[1..n] of integer;
i,j,k:Integer;
begin
ClrScr;
Writeln('Массив,заполненный случайными числами:');
Randomize;
for i:=1 to n do
begin
a[i]:=Random(16);
Write(a[i],' ');
end;
Writeln;
for i:=1 to n-1 do
for j:=i+1 to n do 
if a[j]<a[i] then
begin
k:=a[i];
a[i]:=a[j];
a[j]:=k;
end;
Writeln('Массив,отсортированный по возрастанию:');
for i:=1 to n do Write(a[i],' ');
Writeln;
Readln;
end.

Вернуться к обсуждению:
Отсортировать по возрастанию линейный массив Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

03.03.2013, 21:31

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

Линейный массив, упорядочить по возрастанию
Помогите пожалуйста с задачей : Данный целочисленный линейный массив, содержащий N элементов и...

Сформировать массив по формуле Yk=K*cos (Ak). Отсортировать массив по возрастанию
Дан массив размера N. Сформировать массив Yn, каждый элемент которого определяется по формуле...

Отсортировать массив по возрастанию
Создайте массив А с помощью генератора случайных чисел с вещественными элементами от –10 до 10 и...

Отсортировать массив по возрастанию
Решите эти задачи пожалуйста очень надо!!!! 1. Организуйте массив, содержащий 20 различных целых...

	03.03.2013, 21:31

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

03.03.2013, 21:31

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

Отсортировать массив по возрастанию
1. Создайте массив А вещественных чисел с помощью генератора случайных чисел и выведите его на...

Отсортировать массив по возрастанию
Здравствуйте, мне очень нужна помощь! нужно- сформировать массив В(к) из элементов первой строки и...

Отсортировать массив А(6) по возрастанию/убыванию
Отсортировать массив А(6) по возрастанию/убыванию

Отсортировать массив по возрастанию и убыванию
помогите плс, вот проблема ----1)создать 2-мерный массив случайных чисел и вывести его на экран....

Наверх