Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
Quiet_22
0 / 0 / 0
Регистрация: 03.12.2009
Сообщений: 20
1

Типизированные файлы. Записать в файл Н2 последовательность массивов, получающихся преобразованием исходных массивов

04.01.2010, 19:36. Просмотров 566. Ответов 5
Метки нет (Все метки)

Дан файл Н1, элементами которого являются массивы целых чисел а0,а1,…,а4. Записать в файл Н2 последовательность массивов, получающихся преобразованием исходных массивов: а0а1,а1а2,а2а3,а3а4,а4а0.

ИСХОДНЫЕ ДАННЫЕ:
1 2 3 4 2
5 6 7 8 1
9 10 11 12 1
3 3 2 2 2
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.01.2010, 19:36
Ответы с готовыми решениями:

Записать в файл f2 последовательность массивов, получающихся преобразованием исходных массивов
Pascal Дан файл h1, компонентами которого являются массивы целых чисел...

Типизированные файлы: преобразовать каждый из массивов в файле
Всем добрый вечер, помогите пожалуйста заранее спасибо Создать файл H1,...

Заполнение массивов исходных данных
Сижу на экзамене:( вообще не представляю как эти задачи написать.

Сформировать третий массив из положительных элементов исходных массивов, меньших 10
Сформировать третий массив из положительных элементов исходных массивов,...

У всех элементов исходных массивов с номерами , не кратными трем, сменить знак на противоположный
Помогите пожалуйста с Pascal Дано:массивы a(n), b(m) .Используя подпрограмму,...

5
Puporev
Модератор
55418 / 42547 / 29398
Регистрация: 18.05.2008
Сообщений: 100,652
04.01.2010, 19:56 2
Цитата Сообщение от Quiet_22 Посмотреть сообщение
а0а1,а1а2,а2а3,а3а4,а4а0
Это как читать? а0*а1,а1*а2,а2*а3,а3*а4,а4*а0 так что ли?
0
Quiet_22
0 / 0 / 0
Регистрация: 03.12.2009
Сообщений: 20
04.01.2010, 19:59  [ТС] 3
Цитата Сообщение от Puporev Посмотреть сообщение
Это как читать? а0*а1,а1*а2,а2*а3,а3*а4,а4*а0 так что ли?
Видимо да..
0
Puporev
Модератор
55418 / 42547 / 29398
Регистрация: 18.05.2008
Сообщений: 100,652
04.01.2010, 20:05 4
Исходный файл тоже типизированный, или текстовый? Или тоже фиг его знает?
0
Quiet_22
0 / 0 / 0
Регистрация: 03.12.2009
Сообщений: 20
04.01.2010, 20:07  [ТС] 5
Цитата Сообщение от Puporev Посмотреть сообщение
Исходный файл тоже типизированный, или текстовый? Или тоже фиг его знает?
По идее тоже
0
Puporev
Модератор
55418 / 42547 / 29398
Регистрация: 18.05.2008
Сообщений: 100,652
04.01.2010, 21:47 6
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
uses crt;
const n=4;
type mas=array[0..n] of byte;
     fail=file of mas;
const a:mas=(1,2,3,4,2);
      b:mas=(5,6,7,8,1);
      c:mas=(9,10,11,12,1);
      d:mas=(3,3,2,2,2);
var f,g:fail;
    x:mas;
    i,p,q:byte;
begin
clrscr;
assign(f,'filef');
rewrite(f);
assign(g,'fileg');
rewrite(g);
write(f,a,b,c,d);
writeln('Содержание исходного файла:');
reset(f);
while not eof(f) do
 begin
  read(f,x);
  for i:=0 to n do
  write(x[i]:4);
  writeln;
  p:=x[0];
  for i:=0 to n-1 do
   begin
    q:=x[i+1];
    x[i]:=x[i]*q;
   end;
  x[n]:=x[n]*p;
  write(g,x);
 end;
close(f);
writeln('Содержание полученного файла:');
reset(g);
while not eof(g) do
 begin
  read(g,x);
  for i:=0 to n do
  write(x[i]:4);
  writeln;
 end;
close(g);
readln
end.
0
04.01.2010, 21:47
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.01.2010, 21:47

Сформировать новый массив, состоящий из элементов, равных соответственно суммам исходных массивов
помогите пожалуйста решить задачу даны три массива VEC 1=(1.0; 3.9; -2.6) ...

Составить третий массив из положительных элементов двух исходных массивов, расположенных на чётных местах
вывести 2 массива целых чисел составить 3 ий массив из положительных элементов...

В каждом из массивов найти наименьшее значение и умножить на него все элементы массивов
Заданы два массива A(N) и B(M). В каждом из массивов найти наименьшее значение...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

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