Страница 1 из 1

PASCAL - последовательности, файлы, записи.

Добавлено: 04 дек 2009, 18:17
betman
196. Даны целые числа A1,...,A50. Получить последовательность B1,...,B50, отличается от исходного тем, что все нечетные члены удвоены.

218. Дано натуральное число n, действительные числа X1,...,X3n. Вычислить сумму чисел с Xn+1,...,X3n, которые превосходят по величине все числа X1,...,Xn.

269. Дано натуральное число n, символы S..........Sn Группы символов, разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем, называть словами.
а) Подсчитать количество слов в данной последовательности.

488. Дан файл f, компоненты которого являются целыми числами. Никакая из компонентов файла не равна пулю. Файл f содержит столько же отрицательных чисел, сколько и положительных. Используя вспомогательный файл h, переписать компоненты файла f в файл g так, чтобы и файле g:
в) числа шли в следующем порядке: два положительных, два отрицательных, два положительных, два отрицательных и т.д. (предполагается, что число компонентов в файле f делится на 4).

507. Сведения об ученика состоят из его имени и фамилии и названия класса (года обучения и буквы), в котором он учится. Дано файл /, содержащий сведения об учениках школы.
ж) Собрать и файле g сведения об учащихся 9-х и 10-х классов, поместив сначала сведения об учениках класса 9а ,9-би т. д, Затем 10а, 106 и т.д

532. Заданные натуральное число n, действительные числа a1, a2, .... An. Если последовательность упорядочена по збильненню - оставить ее неизменной. Иначе инвертировать последовательность.

Re: Помогите сделать програмы PASCAL

Добавлено: 04 дек 2009, 20:00
Newbie
Раз не умеешь пользоваться поиском, то пиши сделаю не дорого)
590445302

Re: Помогите сделать програмы PASCAL

Добавлено: 07 дек 2009, 11:51
Хыиуду
1. Пройти по последовательности в цикле, проверить каждый элемент функцией odd, если возвратит истину - удвоить элемент.
2. Найти максимум среди Х1...Хn, пройти в цикле по Х[n+1]...X[3n], если они больше найденного максимума - просуммировать.
3. Раз десять такое было. Поиск всех спасет.
5. Было, ищи.
6. Пройти в цикле: если Xi не упорядочено по збильненню с X[i+1] - инвертируем (в цикле меняем местами i-й элемент с начала и i-й с конца.

Предупреждение за ненадлежащее название темы.