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

Mawrat

13095 / 5876 / 1706

Регистрация: 19.09.2009

Сообщений: 8,808

29.09.2011, 09:44

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

29.09.2011, 09:44. Показов 2758. Ответов 1

Метки (Все метки)

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

Решение

Без распечатки исходных данных и результатов:

Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

29.09.2011, 09:44

Готовые ответы и решения:

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

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

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

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

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

29.09.2011, 09:44

Помогаю со студенческими работами здесь

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

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

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

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

Наверх