10.08.2020, 22:20 [+3 UTC]
в нашей команде: 4 691 чел. | участники онлайн: 1 (рекорд: 21)

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

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

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
7.89 (25.04.2020)
JS-v.1.45 | CSS-v.3.39

Общие новости:
13.04.2020, 00:02

Форум:
02.08.2020, 11:21

Последний вопрос:
10.08.2020, 21:15
Всего: 152768

Последний ответ:
10.08.2020, 12:43
Всего: 260351

Последняя рассылка:
08.08.2020, 06:15

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

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

Наша кнопка:

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

Отзывы о нас:
01.03.2012, 22:43 »
comden
Заметно что человек профессионал. Спасибо за помощь... [вопрос № 185517, ответ № 270114]

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

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

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

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

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

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

Консультация онлайн # 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.13396 сек.

© 2001-2020, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.89 от 25.04.2020
Версия JS: 1.45 | Версия CSS: 3.39