|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.12.2008, 09:38 | #1 |
Регистрация: 25.12.2008
Сообщений: 6
|
Помогите сделать Процедуру без параметров
Вот эта задача
Program Modul; uses crt; var a,b,c,S:real; begin clrscr; writeln('найдем сумму 3 модулей'); writeln('Введи первый член,второй член,третий член'); readln(a,b,c); S:=abs(a)+abs(b)+abs(c); writeln('Сумма модулей 2 вещественных чисел равна',S:6:2); readln; end. мне надо переделать эту задачу в процедуру без параметров , помогите переделать |
26.12.2008, 15:04 | #2 |
В тени
Старожил
Регистрация: 19.12.2008
Сообщений: 5,788
|
Так что-ли?
Код:
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем. ___________________________________ ___________________________________ _______ [=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль] |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите оптимизировать процедуру | Cold Went | Компоненты Delphi | 4 | 29.04.2008 15:11 |
Звязь таблиц с помощью SQL параметров помогите плиз | Миха | БД в Delphi | 5 | 02.08.2007 13:50 |
помогите оптимизировать процедуру | _XspeC_ | Общие вопросы Delphi | 12 | 08.04.2007 02:05 |