20.11.2019, 23:11 [+3 UTC]
в нашей команде: 3 984 чел. | участники онлайн: 1 (рекорд: 21)

:: РЕГИСТРАЦИЯ

задать вопрос

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
7.78 (18.11.2019)
JS-v.1.34 | CSS-v.3.35

Общие новости:
28.04.2019, 09:13

Форум:
16.11.2019, 20:23

Последний вопрос:
20.11.2019, 14:55
Всего: 151022

Последний ответ:
20.11.2019, 15:35
Всего: 259434

Последняя рассылка:
20.11.2019, 16:45

Писем в очереди:
0

Мы в соцсетях:

Наша кнопка:

RFpro.ru - здесь вам помогут!

Отзывы о нас:
19.03.2017, 04:43 »
svrvsvrv
Спасибо за Вашу отличную консультацию [вопрос № 190736, ответ № 274809]
21.10.2009, 06:24 »
В. Ротаев
Огромное спасибо за исчерпывающий ответ. Суважением, В. Ротаев [вопрос № 173459, ответ № 255632]
25.09.2019, 14:49 »
dar777
Это самое лучшее решение! [вопрос № 196434, ответ № 278770]

РАЗДЕЛ • Pascal / Delphi / Lazarus

Создание программ на языках Pascal, Delphi и Lazarus.

[администратор рассылки: Зенченко Константин Николаевич (Старший модератор)]

Лучшие эксперты в этом разделе

Gluck
Статус: 7-й класс
Рейтинг: 802
Зенченко Константин Николаевич
Статус: Старший модератор
Рейтинг: 615
puporev
Статус: Профессионал
Рейтинг: 371

Перейти к консультации №:
 

Консультация онлайн # 144258
Раздел: • Pascal / Delphi / Lazarus
Автор вопроса: Wolvertula
Отправлена: 18.09.2008, 00:54
Поступило ответов: 2

Здравствуйте дорогие эксперты я в паскале очень плохо разбираюсь помогите пожалуйста позарез надо решить 4-е задачи. Только не смйтесь.
1)Дано натуральное число n. Определить сколько цифр в числе.
2)Даны три действительных числа. Отрицательные – заменить её модулём, положительные – нулём.
3)Дано число n. Определить число делителей данного числа.
4)Даны три действительных числа. Определить наименьшее и наибольшее из них.
Причём эти задачи надо решить с помощью фунукций.

Состояние: Консультация закрыта

Ответ # 229550 от Boriss

Здравствуйте, Wolvertula!
В приложении код программы, решающий все 4 Ваших задачи.
Для минимального и максимального используются открытые массивы - очень удобно. Аналогично можно было поступить и для изменения элементов массива, но решил показать, как еще можно делать.
Ежели что не понятно будет, спрашивайте

Приложение:


Консультировал: Boriss
Дата отправки: 18.09.2008, 10:38

Рейтинг ответа:

0

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

Ответ # 229551 от Долгих Людмила

Здравствуйте, Wolvertula!
№4. Один из возможных способов
var x,y,z:real;
function max(a,b:real):real;
begin
if a>b then max:=a else max:=b;
end;
function min(a,b:real):real;
begin
if a<b then min:=a else min:=b;
end;
begin
readln(x,y,z);
writeln('max = ',max(max(x,y),max(y,z)));
writeln('min = ',min(min(x,y),min(y,z)));
end.


Консультировал: Долгих Людмила
Дата отправки: 18.09.2008, 10:44

Рейтинг ответа:

0

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

Мини-форум консультации № 144258
puporev
Профессионал

ID: 401888

# 1

= общий = | 18.09.2008, 11:14 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер

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

function KolCif(n:longint):byte;{с помощью строки}
var s:string;
begin
str(n,s); {функция преобразования числа n в строку s}
KolCif:=length(s); {длина строки=кол-во цифр}
end;

 

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

Яндекс Rambler's Top100

главная страница | поддержка | задать вопрос

Время генерирования страницы: 0.14167 сек.

© 2001-2019, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.78 от 18.11.2019
Версия JS: 1.34 | Версия CSS: 3.35