Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Slava 12
0 / 0 / 0
Регистрация: 06.03.2013
Сообщений: 7
#1

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

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

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

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

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

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

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

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

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

1
Kodzaev
3002 / 1891 / 611
Регистрация: 30.04.2011
Сообщений: 3,054
06.03.2013, 23:33 #2
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 массива. Получить 3 массив, каждый элемент которого равен сумме соотвестветствующих элементов исходных - Pascal
2) Даны 2 одномерных массива одинаковой длины.Получить 3 массива такой же размерности,каждый элемент которого равен сумме соотвеств....

Вывести массив размера N, первый элемент которого равен А, второй В, а каждый предыдущий элемент равен сумме всех предыдущих - Pascal ABC
Данны целые числа N(<2), А и В. сформулировать и вывести целочисленный массив размера N, первый элемент которого равен А, второй В, а...

Создать массив, каждый элемент которого равен сумме двух предыдущих элементов - Pascal
Известны два первых элемента массива B: B=4, B=8.Создать массив, каждый элемент которого равен сумме двух предыдущих элементов. Вывести...

Сформировать одномерный массив, каждый элемент которого равен количеству отрицательных элементов - Pascal ABC
4.1 Дан двумерный массив размерностью 4 х 5, заполненный целыми числами с клавиатуры. Сформировать одномерный массив, каждый элемент...


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

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

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