Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Slava 12
0 / 0 / 0
Регистрация: 06.03.2013
Сообщений: 7
#1

Получить третий файл: каждый элемент которого равен большему из соответствующих элементов заданных файлов

06.03.2013, 20:07. Просмотров 860. Ответов 1
Метки нет (Все метки)

Имеются два файла одинакового размера, элементами которых являются числа. Получить третий файл: каждый элемент которого равен большему из соответствующих элементов заданных файлов.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.03.2013, 20:07
Ответы с готовыми решениями:

Получить третий массив С такой же размерности, каждый элемент которого равен сумме соответствующих элементов массивов А и В.
3. Даны два одномерных массива А и В одинаковой размерности. Получить третий массив С такой же...

Создать третий массив, каждый элемент которого равен сумме соответствующих элементов двух первых
Даны два двумерных массива одинакового размера. Создать третий массив, каждый элемент которого...

Создать третий массив той же размерности, каждый элемент которого равен сумме соответствующих элементов первых двух.
Даны два двумерных массива одинаковой размерности. Создать третий массив той же размерности, каждый...

Получить файл, компоненты которого есть среднее арифметическое соответствующих компонентов заданных файлов
Помогите решить, пожалуйста. Даны два файла с числами. Получить новый файл, каждый компонент...

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

1
Kodzaev
3003 / 1892 / 1646
Регистрация: 30.04.2011
Сообщений: 3,054
06.03.2013, 23:33 #2
Лучший ответ Сообщение было отмечено Slava 12 как решение

Решение

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
49
50
51
52
53
54
55
56
Uses crt;
{-----------------}
Procedure PrintFile(var fl: File of Integer);
var t: Integer;
begin
  Seek(fl,0);
  While not Eof(fl) do
  begin
    Read(fl,t);
    Write(t,' ');
  end;
end;
{------------------}
Var
  f1,f2,f3: File of Integer;
  i,n,x,y: Integer;
BEGIN
Write('По сколько чисел записать в файлы? ');
Readln(n);
Assign(f1,'1.dat');
Rewrite(f1);
Assign(f2,'2.dat');
Rewrite(f2);
For i:=1 to n do
begin
  Write(f1,Random(100));
  Write(f2,Random(100));
end;
Reset(f1);
Reset(f2);
Writeln('Файл 1:');
PrintFile(f1);
Writeln;
Writeln('Файл 2:');
PrintFile(f2);
Writeln;
Assign(f3,'3.dat');
Rewrite(f3);
For i:=0 to Filesize(f1)-1 do
begin
  Seek(f1,i);
  Read(f1,x);
  Seek(f2,i);
  Read(f2,y);
  If x>y Then
  Write(f3,x)
  Else
  Write(f3,y);
end;
Writeln;
Writeln('Файл 3:');
PrintFile(f3);
Close(f1);
Close(f2);
Close(f3);
END.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.03.2013, 23:33

Получить третий массив такой же размерности, каждый элемент которого равен большему из соответствующих элементов данных массивов
Даны 2 одномерных массива одинаковой размерности. Получить третий массив такой же размерности,...

Даны 2 массива. Получить 3 массив, каждый элемент которого равен сумме соотвестветствующих элементов исходных
2) Даны 2 одномерных массива одинаковой длины.Получить 3 массива такой же размерности,каждый...

Даны два массива А(5) и В(5). Сформируйте массив С, каждый четный по номеру элемент которого равен сумме соответствующих
Даны два массива А(5) и В(5). Сформируйте массив С, каждый четный по номеру элемент которого равен...


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

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

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