Помощь - Поиск - Пользователи - Календарь
Полная версия: Модуль
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
стас
24.05.2004 19:26
Написать модуль , содержащий 2 процедуры. Первая : пусть дано целое число n и символы S1, S2,...Sn., среди которых есть двоеточие . Получить все символы расположенные между первым и вторым двоеточием, если такого нет , то получить все символы расположенные после первого двоеточия . Вторая : пусть дан масссив вещественных чисел А1, ..., А12. Получить ноый массив умножив все члены массива А1,... А12 на квадрат его наименьшего члена, если Аi >= 0 и на квадрат его наибольшего члена, если Аi<0.
BlackShadow
24.05.2004 20:08
Код

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, тона что множить?
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.