Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
hoochie
0 / 0 / 1
Регистрация: 16.12.2009
Сообщений: 116
1

РАЗРАБОТКА ПРОГРАММ С ИСПОЛЬЗОВАНИЕМ КОМПОНЕНТОВ СТРАНИЦ STANDART И ADDITIONAL

29.03.2010, 19:27. Просмотров 621. Ответов 2
Метки нет (Все метки)

Помогите написать программу с этими условиями условий,пожалуйста! СПАСИБО!
1. Проверить истинность высказывания: "Цифры данного трехзначного числа образуют арифметическую прогрессию".
2. Из трех данных чисел выбрать наибольшее.
3. Дано целое число в диапазоне 0 – 9. Вывести строку — название соответствующей цифры на русском языке (0 — "ноль", 1 — "один", 2 — "два", ...).
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.03.2010, 19:27
Ответы с готовыми решениями:

Разработка программ с использованием компонентов страниц Standart и Additional
1.Проверить истинность высказывания: "Сумма цифр данного трехзначного числа...

Разработка программ обработки массивов с использованием компонентов страницы
1.Для ЛП произвести вычисление значений функций lg(x+1), ctg(x). Результаты...

Разработка программы-эмулятора электронных схемотехнических компонентов
* Выходные данные: Программа-эмулятор будет использоваться для изучения...

Как мне использовать тексты программ компонентов в тексте своей (написанной мной) программе?
Как мне использовать тексты программ компонентов в тексте своей (написанной...

написание программ с использованием массивов
До завтра надо написать четыре программы, сам не смогу, так надо написать еще...

2
kukuruku310
197 / 184 / 26
Регистрация: 14.02.2010
Сообщений: 539
29.03.2010, 20:34 2
Лучший ответ Сообщение было отмечено hoochie как решение

Решение

Delphi
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
function IsArifmProgr(val: Integer): Boolean;
var
  dig1, dig2, dig3: Byte;
  step: ShortInt;
begin
  dig1 := val div 100;
  dig2 := (val - dig1 * 100) div 10;
  dig3 := val - dig1 * 100 - dig2 * 10;
  step := dig2 - dig1;
  Result := dig3 - dig2 = step;
  // нет контроля ошибочных val
end;
 
function min3(i1, i2, i3: Integer): Integer;
begin
  if i1 < i2 then
    Result := i1
  else
    Result := i2;
  if i3 < Result then
    Result := i3;
end;
 
function RusName(val: Byte): string;
const
  rNames: array [0..9] of string = (
    'ноль',
    'один',
    'два',
    'три',
    'четыре',
    'пять',
    'шесть',
    'семь',
    'восемь',
    'девять');
begin
  if val <= 9 then
    Result := rNames[val]
  else
    Result := 'ошибка';
end;
ну а к Standard и Additional сами прикрутите
0
hoochie
0 / 0 / 1
Регистрация: 16.12.2009
Сообщений: 116
29.03.2010, 22:04  [ТС] 3
Огромное спасибо за помощь!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.03.2010, 22:04

Создание вычислительных программ с использованием элементов управления
Запутался в программе, не могу доделать вывод значений...Вобщем нужно чтобы эта...

Cоздание проектов с использованием кнопочных компонентов
создать приложение.в массиве который содержаться результаты измерении...

Разработка программ с использованием компонентов страницы Standart, Addinational, System
в архиве .doc файл, там задание и пример.. с кодом не получается чёт.. ошибки...


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

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

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