Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Модуль

Автор: стас 24.05.2004 23:26

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

Автор: BlackShadow 25.05.2004 0: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, тона что множить?