Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
72 / 30 / 4
Регистрация: 29.05.2010
Сообщений: 478
1

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

30.05.2010, 20:17. Показов 992. Ответов 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)));
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
72 / 30 / 4
Регистрация: 29.05.2010
Сообщений: 478
30.05.2010, 21:16  [ТС] 2
С уравнением разобрался сам, сразу увидел недочёты.
0
72 / 30 / 4
Регистрация: 29.05.2010
Сообщений: 478
04.06.2010, 08:27  [ТС] 3
Ап. Помощь по первой программе актуальна. Надо завтра с утра сдавать, выручайте.

Добавлено через 5 часов 18 минут
Остановился на следующем:
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
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;
                  
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;
                   
 clrscr;
for i:=0 to n do
 begin
  a_min:=a[0];
   if a[i]<a_min then a_min:=a[i];
   if a_min>=0 then write('a.txt ne imeet otrizzatel*nyh chisel');
     
  b_min:=b[0];
   if b[i]<b_min then b_min:=b[i];
   if b_min>=0 then if b_min>=0 then write('b.txt ne imeet otrizzatel*nyh chisel');
 end;
 if b_min>=0 then if a_min>=0 then write('Otsutstvujut otrizzatel*nye chisla');
 if a_min<b_min then begin
 assign(tfile, 'c.txt');
rewrite(tfile);
 for i:=0 to n do
                 begin
                  if a[i]>-1 then writeln(tfile,'',a[i]);                            
                 end;
                 end;
                close(tfile);
 end.
Проблему с записью решил, добавив close(tfile); везде.
Скажите, как сделать альтернативное условие в Паскале, по типу как в Си if x>0 {} also {}?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.06.2010, 08:27

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

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

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

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


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

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

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