IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Модуль, решение программы
стас
сообщение 24.05.2004 19:26
Сообщение #1


Гость






Написать модуль , содержащий 2 процедуры. Первая : пусть дано целое число n и символы S1, S2,...Sn., среди которых есть двоеточие . Получить все символы расположенные между первым и вторым двоеточием, если такого нет , то получить все символы расположенные после первого двоеточия . Вторая : пусть дан масссив вещественных чисел А1, ..., А12. Получить ноый массив умножив все члены массива А1,... А12 на квадрат его наименьшего члена, если Аi >= 0 и на квадрат его наибольшего члена, если Аi<0.
 К началу страницы 
+ Ответить 
BlackShadow
сообщение 24.05.2004 20:08
Сообщение #2


Гость






Код

Unit U;
interface
Function SubStr(s:String):String;
implementation
Function SubStr(s:String):String;
Var
 a,b:Integer;
Begin
 a:=Pos(':',s);
 b:=Pos(':',Copy(s,a+1,255));
 If b=0 Then
   SubStr:=Copy(s,a+1,255)
 Else
   SubStr:=Copy(s,a+1,b-a-1)
End;
End.

А вот вторую по-подробнее. Если там a1=-5, а a2=2, тона что множить?
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 22.06.2025 15:38
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"