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

@kokosic_n1 · Регистрация: 14.05.2019

Студворк — интернет-сервис помощи студентам

Работа с текстовыми файлами, помогите закончить код, пожалуйста.

Заполните файл n случайными числами в диапазоне [-100;100]. Перепишите в другой файл количество отрицательных, положительных и нулевых элементов исходного файла.

Я начала программу

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
program z1;
f1,f2:file of integer;
i,n,h,t, k:integer;
begin
Randomize;
assign (f1,'1.txt');
rewrite(f1);
for i:=1 to 30 do
begin
k:=random(201)-100;
write(f1,k,'');
end;
close(f1);
reset(f1);
h:=0;
t:=0;
while not eof(f1) do begin
read(f1,k);
if (k>0) and (k mod 2=0) then
begin
inc(h);
write(f2,k,'');
end;
while not eof(f1) do begin
read(f1,k);
if (k<0) and (k mod 2<>0) then
begin
inc(t);
write(f2,k,'');
end;
writeln(f2);
 
assign(f2,'2.txt');
 
end.

@XzzzX · 02.05.2022, 16:29

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
##
var f: text;
rewrite(f, '1.txt');
var (count_neg, count_pos, count_zero):= (0, 0, 0);
loop ReadLnInteger('n =') do begin
  var x:= random( -100..100 );
  case sign(x) of
    -1: count_neg+= 1;
    1: count_pos+= 1;
    else
     count_zero+= 1;
  end;
  f.Print(x);
end;
f.Close;
 
rewrite(f, '2.txt');
f.print(count_neg, count_pos, count_zero);
f.Close;

создавайте темы по древнепаскальскому в соответствующих разделах. на pabc.net пишут подобно тому, как выше.

Добавлено через 6 минут

Сообщение от kokosic_n1

f1,f2:file of integer;

а ещё Вы создаёте бинарный файл, хотя тема задания

Сообщение от kokosic_n1

Работа с текстовыми файлами

Сообщение от kokosic_n1

(k mod 2<>0)

про странные проверки на чётность и говорить нечего. так и не понял, к чему они тут.

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

@kokosic_n1 · 03.05.2022, 10:42 **[ТС]**

XzzzX, у нас есть препод, который даёт базу, вот поэтому так и пишу,понимаю,что вы уже намного грамотнее синтаксис пишите, но вот препод требует ,как даёт код программы пример, так и пишите...

Добавлено через 1 минуту
XzzzX, в этой строчке мы,получается вносим изменения в файл,а нет строчки,где мы создали и привязали этот файл?
##
var f: text;
rewrite(f, '1.txt');

Code
1
 

@JuriiMW · 03.05.2022, 12:43

Сообщение от kokosic_n1

где мы создали и привязали этот файл

Это и есть создание и привязание!

@JuriiMW · 03.05.2022, 12:46

Как-то так:

@kokosic_n1 · 03.05.2022, 17:16 **[ТС]**

JuriiMW, хорошо, спасибо, просто знаю еще одну операцию assign
В общем, код программы работает, но как мне сделать так, чтобы числа переносились всё же? я создала два файла 1.txt и 2.txt , и пробовала все варианты записи , не получается

Добавлено через 8 минут
JuriiMW, XzzzX, отмена, я разобралась,спасибо большое :3

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

@JuriiMW 5095 / 2661 / 2355 Регистрация: 10.12.2014 Сообщений: 10,060
	03.05.2022, 12:46
	Как-то так: Миниатюры 1

@kokosic_n1 2 / 2 / 1 Регистрация: 14.05.2019 Сообщений: 135
	03.05.2022, 17:16 [ТС]
	JuriiMW, хорошо, спасибо, просто знаю еще одну операцию assign В общем, код программы работает, но как мне сделать так, чтобы числа переносились всё же? я создала два файла 1.txt и 2.txt , и пробовала все варианты записи , не получается Добавлено через 8 минут JuriiMW, XzzzX, отмена, я разобралась,спасибо большое :3 0

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

Решение