Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
0 / 0 / 0
Регистрация: 06.03.2011
Сообщений: 121

Более оптимальный

27.03.2011, 18:33. Показов 427. Ответов 0
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Пожалуйста оптимизируйте код как можно оптимальней.
Переменные
1 ≤ N ≤ 100000
|K| ≤ 100000
Все числа во входных данных не превышают 10 степен 9.

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
program first;
 
var
  i, j, n: longword;
  k: Longint;
  x: Array[1..100000] of Longint;
 
begin
  Readln(n);
  for i := 1 to n Do
    Read(x[i]);
  Readln(k);
  if k > 0 Then
  begin
    for j := 1 to k Do
      for i := n downto 2 do
      begin
        x[i] := x[i - 1] + x[i];
        x[i - 1] := x[i] - x[i - 1];
        x[i] := x[i] - x[i - 1];
      end;
    i := 0;
    j := 0;
    k := 0;
  end
  Else if k < 0 Then
  begin
    for j := 1 to -k Do
      for i := 2 to n Do
      begin
        x[i] := x[i - 1] + x[i];
        x[i - 1] := x[i] - x[i - 1];
        x[i] := x[i] - x[i - 1];
      end;    
    i := 0;
    j := 0;
    k := 0;
  end;
  Write(x[1]);
  for i := 2 to n Do
    Write(' ', x[i]);
  
end.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
27.03.2011, 18:33
Ответы с готовыми решениями:

оптимальный алгоритм
найти сумму простых чисел от 1 до A program kl; var s,m,p,n,A:integer; begin read (A); for n:=1 to A do begin p:=1; for...

Какой вариант более оптимальный?
Доброго времени суток. Пишу лабу - распознаватель числовых констант. Возник вопрос, как оптимальнее, с точки зрения выполнения кода...

Найти более оптимальный способ решения задачи
Вот задача: Имеется две таблицы: 1) Items (Id identity(1,1) int, Name varchar(50)) в которой хранятся составляющие продукты и...

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
27.03.2011, 18:33
Помогаю со студенческими работами здесь

Можно ли написать более оптимальный код, используя цикл while?
собственно сабж. #include &lt;iostream&gt; using namespace std; int main() { int x, y, s, step = 1; cout &lt;&lt;...

Есть ли более простой и оптимальный способ решения данной задачи?
Добрый день! Ситуация следующая: Есть класс Event. public class Event { public string Name { get; set; } public...

Можно ли написать более оптимальный или простой код, используя цикл for?
собственно сабж. #include &lt;iostream&gt; using namespace std; int main() { int sum, count, ost; for (count = 0;...

Может ли человек порождать более оптимальный pure javaScript-код, чем TypeScript?
Доброе утро! Можем ли мы вручную порождать более оптимальный и красивый код, нежели TypeScript? Заранее благодарен за отклики.

Можно ли переделать проект из более поздней Visual Studio в более раннюю?
помогите пожалуйста. из 11 студии в 10 переделать проект((((


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Новые блоги и статьи
Знаешь почему 90% людей редко бывают счастливыми?
kumehtar 14.04.2026
Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД
Maks 14.04.2026
Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code
Loafer 13.04.2026
{ "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
Оптимизация кода на разграничение прав доступа к элементам формы
Maks 13.04.2026
Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений
Maks 12.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .
Архитектура слоя интернета для сервера-слоя.
Hrethgir 11.04.2026
В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа
Maks 10.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru