Форум программистов, компьютерный форум, киберфорум
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
3 / 3 / 1
Регистрация: 24.01.2011
Сообщений: 61
14.02.2011, 19:20 0

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

14.02.2011, 19:20. Просмотров 1320. Ответов 3
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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
0
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]
помогите решить плз,прост сам препод много задал,а этот номер я как то не одупляю!!! &quot;Сформировать...

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

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

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.