Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Файлы:Имеется текстовый файл.Напечктать... https://www.cyberforum.ru/ pascal/ thread138197.html
Решите пожалуйста задачу : Имеется текстовый файл.Напечатать : а) первые 10 символов первой строки , б) символы с s1-го по s2-й в первой строке, с)k-йсимвол n-й строки. Спасибо большое!
Pascal Соединение массивов
Даны два массива x<= ... <=x и y<= ...<=y. "Соединить" их в массив z<= ... <=z (m = k+l) Каждый элемент должен входить в массив z столько раз, сколько раз он входит в общей сложности в массивы x и...
Pascal Дан массив из n целых чисел.Определить количество положительных чисел, используя функцию определения положительности числа. https://www.cyberforum.ru/ pascal/ thread138191.html
Плиз срочна нуна !!!
Pascal Блок-схемы Добрый день, пожалуйста помогите сделать блок-схемы для следующих задач: 1. program one; uses crt; procedure number2(j: integer); var a:arrayof integer; i, m, n, k: integer; https://www.cyberforum.ru/ pascal/ thread138186.html
Всплывающее окно. Pascal
Помогите пож-та разработать процедуру (код программы, как он выглядит), организующую вывод на экран всплывающего окна до заданных пределов. Процесс всплытия должен происходить с замедлением по...
Pascal блок схемма Помогите написать блок схемму метода трапеций по программе: program Integral; var dx,x1,x2,e,i,xx1,xx2,xx3:real; c:longint; function Fx(x:real):real; begin Fx:=Ln(5.5+x)+4.3; end; https://www.cyberforum.ru/ pascal/ thread138174.html
Pascal Процедуры и функции: Преобразовать... Решите пожалуйста задачу: Преобразовать строку , убрав лишние пробелы (оставить по одному пробелу между словами).Спасибо! https://www.cyberforum.ru/ pascal/ thread138172.html Pascal Найти расстояние (процедуры)!!!
Среди множества точек на плоскости найдите пару точек с минимальным расстоянием между ними. Определение расстояния между двумя точками оформите в виде процедуры пользователя. (Помогите решить,...
Pascal Вывести числа в порядке возрастания их значений. https://www.cyberforum.ru/ pascal/ thread138169.html
Длинная последовательность двузначных чисел вводится клавиатуры. Признаком конца ввода является число «нуль». Вывести числа в порядке возрастания их значений.
Pascal множества:задано некоторое множество... Решите пожалуйста задачу: Задано некоторое множество M и множество Т того же типа.Подсчитать количество элементов в Т и М , которые не совпадают. Спасибо! https://www.cyberforum.ru/ pascal/ thread138150.html
Pascal Поставить графики указанных функций
Решите пожайлуста, к зачету надо... 1. Поставить графики указанных функций. При построении графика функции выбрать такой масштаб, чтобы график занимал весь экран монитора. Нарисовать...
Pascal Вычисление произведений всех чисел от 1 до 100 кратных 3, но не кратных 6 пожалуйста напишите программу: написать программу вычисления произведений всех чисел от 1 до 100 кратных 3 но не кратных 6 https://www.cyberforum.ru/ pascal/ thread138124.html
72 / 30 / 4
Регистрация: 29.05.2010
Сообщений: 478
0

Запись в 2 файла, сравнение и запись в 3-ий файл - Pascal - Ответ 766473

30.05.2010, 20:17. Показов 1003. Ответов 2
Метки (Все метки)

Нуждаюсь в помощи с программами, написаны, вот надо готовить отчеты, но проблема в том, что у нас проверяющий смотрит и говорит: "Сойдет, засчитываю". Не говорит, правильно или нет.

1. Сформировать два файла из некоторых чисел. Записать в третий файл положительные элементы того файла, в котором находится максимальное отрицательное число.

Кое-что привел, но в условиях отсеивания запутался и почему-то не сравнивает числа.
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
uses crt;
const n=4;
var
i: integer;
a_min, b_min: real;
a: Array[0..n] of Integer;
b: Array[0..n] of Integer;
tfile:text;
begin
clrscr;
assign(tfile, 'a.txt');
rewrite(tfile);
for i:=0 to n do
                 begin
                   write('Enter a[',i,']=');
                   readln(a[i]);
                  
                  writeln(tfile,' ',a[i]);
                end;
                  close(tfile);
clrscr;
assign(tfile, 'b.txt');
rewrite(tfile);
for i:=0 to n do
                 begin
                   write('Enter b[',i,']=');
                  readln(b[i]);
                  
                  writeln(tfile,' ',b[i]);
                 end;
                   close(tfile);
 clrscr;
for i:=0 to n do
 begin
  a_min:=a[0];
 
   if a[i]<a_min then a_min:=a[0];
   if a_min>=0 then write('a.txt ne imeet otrizzatel*nyh chisel');
  b_min:=b[0];
   if b[i]<b_min then a_min:=a[0];
   if b_min>=0 then if a_min>=0 write('b.txt ne imeet otrizzatel*nyh chisel');
 end;
 if b_min>=0 then if a_min>=0 write('Otsutstvujut otrizzatel*nye chisla'); 
 end.
В другом задании нужно посчитать функцию, но не уверен в правильности написания уравнения, так как на Си считает иначе. Прикреплено во вложении. Я написал так:
Pascal
1
y:=exp(x-sqrt(x))/(ln((x+5)/(x+1)))-((2*x*x*x+x)/(1+abs(sin(x)));


Вернуться к обсуждению:
Запись в 2 файла, сравнение и запись в 3-ий файл Pascal
Изображения
 
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.05.2010, 20:17
Готовые ответы и решения:

Запись из файла в файл
uses crt; var c:string; i,j:integer; s:array of string; f1,f2:text; Begin...

Надо организовать чтение из файла и запись в файл
Есть массив m на n, надо организовать чтение из файла и запись в файл

Запись - чтение двумерного массива в файл - из файла
Ребят, помогите пожалуйста к задаче https://www.cyberforum.ru/pascal/thread100714.html написать...

Запись подготовленных данных во внешний файл и программа обработки созданного внешнего файла.
ВОт надо программку написать)а я хз как( Подготовить данные об абитуриентах, поступающих в...

2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.05.2010, 20:17

Поменять любую запись местами с последней и удалить последнюю запись.
Помогите пожалуйста! Мне для программы, которая использует records (записи), нужно написать...

запись в файл
исправьте ошибку,не выводит данные в файл var a:arrayof integer; i,s,j:integer; ...

запись в файл
Здраствуйте Возникла такая проблема например я написал програмку которая считает сумму двух...

Запись в файл
добрый день. нужно сделать запись в файл вычесления,которые проходят в программе program kyrs;...

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