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

Организовать вещественные файлы А и В с одинаковым количеством компонентов. Получить файл С, компоненты которого определяются по правилу

24.03.2014, 09:12. Просмотров 881. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста!
Организовать вещественные файлы А и В с одинаковым количеством компонентов. Получить файл С, компоненты которого определяются по правилу С(i)= min(A(i),B(i)).
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.03.2014, 09:12
Ответы с готовыми решениями:

Дана матрица B(N,M). Получить вектор A(N), компоненты которого находятся по правилу: A[i] равно количеству положительных чисел в i-й строке
8. Дана матрица B(N,M). Получить вектор A(N), компоненты которого находятся по...

Вычислить и вывести массив В, все элементы которого определяются по правилу
3. Дан массив A=(0.1, -2.4, 12.56, -0.5, 0.4) Вычислить и вывести массив В,...

Сформировать новый массив B того же размерами, элементы которого определяются по правилу
Тема: Работа с несколькими массивами Дан массив A размера N. Сформировать...

Файлы. Типизированные файлы. Получить файл G, содержащий все компоненты файла F, являющиеся нечетными числами и корнями целых чисел
1.Заданный файл F компонентами которого являются целые числа. Получить файл G...

Дан фаил f, компоненты которого являются целыми числами Никакая из компонентов не равно 0.Файл содержит столько же отрицательных чисел сколько и полож
uses crt; var f,g,h:file of integer; a,n,m,i,j,k:integer; begin clrscr;...

1
EagleAlex
36 / 36 / 25
Регистрация: 19.11.2012
Сообщений: 197
24.03.2014, 09:44 2
Лучший ответ Сообщение было отмечено Eg0rka как решение

Решение

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
function min(a:real; b: real):real;
begin
if (a<=b) then min:=a else min:=b;
end;
var a,b,c: file of real;
i:integer;
t1,t2 : real;
begin
assign(a,'a.txt'); reset(a);
assign(b,'b.txt'); reset(b);
assign(c,'c.txt'); rewrite(c);
if (filesize(a)=filesize(b)) then
begin
for i:= 1 to filesize(a) do
begin
read(a, t1);
read(b, t2);
writeln(c, min(t1, t2);
end;
end else writeln('Размер файлов А В разный!');
close(a);
close(b);
close(c);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.03.2014, 09:44

Организовать три очереди с одинаковым количеством элементов, содержащие соответствено имена, отчества и фамилии людей
Организовать три очереди с одинаковым количеством элементов, содержащие...

Создать файл F, компоненты которого являются целыми числами. В файлы G и H записать кубы и квадраты компонент файла F.
Добрый день! помогите пожалуйста с задачами в Паскале. у самой не получается....

Задан файл F, все компоненты которого – целые числа. Переписать в файл G компоненты файла F
Задан файл F, все компоненты которого – целые числа. Переписать в файл G...


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

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

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