Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Написать программу построения графика функции y= lnX – 2 на отрезке [-2;3] https://www.cyberforum.ru/ turbo-pascal/ thread616668.html
Написать программу построения графика функции y= lnX – 2 на отрезке
Генерировать все k-значные числа, не содержащие одинаковых цифр, кратные 2 и 3 Turbo Pascal
Помогите, пожалуйста, составить программу. Или объясните очень подробно как это сделать. Вот задание: Написать программу, которая выполняет задание варианта с помощью генерации всех соответствующих...
Проверить правильность расстановки круглых и квадратных скобок в выражениях Turbo Pascal
2 дана строка символов проверить правильность расстановки круглых и квадратных скобок в выражениях
Turbo Pascal Двунаправленный линейный список строк. Вставить строку, удалить строку и заменить строку 3 двунаправленный линейный список строк.требуется вставить строку после строки с номером и удалить строку с номером и заменить строку с номером и подсчитать стастистику (количество строк и символов)... https://www.cyberforum.ru/ turbo-pascal/ thread616545.html
Turbo Pascal Упорядочить массив так, чтобы сначала иши упорядоченные положительные члены а потом упорядоченные отрицательные члены https://www.cyberforum.ru/ turbo-pascal/ thread616531.html
1 упорядочить одномерный массив таким образом,чтобы сначала ии упорядоченные положительные члены а потом упорядоченные по возрастанию отрицательные члены tarasman, следующее название вроде...
Кольцевой список Turbo Pascal
Составила программу, но преподаватель сказал, что -то вроде:"для таких задачек, подобные простыни не составляют"..... Помогите оптимизировать - сделать код компактнее. Задача: нужно в кольцевой...
Turbo Pascal Окружность вписана в квадрат. Найти площадь квадрата, вписанного в эту окружность
Помогите, пожалуйста... 2)Окружность вписана в квадрат (задана площадь этого квадрата) найти площадь квадрата вписанного в эту окружность. Так ли это решается? Program abc; Var s2:real;...
Turbo Pascal В массиве хранятся сведения о количестве осадков. Определить общее количество осадков 2. В массиве хранятся сведения о количестве осадков, выпавших за каждый день января. Определить общее количество осадков за январь. https://www.cyberforum.ru/ turbo-pascal/ thread616500.html
Turbo Pascal Определить номера команд, имеющих меньше трех побед https://www.cyberforum.ru/ turbo-pascal/ thread616497.html
3. В массиве хранится информация о количестве побед, одержанных 20 футбольными командами. Определить номера команд, имеющих меньше трех побед.
Turbo Pascal Известно число жителей в каждом доме улицы. На какой стороне улицы проживает больше жителей 4. Известно число жителей, проживающих в каждом доме улицы. Нумерация домов проведена подряд. Дома с нечетными номерами расположены на одной стороне улицы, с четными — на другой. На какой стороне... https://www.cyberforum.ru/ turbo-pascal/ thread616494.html
Почетный модератор
7957 / 3928 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
29.06.2012, 23:03 0

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

29.06.2012, 23:03. Показов 1011. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено 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
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.06.2012, 23:03
Готовые ответы и решения:

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

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

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

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

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