function SrAr (stroka:string): real;
var i:byte;
otvet:real;
begin
for i:=1 to length (stroka) do otvet:=otvet+ord(stroka);
srar:=otvet/length (stroka);
end;
Программирование функций
Помогите!!
Задача такая:
Запрограммировать 2 функции:
1) запрограммировать функцию, которая находит среднее арифметическое кодов символов строки
2) запрограммировать функцию, которая возвращает true, если файл является текстовым и содержит строки, не превышающие 255 байт.
Помогите, кто разбирается!!!
Задача такая:
Запрограммировать 2 функции:
1) запрограммировать функцию, которая находит среднее арифметическое кодов символов строки
2) запрограммировать функцию, которая возвращает true, если файл является текстовым и содержит строки, не превышающие 255 байт.
Помогите, кто разбирается!!!