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

Определить, в каком из файлов больше положительных, отрицательных и нулевых

29.06.2012, 21:33. Просмотров 965. Ответов 2
Метки нет (Все метки)


даны два файла вещественных чисел определить в каком из них больше положителтных отрицательных и нулевых значений......плизззз
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.06.2012, 21:33
Ответы с готовыми решениями:

Определите, в каком из файлов больше положительных, отрицательных и нулевых значений
1.Пусть даны два файла целых чисел. Определите, в каком из них больше по¬ложительных, отрицательных...

В каком из файлов больше положительных, отрицательных и нулевых значений.
Пусть даны два файла целых чисел. Определите, в каком из них больше положительных, отрицательных и...

Найти, в каком из массивов больше положительных чисел, а в каком отрицательных
Дано натуральное число n и два целочисельных массива a1,a2,...,an и b1,b2,...,bn. Найти в каком...

Определить процент положительных, отрицательных и нулевых элементов
Вводится последовательность из N произвольных чисел. Определить процент положительных,...

__________________
Помогаю в написании курсовых работ и дипломов здесь.
2
144 / 134 / 8
Регистрация: 19.07.2011
Сообщений: 184
29.06.2012, 22:48 2
Файл бинарный или текстовый? Если текстовый, то на каждой строке только одно число или несколько?
0
Почетный модератор
7955 / 3926 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
29.06.2012, 23:03 3
Лучший ответ Сообщение было отмечено KaTerin-93 как решение

Решение

вариант для типизированных файлов
если файлы уже существуют, то процедуру создания файла можно удалить
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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
uses crt;
type fi=file of real;
var f1,f2:fi;
    kp1,kp2,ko1,ko2,kn1,kn2: integer;
 
procedure MakeFile(c: char; var ff: fi);
var i: byte; n: real;
begin
rewrite(ff);
for i:=1 to 20+random(50) do
    begin
    n:=199*random-99;
    write(ff,n);
    end;
close(ff);
writeln('Файл ',c,' заполнен случайным количеством случайных чисел');
writeln('Enter для продолжения');
readln;
end;
 
procedure Vyvod (c: char; ff: fi);
var n: real;
begin
writeln('Содержимое файла ',c);
reset(ff);
while not (eof(ff)) do
      begin
      read(ff,n);
      write(n:5:1)
      end;
writeln('');
close(ff);
writeln('Enter для продолжения');
readln;
end;
 
procedure Count (c: char; ff: fi; var kp,ko,kn: integer);
var n: real;
begin
kp:=0; ko:=0; kn:=0;
reset(ff);
while not (eof(ff)) do
      begin
      read(ff,n);
      if n>0 then inc(kp) else
         if n<0 then inc(ko) else inc(kn);
      end;
close(ff);
writeln('Положительных в файле ',c,': ',kp);
writeln('Нулевых       в файле ',c,': ',kn);
writeln('Отрицательных в файле ',c,': ',ko);
writeln('Enter для продолжения');
readln;
end;
 
begin
assign(f1,'D:\f1.dta'); assign(f2,'D:\f2.dta');
MakeFile('1',f1); MakeFile('2',f2);
Vyvod('1',f1);    Vyvod('2',f2);
Count ('1',f1,kp1,ko1,kn1);
Count ('2',f2,kp2,ko2,kn2);
if kp1>kp2 then writeln('Положительных больше в первом') else
   if kp1<kp2 then writeln('Положительных больше во втором') else
      writeln('Количество положительных равно');
if kn1>kn2 then writeln('Нулевых больше в первом') else
   if kn1<kn2 then writeln('Нулевых больше во втором') else
      writeln('Количество нулевых равно');
if ko1>ko2 then writeln('Отрицательных больше в первом') else
   if ko1<ko2 then writeln('Отрицательных больше во втором') else
      writeln('Количество отрицательных равно');
readkey
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.06.2012, 23:03

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь или здесь.

Определить количество положительных, отрицательных и нулевых элементов
Существует одномерном массив. Программа должна определить количество положительных, отрицательных и...

Определить, в каком массиве больше отрицательных элементов
заданы массивы a(7) b(4) c(9) состоящие из положетельных и отрицательных чисел. Определить, в каком...

Определить количество положительных, отрицательных и нулевых элементов массива
Дано одномерный массив действительных чисел. Определить количество положительных, отрицательных и...

В массиве определить количество отрицательных, нулевых и положительных элементов
В произвольно заданном одномерном массиве определить количество отрицательных, нулевых и...


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

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

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