Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Задачи по текстовым файлам в Паскале АБС на нахождение кол-ва строк и тд http://www.cyberforum.ru/pascalabc/thread2391843.html
1. Дан текстовый файл, содержащий строки. Найти: а) количество строк; б) количество строк, начинающихся и заканчивающихся одинаковыми символами; в)симметричные строки 2. Дан текстовый файл, в...
Pascal ABC Задача на нахождение простого числа и записи его в другой файл Заполнить файл целыми числами из отрезка с помощью датчика случайных чисел. Переписать в один из новых файлов то простое число исходного файла, которое встречается ровно один раз. http://www.cyberforum.ru/pascalabc/thread2391839.html
Составьте блок схему данной программы Pascal ABC
function bin(x:integer):string; var res:string;{строка=число в сс2} d:0..1;{цифры 0 и 1 в десятичной системе} begin{начало работы подпрограммы} res:=''; while x<>0 do {пока введенное число...
Pascal ABC Даны пять чисел. Найти произведение чисел, кратных пяти
Даны пять чисел. Найти произведение чисел, кратных пяти.
Pascal ABC Дана функция, в которой x меняется с переменным шагом h http://www.cyberforum.ru/pascalabc/thread2391469.html
Помогите пожалуйста решить задачу. Уже видел похожие, но с этой совместить не смог, в программировании я нулевый. Дана функция, в которой X изменяется от-4 до 7 с шагом h=0,2. x-5*cos(ln(-x)), ...
Pascal ABC Составить программу по выражению ПОМОГИТЕ СОСТАВИТЬ ПРОГРАММУ ДЛЯ ДАННОГО УРАВНЕНИЯ,ПОЖАЛУЙСТА! F(x)=x+lg(x)-5=0 подробнее
Puporev
Модератор
56307 / 43100 / 29812
Регистрация: 18.05.2008
Сообщений: 102,416
21.01.2019, 20:32 0

Оптимизация программы

21.01.2019, 20:32. Просмотров 1489. Ответов 6
Метки (Все метки)

Лучший ответ Сообщение было отмечено dilex567 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
const n=5;
var mas:array[1..n] of integer;
    i,j,x:integer;
begin
writeln('Введите 5 целых чисел');
for i:=1 to n do
readln(mas[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if mas[i]>mas[j] then
 begin
  x:=mas[i];
  mas[i]:=mas[j];
  mas[j]:=x;
 end;
writeln('Массив по возрастанию');
for i:=1 to n do
write(mas[i],' ');
end.


Вернуться к обсуждению:
Оптимизация программы
1
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.01.2019, 20:32
Готовые ответы и решения:

Оптимизация программы по быстродействию
Помогите плиз, очень нужна помощь, заранее спасибо! Что убрать, что изменить?! //Вычислить...

Последовательность Фиббоначи. Оптимизация программы
Я написал программу, благодаря которой можно вычислить, почти, все числа фиббоначи. program Fib; ...

Оптимизация программы "Золото племени АББА"
Помогите оптимизировать, если что задача: (Ссылка на сторонний ресурс удалена) (Время: 1 сек....

Типы оптимизация: черная оптимизация, серая оптимизация и белая оптимизация
Много много лет назад, на заре становления профессии &quot;оптимизатора&quot; в какой то умной книжке был...

Оптимизация программы
Как ещё можно оптимизировать нижеприведенный код? По условию задачи он выполняется дооолго. ...

6
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru