3 Задачи по Pascal :: Turbo Pascal и Delphi

:: 3 Задачи по Pascal, частично знаю, частично - нет(

Подписка на тему | Сообщить другу | Версия для печати

Дата Понедельник, 08 Марта 2010, 10:57 |

ВОшедший

Группа: Members
Сообщений: 1

Статус: Offline

Привет, У меня тут возникли сложности с данными задачами, если кто поможет буду очень признателен (+)
Язык: Pascal.

1. Дан текстовый файл, в файле находятся 20 целых чисел.
а) без использования массивов найти наибольшее число в файле.
б) найти среднее арифметическое всех чисел
в)записать числа в массив, отсортировать по возрастанию и записать массив в другой файл.

И ничего бы для меня не было в этом сложного, но вот что мне сказали:
"Все делать используя функции и процедуры!!!"

А в этом я не разбираюсь(

2) Заполнить типизированный файл случайным коллчичеством случайных целых чисел, нужно переписать текстовый файл получившиеся числа . найти в типизированном файле
а) самое большое число
б) количество числ, делящихся на три

с нахождением а и б проблем 0, а вот с этими типизрованными файлами я не вдуплю никак))) через рандом заполнить *.DAN чтоли?

3) Дан текстовый файл. В файле записаны строки.Длина каждой строки не превышает 255 символов. Переписать в другой текстовый файл 10 самых длинных строк, отсортировать по убыванию.
3б) найти 10 самых длинных слов и записать их в другой файл.

Ненавижу строки, в них я профан, ну ничего придумать не могу(((

заранее всем спасибо и большой респект за то что вы тут делаете!

Профиль · PM · E-Mail · Цитировать

ns5d

Дата Вторник, 09 Марта 2010, 15:52 |

ВОшедший

Группа: Members
Сообщений: 8

Статус: Offline

www.klad-inform.ucoz.ru

Профиль · PM · E-Mail · Цитировать

Вадим1985

Дата Среда, 19 Май 2010, 16:57 |

ВОшедший

Группа: Members
Сообщений: 3

Статус: Offline

Помогите решить РГЗ, Условие задачи:

На интервале x≤y≤2x c шагом ∆y=x/5 для каждого z из интервала 3x≤z≤4x c шагом ∆z=x/6 протабулировать функции

S= (y^2-z^2)/y^2+z^2 ; p=s* e^-s

X=1.15

ЗАранее спасибо