ВУЗ:
Составители:
Рубрика:
end.
1.
Bar (10+round(Ab*mg), 190, 10+round((Ab+shag)*mg), 190-round(f(Ab+shag)*mv));
Строковые типы и операции над ними
Fam:array[1..30] of char
Fam:String[30]
Fam:=’Иванов’;
Операции над строковыми переменными.
x:=length(Fam); - подсчитывает количество символов в слове Fam
k:=pos(‘н’,Fam); - определяет номер позиции символа “н” в слове Fam
VR:=Copy(Fam,N,Z); - вырезает из слова Fam Z символов, начиная с символа № N
Пример
For k:=1 to 4 do
Begin
VR:=copy(Fam,k,2);
writeln(k);
end;
Результат
ив
ва
ан
но
Выполнение задания рассмотрим на конкретном примере.
Задача
Подсчитать количество химических формул, в которые входят две молекулы кислорода.
Постановка
1. FHE[i] – элемент массива химических формул
DF – длина формулы
i – номер формулы
R – номер символа
VR – вырезка из FHE[i]
kol – количество формул
2. Результат