Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail


Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы
Старый 03.06.2012, 22:26   #1
Алексей НТ
 
Регистрация: 21.05.2012
Сообщений: 6
По умолчанию Паскаль!!!

Помогите пожалуйста написать блок-схему к данному заданию....

Вводится массив из N целых положительных чисел. Определить наименьшую цифру у каждого числа. Написать подпрограмму, которая для заданного числа возвращает в нем наименьшую цифру
Алексей НТ вне форума
Старый 03.06.2012, 22:32   #2
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,497
По умолчанию

Код:
function GetMinValue (num: LongInt): byte;
var
  min: byte;
begin
  min := 9;
  while num <> 0 do begin
    if (num mod 10) < min then min := num mod 10;
    num := num div 10;
  end;
  GetMinValue := min;
end;
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303
Hacker19_90 вне форума
Старый 03.06.2012, 22:39   #3
Алексей НТ
 
Регистрация: 21.05.2012
Сообщений: 6
По умолчанию

А алгоритм можно пожалуйста??
Алексей НТ вне форума
Старый 03.06.2012, 22:42   #4
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,497
По умолчанию

Алгоритм чего?
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303
Hacker19_90 вне форума
Старый 03.06.2012, 22:47   #5
Алексей НТ
 
Регистрация: 21.05.2012
Сообщений: 6
По умолчанию

что в заданиии написано надо составить алгоритм работы программы,в ввиде схем
Алексей НТ вне форума
Старый 03.06.2012, 22:52   #6
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,497
По умолчанию

Мне рисовать лень!
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303
Hacker19_90 вне форума
Закрытая тема

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Паскаль, Борланд Паскаль-в чем разница??? Vremya-Dengy Паскаль, Turbo Pascal, PascalABC.NET 13 31.05.2011 17:23
паскаль и турбо паскаль Евгения Игоревна Помощь студентам 6 05.05.2011 13:31
Паскаль Ramiska Паскаль, Turbo Pascal, PascalABC.NET 0 08.04.2011 14:35
паскаль =tapo4ki= Помощь студентам 0 04.04.2011 14:48


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Здесь нужно купить рекламу за 7 тыс руб в месяц! )
пишите сюда - alarforum@yandex.ru
ИКС 840