Теория.......

[PRIVIDENIE18]

Народ подскажите пожалуйста,
Какие существуют стандартные процедуры для работы со строковыми переменными? Желательно подробно))))

[swillrocker]

Функция Concat(s1, s2, ..., sn) возвращает строку, являющуюся слиянием строк s1, s2, ..., sn. Ее действие аналогично операции конкатенации.

Функция Copy(s, start, len) возвращает подстроку длиной len, начинающуюся с позиции start строки s. Параметры len и start должны быть целого типа.

Процедура Delete(s, start, len) удаляет из строки s, начиная с позиции start, подстроку длиной len.

Процедура Insert(subs, s, start) вставляет в строку s подстроку subs, начиная с позиции start.

Функция Length(s) возвращает фактическую длину строки s, результат имеет тип byte.

Функция Pos(subs, s) ищет вхождение подстроки subs в строку s и возвращает номер первого символа subs в s или 0, если subs не содержится в s.

Процедура Str(x, s) преобразует числовое значение x в строку s, при этом для x может быть задан формат, как в процедурах вывода write и writeln, например, Str(x:6:2, s).

Процедура Val(s, x, errcode) преобразует строку s в значение числовой переменной x, при этом строка s должна содержать символьное изображение числа. В случае успешного преобразования переменная errcode равна нулю. Если же обнаружена ошибка, то errcode будет содержать номер позиции первого ошибочного символа, а значение не x определено.

[PRIVIDENIE18]

Сообщение от swillrocker

Функция Concat(s1, s2, ..., sn) возвращает строку, являющуюся слиянием строк s1, s2, ..., sn. Ее действие аналогично операции конкатенации.

Функция Copy(s, start, len) возвращает подстроку длиной len, начинающуюся с позиции start строки s. Параметры len и start должны быть целого типа.

Процедура Delete(s, start, len) удаляет из строки s, начиная с позиции start, подстроку длиной len.

Процедура Insert(subs, s, start) вставляет в строку s подстроку subs, начиная с позиции start.

Функция Length(s) возвращает фактическую длину строки s, результат имеет тип byte.

Функция Pos(subs, s) ищет вхождение подстроки subs в строку s и возвращает номер первого символа subs в s или 0, если subs не содержится в s.

Процедура Str(x, s) преобразует числовое значение x в строку s, при этом для x может быть задан формат, как в процедурах вывода write и writeln, например, Str(x:6:2, s).

Процедура Val(s, x, errcode) преобразует строку s в значение числовой переменной x, при этом строка s должна содержать символьное изображение числа. В случае успешного преобразования переменная errcode равна нулю. Если же обнаружена ошибка, то errcode будет содержать номер позиции первого ошибочного символа, а значение не x определено.

Спасибо большое)))))))))))))

[PRIVIDENIE18]

Что такое массив и как работает алгоритм поиска минимальных элементов?

[swillrocker]

Сообщение от PRIVIDENIE18

Что такое массив и как работает алгоритм поиска минимальных элементов?

PROGRAM Min_Max;
VAR 
   V : array [1..5] of Integer;
   i, min, max : Integer;
BEGIN
 for i:=1 to 5 do read(a[i]); 
   min := V[1];
   max := V[1];
   FOR i:=2 TO 5 DO begin
     IF V[i] < min THEN min := V[i];
     IF V[i] > max THEN max := V[i];
   end;
   Writeln(‘min: ’, min);
   Writeln(‘max: ’, max)
END.

Он (алгоритм) работает так:
1.Вводим элементы в массив
2.Берем за минимальный(максимальный) первый элемент массива.
3.В цикле от двух до n проверяем условие:
Если i-ый элемент массива меньше(больше) min присваиваем min этот элемент.
Иначе оставляем без изменения.

[PRIVIDENIE18]

Сообщение от swillrocker

PROGRAM Min_Max;
VAR 
   V : array [1..5] of Integer;
   i, min, max : Integer;
BEGIN
 for i:=1 to 5 do read(a[i]); 
   min := V[1];
   max := V[1];
   FOR i:=2 TO 5 DO begin
     IF V[i] < min THEN min := V[i];
     IF V[i] > max THEN max := V[i];
   end;
   Writeln(‘min: ’, min);
   Writeln(‘max: ’, max)
END.

Он (алгоритм) работает так:
1.Вводим элементы в массив
2.Берем за минимальный(максимальный) первый элемент массива.
3.В цикле от двух до n проверяем условие:
Если i-ый элемент массива меньше min присваиваем min этот элемент.
Иначе оставляем без изменения.

Спасибо большое

[swillrocker]

Массив — упорядоченный набор данных, для хранения данных одного типа, идентифицируемых с помощью одного или нескольких индексов. В простейшем случае массив имеет постоянную длину и хранит единицы данных одного и того же типа.

Количество используемых индексов массива может быть различным. Массивы с одним индексом называют одномерными, с двумя — двумерными и т. д. Одномерный массив нестрого соответствует вектору в математике, двумерный — матрице. Чаще всего применяются массивы с одним или двумя индексами, реже — с тремя, ещё большее количество индексов встречается крайне редко.

взято с http://ru.wikipedia.org/wiki/Индексный_массив

[PRIVIDENIE18]

Сообщение от swillrocker

Массив — упорядоченный набор данных, для хранения данных одного типа, идентифицируемых с помощью одного или нескольких индексов. В простейшем случае массив имеет постоянную длину и хранит единицы данных одного и того же типа.

Количество используемых индексов массива может быть различным. Массивы с одним индексом называют одномерными, с двумя — двумерными и т. д. Одномерный массив нестрого соответствует вектору в математике, двумерный — матрице. Чаще всего применяются массивы с одним или двумя индексами, реже — с тремя, ещё большее количество индексов встречается крайне редко.

взято с http://ru.wikipedia.org/wiki/Индексный_массив

Спасибо большое

[PRIVIDENIE18]

Что такое функция, созданная программистом, на примере данного текста:

Программа:
Program menu;
Type Mas=Array[1..10] of Integer; {создаем тип – массив из 10 целых чисел}
Var X:Mas; N,K:Integer;
procedure vvod(var A: Mas); {процедура ввода массива}
var I: integer;
begin
Writeln('Введите элементы массива:');
For I:=1 To 10 Do
Read(A[I]);
end;
Procedure vivod(var A: Mas); {процедура вывода массива на экран}
var I:integer;
begin
For I:=1 To 10 Do Write(A[I]:5);
Writeln;
end;
procedure vichisl(var A: Mas); {процедура вычисления среднего арифметического}
var I,sum:integer;
begin
sum:=0;
For I:=1 To 10 Do sum:=sum+A[I]; {считаем сумму элементов}
sum:=sum div 10; {вычисляем среднее арифметическое без дробной части}
For I:=1 To 10 Do If A[I]>0 Then A[I]:=sum; {заменяем нулевые элементы на полученное число}
End;
Begin
repeat
writeln('1. Ввод массива 10 целых чисел:');
writeln('2. Вывод массива в строку:');
writeln('3. Вычисление среднего арифметического значения элементов массива и замена положительных элементов массива целой частью от среднего арифметического значения');
Writeln('4. Конец работы.');
writeln('Выберите пункт меню');
readln(K);
case K of {проверка выбранного пункта меню}
1: vvod(X);
2: vivod(X);
3: vichisl(X);
4: break;
else writeln('Нет такого пункта меню');
end;
until K=4;
end.

[Op1nG.Spark]

Сообщение от PRIVIDENIE18

Народ подскажите пожалуйста,
Какие существуют стандартные процедуры для работы со строковыми переменными? Желательно подробно))))

а что google перестал работать?