Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
dilex567
0 / 0 / 0
Регистрация: 15.01.2019
Сообщений: 6
1

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

21.01.2019, 09:53. Просмотров 1477. Ответов 6
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
program r03rjiwdfe;
 
const 
Q = 5;
var 
c: integer;
i : char;
mas : array [0..Q] of integer;
 
 BEGIN
 i := ' ';
 readln (mas[0],mas[1],mas[2],mas[3],mas[4],mas[5]);
 repeat
  begin
  if (mas[0]  > mas[1]) then 
  begin
  c:= mas[0];
  mas[0]:= mas[1];
  mas[1]:= c;
  end;
  if (mas[1]  > mas[2]) then 
  begin
  c:= mas[1];
  mas[1]:= mas[2];
  mas[2]:= c;
  end;
  if (mas[2]  > mas[3]) then 
  begin
  c:= mas[2];
  mas[2]:= mas[3];
  mas[3]:= c;
  end;
  if (mas[3]  > mas[4]) then 
  begin
  c:= mas[3];
  mas[3]:= mas[4];
  mas[4]:= c;
  end;
  if (mas[4]  > mas[5]) then 
  begin
  c:= mas[4];
  mas[4]:= mas[5];
  mas[5]:= c;
  end;
  end;
  until (mas[0] < mas[1]) and (mas[1] < mas[2]) and (mas[2] < mas[3]) and (mas[3] < mas[4]) and (mas[4] < mas[5]);
 writeln (mas[0],i,mas[1],i,mas[2],i,mas[3],i,mas[4],i,mas[5])
 
 END.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.01.2019, 09:53
Ответы с готовыми решениями:

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

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

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

Оптимизация
Доброго времени суток. Программа не проходит по времени выполнения тесты, не знаю даже, как можно...

Оптимизация приложения
Вот собственно сам код program Figther; var q,w,e,r,t,y,u,i :integer; begin r:=25;//Жизнь kot...

6
Puporev
Модератор
56086 / 42961 / 29717
Регистрация: 18.05.2008
Сообщений: 101,943
21.01.2019, 14:35 2
Какая хоть задача?
0
dilex567
0 / 0 / 0
Регистрация: 15.01.2019
Сообщений: 6
21.01.2019, 20:00  [ТС] 3
Расстановка чисел по порядку
0
Puporev
Модератор
56086 / 42961 / 29717
Регистрация: 18.05.2008
Сообщений: 101,943
21.01.2019, 20:04 4
Лучший ответ Сообщение было отмечено dilex567 как решение

Решение

Если расставить массив из 5 чисел по возрастанию, то смотри любую сортировку.
1
dilex567
0 / 0 / 0
Регистрация: 15.01.2019
Сообщений: 6
21.01.2019, 20:24  [ТС] 5
а можно в виде программы
0
Puporev
Модератор
56086 / 42961 / 29717
Регистрация: 18.05.2008
Сообщений: 101,943
21.01.2019, 20:32 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
dilex567
0 / 0 / 0
Регистрация: 15.01.2019
Сообщений: 6
22.01.2019, 10:52  [ТС] 7
Огромное спасибо
0
22.01.2019, 10:52
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.01.2019, 10:52

Оптимизация кода
Вот код var a,b,c,d:integer; begin a:=random(30000); b:=random(30000); c:=random(30000);...

Оптимизация. ДЛП
Здравствуйте. Помогите, пожалуйста. По курсовой надо &quot;Оптимизация задач дробно-линейного...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

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