Задача на массивы в паскале.Помогите решить!!!)))

[AlexDem]

littledespair в сообщении #189827 писал(а):

о скорости в 12-тиэлементном массиве думать не приходится

Вот так и появляются системы типа Windows Vista... Только это здесь офтопик.

[ewert]

AlexDem в сообщении #189828 писал(а):

так и появляются системы типа Windows Vista... Только это здесь офтопик.

не то что даже офтопик, а не могу согласиться. Винды появляются не тогда, когда не заботятся об эффективности, а -- когда не задумываются о том, где об эффективности заботиться следует, а где -- нет.

Простой пример. Некий пакет выбрасывает на экран некий график (в режиме диалога, ессно). Ну и какая разница: выплюнет он его за полсекунды или за пять миллисекунд?...

Как раз тот случай, когда дешевизна программирования важнее эффективности программы.

[AlexDem]

Ну мы же тут не шибко всерьёз...

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

По большому счёту Вы, конечно, правы - если есть архитектура проекта и есть возможность отслеживания её изменений и планирования эффективности. Хотя по себе знаю, что оптимизация программы (без фанатизма) часто позволяет её упростить. Если начать лепить затычки (в надежде на то, что это малозначимый участок), то логика теряется и потом ошибки отыскать очень непросто, так же как и расширить функциональность.

Хотя это несколько не о том и к примеру littledespair отношения не имеет - он хорош, но объяснить его было бы труднее.

[Brandan]

littledespair
привет, прости,что тебя отвлекаю,но можешь помочь решить задачу, я вот проболел тему и по-этому не могу сделать задание:дано трехзначное число,найти сумму цифр n числа.

[ewert]

n:=0;
y:=abs(x);
while y<>0 do begin    inc(n, y mod 10);    y:=y div 10;    end;

Или, если число задано строкой s:

n:=0;
for i:=1 to length(s) do
  if s[i] in ['0'..'9']   then inc(n, byte(s[i])-byte('0'));

[Nerazumovskiy]

Brandan
интересно, а вы правила форума читали?

[oveka]

littledespair, всё классно до мелочей -
n:=1
if a[i]>=a[n] then n:=i;
Можно только заметить, что будет найден последний максимальный.
Если их несколько.
if a[i]>a[n] then n:=i; найдет первый из максимальных.
Не надо так со своим телом. Видите, Вы нужны, и полезны, людям.

[Toucan]

oveka, в следующий раз, прежде чем отвечать на сообщение, обращайте, пожалуйста, внимание на его дату: трудно предположить, что через 2.5 года просьба о помощи все еще актуальна.

toha2503, Ваше сообщение выделено в отдельную тему и перенесено в Карантин

[toha2503]

Прошу помогиту решить задачу по паскалю, очень нужна


Описать комбинированный тип, который содержит основные сведения о самолетах: название, скорость, винтажнисть, название страны-производителя. определить:
а) название самолета, производит заданную пользователем страну;
b) все сведения о самолетах с нацйбильшою скоростью.

...буду благодарин за любую помащ.

[Toucan]

toha2503,
исправьте, пожалуйста, Вашу тему в Карантине: Задачи по программированию на Паскале.
И не забудьте привести собственные попытки решения.