Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Дан текстовый файл f. Переписать компоненты файла f в файл g, вставляя в начало каждой строки по одному пробелу https://www.cyberforum.ru/ pascal/ thread357869.html
помогите решить задачу, у самой только получилось чтоб программа копировался f в g, program project1; {$mode objfpc}{$H+} uses {$IFDEF UNIX}{$IFDEF UseCThreads} cthreads, {$ENDIF}{$ENDIF} Classes { you can add units after this };
Pascal Вычислить сумму ряда с заданной степенью точности
Сломал голову уже с этим заданием. Заранее благодарен за помощь. :cry: Вычислить сумму ряда с заданной степенью точности:
Pascal Удаление записи из базы данных Не могу понять,как удалить запись из БД. Объясните,пожалуйста. https://www.cyberforum.ru/ pascal/ thread357730.html Pascal Сделайте хоть что-то или переносите во ФРИЛАНС! https://www.cyberforum.ru/ pascal/ thread357647.html
Предлагаю все темы (и не только в данном разделе) с просьбами помочь/сделать программы, в которых нет ни одной попытки автора сделать что-то осмысленное самому переносить в раздел "ФРИЛАНС".
Pascal табуляция из заданной рекурсии
составить программу табуляции функции, заданною рекурсивной функцией f(0)=1, f(1)=3, f(k+2)=f(k+1)*k-(k+1) составить через процедуры и функции
Pascal Вычислить сумму ряда с точностью 0.00001 Вычислить сумму ряда с точностью 0.00001 https://www.cyberforum.ru/ pascal/ thread357510.html
Pascal Создание массива y из массива x с помощью процедуры https://www.cyberforum.ru/ pascal/ thread357505.html
Определить процедуру p (x,y), которая для данного массива чисел x создает массив y по следующему правилу: пусть m - наибольший элемент среди x i . Тогда y i = (x i ) 2 , если x i < m/2 и y i = 0 иначе.
Задача на циклы Pascal
Помогите пожалуйста решить задачу. С использованием 3-х циклических структур (арифметический цикл, цикл с пред условием, цикл с пост условием) вычислить и вывести на экран сумму/произведение членов ряда. Число членов ряда и параметра задается с клавиатуры.
Pascal Треугольник Паскаля https://www.cyberforum.ru/ pascal/ thread357389.html
Есть треугольник Паскаля. Найти заданный элемент треугольника.
Pascal Одномерный массив Ребят помогите решить плиз, очень нужно Ввести одномерный массив A, вывести его. Найти в массиве минимум и часть до минимального элемента отсортировать по возрастанию, а после минимума – по убыванию. https://www.cyberforum.ru/ pascal/ thread357360.html
Помогите пожалуйста разобраться с задачей: нужно вычислить с заданной точностью значения функции кубический корень из х(икс),и 1/на кубический корень из х(икс)!!!! Pascal
Использовать нужно метод итераций на паскале)))помогите пожалуйста!! Размещайте темы в соответствующих разделах
Pascal Вычислить сумму ряда Помогите пожалуёсиа решить 3 задачки: 1 ЗАДАЧА Вычислить заданную сумму S: S=1+1/9+1/25+...+1/(2k-1)(2k-1) (Количество слагаемых вроде вводится с клавиатуры) 2 ЗАДАЧА Дан целочисленный массив.Найти min элемент. 3 ЗАДАЧА Дан целочисленный масиив Найти max элемент. https://www.cyberforum.ru/ pascal/ thread357304.html
13105 / 5886 / 1706
Регистрация: 19.09.2009
Сообщений: 8,808
29.09.2011, 09:44 0

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

29.09.2011, 09:44. Показов 2974. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено 7896325 как решение

Решение

Без распечатки исходных данных и результатов:
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
const
  Fn1 = 'File1.dat';
  Fn2 = 'File2.dat';
  Fn3 = 'FileRes.dat';
var
  F1, F2, F3 : file of Integer;
  Num1, Num2 : Integer;
begin
  Assign(F1, Fn1);
  Assign(F2, Fn2);
  Assign(F3, Fn3);
  Reset(F1);
  Reset(F2);
  Rewrite(F3);
  while not (Eof(F1) or Eof(F2)) do begin
    Read(F1, Num1);
    Read(F2, Num2);
    if Num1 <= Num2 then
      Write(F3, Num1)
    else
      Write(F3, Num2)
    ;
  end;
  Close(F1);
  Close(F2);
  Close(F3);
  
  Writeln('Обработка завершена.');
  Readln;
end.


Вернуться к обсуждению:
Имеются два типизированных файла одинакового размера, элементами которых являются числа. Получить третий файл: каждый элемент которого равен меньшему из соответствующих элементов заданных файлов. Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.09.2011, 09:44
Готовые ответы и решения:

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

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

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

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

1
29.09.2011, 09:44
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.09.2011, 09:44
Помогаю со студенческими работами здесь

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

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

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

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

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru