Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal вычислить сумму и число https://www.cyberforum.ru/ turbo-pascal/ thread242726.html Вычислить сумму и число положительных элементов в матрице A заранее благодарю...	Turbo Pascal Счастливые билеты Требуется вычислить количество N - значных счастливых билетов. Напомним, что билет называется счастливым, если сумма первой половины его цифр равна сумме другой его половины. Например, билет 564159...
Программа на двумерный массив и строковые типы данных Turbo Pascal 1.В квадратной матрице размером T*T, имеющей имя MKA, содержатся целые числа. T - число строк и столбцов. Ввести элементы матрицы с клавиатуры. Определить и вывести на экран число элементов равных 1...	Turbo Pascal Обучалка иностранному языку Составить программу для заучивания слов иностранного языка (англ). Программа должна предлагать слова из некоторого списка на одном языке, обучающийся - дать ответ на другом языке. https://www.cyberforum.ru/ turbo-pascal/ thread242711.html
Turbo Pascal Найти сумму нечетных элементов массива https://www.cyberforum.ru/ turbo-pascal/ thread242687.html Дорогие программисты. Нужна помощь в написании пары программ. 1. Найти сумму нечетных элементов массива 2. Найти количество чисел которые делятся на 3, но не делятся на 5 в массиве. Желательно ещё...	Составить файл из участников соревнований Turbo Pascal Добрый день, помогите пожалуйста с задачкой: Составить файл из участников соревнований, указав разряд, возраст, пол. Отдельно создать файл из мужчин и женщин, предварительно рассортировав их по...
После создания файла значения его компонент с четными номерами заменить нулями Turbo Pascal добрый день очень срочно надо решить такую задачу, заранее огромное спасибо!! Создать файл, компоненты (количество <=10) которого являются вещественными числами. После создания файла значения его...	Turbo Pascal Найти произведение элементов расположенных на нечетных местах массива и выбрать большее из них решить с помощью функции... В каждом из массивов T(14) и D(9) найти произведение элементов расположеных на нечетных местах и выбрать большее из них... https://www.cyberforum.ru/ turbo-pascal/ thread242619.html
Turbo Pascal Вывести K-й элемент файла (элементы нумеруются от 1). Если такой элемент отсутствует, то вывести - "Элемент отсутствует" https://www.cyberforum.ru/ turbo-pascal/ thread242584.html Помогите написать программки. 1. Дано целое число K и файл, содержащий неотрицательные числа. Вывести K-й элетент файла (элементы нумеруются от 1). Если такой элемент отсутствует, то вывести -...	Turbo Pascal Вывести квадрат чисел от введённого пользователем значения до 1 Написать программу, выводящую квадрат чисел от введённого пользователем значения до 1 https://www.cyberforum.ru/ turbo-pascal/ thread242567.html

IntoTheWild

3 / 3 / 1

Регистрация: 24.01.2011

Сообщений: 61

14.02.2011, 19:20

Сформировать файл последовательного доступа, элементами которого являются числа a1, a1a2, a1a2a3,........,a1a2a3......an

14.02.2011, 19:20. Просмотров 1320. Ответов 3

Метки (Все метки)

Ответ

Pascal

var
a:array[1..n]of integer;
s:array[1..n]of integer;
i,j,n:integer;
output1,output2:text;
begin
assign(output1, 'output1.txt');
rewrite(output2);
assign(output2, 'output2.txt');
rewrite(output2);
 
write('Введите размер массива: ', n);
read(n);
for i:=1 to n do
a[i]:=random;
write(output1, a[i]);
 
s[1]:=a[1];
for i:=1 to n do
  for j:=1 to n do
    s[j]:=s[j]*i;
write(output2, s[j]);
close(output1);
close(output2);
end.

Вернуться к обсуждению:
Сформировать файл последовательного доступа, элементами которого являются числа a1, a1*a2, a1*a2*a3,........,a1*a2*a3*......an

Следующий ответ

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

14.02.2011, 19:20

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Сформировать массив ИМ (100), элементами которого являются числа...
Всем привет! от не могу никак решить задачку, помогите плиз:) Вот она: Сформировать массив ИМ...

Сформировать массив, элементами которого являются числа 2,1,4,3,6,5,...,100,99
Как написать в турбо си Сформировать массив IM(100) элементами которого являются числа...

Сформировать массив, элементами которого являются цифры числа N
Народ помогите пожалуйста решить контрольную работу..... Она состоит из 7 вопросов...4 я...

Сформировать целочисленный массив A(75), элементами которого являются случайные числа из диапазона [-5, 20]
помогите решить плз,прост сам препод много задал,а этот номер я как то не одупляю!!! "Сформировать...

Сформировать файл, элементами которого являются двенадцать первых членов последовательности Фибоначчи
Кто может решити задачи я не разбираюсь в этом языке программирования 1. Сформировать файл,...

Сформировать файл, элементами которого являются массивы вещественных чисел, введенных с клавиатуры
Составить программы, с помощью которых: -софрмировать файл, элементами которого являются массивы...

Наверх