Delphi заготовки

The specified text, the end of a period. Give all the vowels in alphabetical order, included in the text, and number of repetitions of each letter.
Delphi/Pascal
"Заданный текст, конец которого точка. Вывести по алфавиту все гласные, входящие в этот текст, и количество повторений каждой буквы."

расчет некоторых функций Pascal
формулы расчета


Function sinh(x:real):real;
begin
   sinh:=(exp(x)-exp(x*(-1)))/2;
end;

Function cosh(x:real):real;
begin
   cosh:=(exp(x)+exp(x*(-1)))/2;
end;

Function tanh(x:real):real;
begin
   tanh:=(exp(x)-exp(x*(-1)))/(exp(x)+exp(x*(-1)));
end;

изображение с сайта Wiki

Pascal/Delphi

{
пример работы со строками.
1. Напечатать все слова, которые совпадают с ее первым словом.
2. Преобразовать строку таким образом, чтобы в ней остались только слова, содержащие буквы и цифры, остальные слова удалить.

}
uses crt;
const
WordDelimiters : set of char=[' ',',','.'];

type
Tpoint=record
  x,y:integer;
end;

TwordPosition=record
   Word:string;
   PosX:integer;
   WordLength:integer;
end;


Tdocument=record
   WordList:array [0..255] of TwordPosition;
   WordListCount:Integer;
end;
var d:Tdocument;
Procedure CreateDocument(var Value:Tdocument; BodyText:string;Len:integer);
var x:Integer;
    s2:string;
    rs:Tpoint;
    s:string;
begin
   s:=bodytext;
   Value.WordListCount:=0;
   rs.X:=1;
   rs.y:=0;
&nb ... Читать дальше »