Записать все положительные числа из файла целых чисел в текстовый файл в обратном порядке

@Cybermafiozo · Регистрация: 18.10.2010

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

Задание:
Написать программу, записывающую все положительные числа из файла целых чисел в текстовый файл в обратном порядке по пять чисел в строку (Указание: использовать динамическую цепочку).

Задача правильная,но есть проблема с проверкой ввода.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
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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
program stek;
type
hell=^st;
st=record
inf:integer;
Next:hell;
end;
var
f:file of integer;
f1:text;
s:string;
w,n,m,z:integer;
p,q:hell;
i:integer;
procedure del(Var u : hell);
Var
  x : hell;
Begin
while u<>Nil do begin
x:=u;
u:=x^.Next;
dispose(x);
end;
end;
procedure writeStack(Var u : hell; Simvol : integer);
Var
  x : hell;
Begin
  new(x);
  x^.inf := Simvol;
  x^.Next := u;
  u := x
  end;
Procedure Print( u : hell);
Begin
  while u <> Nil do
    Begin
      write (u^.inf);
      write(' ');
      u := u^.Next;
    End;
  End;
Begin
  p:= Nil;
  Assign(f,'input.dat');
  rewrite(f);
  writeln('vvesti chislo');
  readln(n);
  if n<0 then
  begin
  n:=n*-1;
  writeln('chislo ispravleno');
 
  end;
for i:=1 to n do
begin
  writeln('vvesti m');
  readln(m);
  write(f,m);
end;
close(f);
assign(f,'input.dat');
reset(f);
while not eof(f)
do begin
read(f,n);
if n>=0
then
begin;
writeln('est pologhitelnie chisla');
end;
if n<0
then
begin
writeln('net pologhitelnie chisla');
readln;
halt;
end;
writeStack(p,n);
 
end;
close(f);
 Print(p);
assign (f1,'input.txt');
rewrite(f1);
 
q:=p;
m:=0;
Begin
  while q <> Nil do
    Begin
 
      write (f1,q^.inf);
      write(f1,' ');
      m:=m+1;
 
   w:=m mod 5;
      if w=0
      then
      writeln(f1,' ');
      q := q^.Next;
    End;
  End;
 
 
close(f1);
del(p);
readln;
End.

@Puporev · 05.03.2011, 16:51

1-ое,что фигово,это надо чтобы подтверждение,что есть положительные числа писалось один раз(а оно пишется столько же раз сколько чисел).

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
reset(f);
w:=0;
while not eof(f) do
 begin
  read(f,n);
  if n>=0 then w:=1;
 end;
if w=1 then writeln('est pologhitelnie chisla')
else
 begin
  writeln('net pologhitelnie chisla');
  readln;
  halt;
 end;
writeStack(p,n);

@Cybermafiozo · 06.03.2011, 00:51 **[ТС]**

Каверкает прогу(неправильно работает)

Добавлено через 2 минуты
Часть я исправил.Как сделать,чтоб сообщение о том,чтобы сообщения о числах(положительное,отрицательное) выводились,один раз

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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
program stek;
type
hell=^st;
st=record
inf:integer;
Next:hell;
end;
var
f:file of integer;
f1:text;
s:string;
w,n,m,z:integer;
p,q:hell;
i:integer;
procedure del(Var u : hell);
Var
  x : hell;
Begin
while u<>Nil do begin
x:=u;
u:=x^.Next;
dispose(x);
end;
end;
procedure writeStack(Var u : hell; Simvol : integer);
Var
  x : hell;
Begin
  new(x);
  x^.inf := Simvol;
  x^.Next := u;
  u := x
  end;
Procedure Print( u : hell);
Begin
  while u <> Nil do
    Begin
      write (u^.inf);
      write(' ');
      u := u^.Next;
    End;
  End;
Begin
  p:= Nil;
  Assign(f,'input.dat');
  rewrite(f);
  writeln('vvesti chislo');
  readln(n);
  if n<0 then
  begin
  n:=n*-1;
  writeln('chislo ispravleno');
 
  end;
for i:=1 to n do
begin
  writeln('vvesti m');
  readln(m);
  write(f,m);
end;
close(f);
assign(f,'input.dat');
reset(f);
while not eof(f)
do begin
read(f,n);
if n>=0
then
begin;
writeStack(p,n);
writeln('pologhitelnie chislo');
end;
if n<0
then
begin
writeln('otritcatelnoe chislo');
readln;
end;
 
end;
close(f);
 Print(p);
assign (f1,'input.txt');
rewrite(f1);
 
q:=p;
m:=0;
Begin
  while q <> Nil do
    Begin
 
      write (f1,q^.inf);
      write(f1,' ');
      m:=m+1;
 
   w:=m mod 5;
      if w=0
      then
      writeln(f1,' ');
      q := q^.Next;
    End;
  End;
 
 
close(f1);
del(p);
readln;
End.

Новые блоги и статьи Все статьи Все блоги /
Тестирование энергоэффективности и скорости вычислений видеокарт в BOINC проектах Programma_Boinc 08.07.2025 Тестирование энергоэффективности и скорости вычислений видеокарт в BOINC проектах Опубликовано: 07. 07. 2025 Рубрика: Uncategorized Автор: AlexA Статья размещается на сайте с разрешения. . .	Раскрываем внутренние механики Android с помощью контекста и манифеста mobDevWorks 07.07.2025 Каждый Android-разработчик сталкивается с Context и манифестом буквально в первый день работы. Но много ли мы задумываемся о том, что скрывается за этими обыденными элементами? Я, честно говоря,. . .	API на базе FastAPI с Python за пару минут AI_Generated 07.07.2025 FastAPI - это относительно молодой фреймворк для создания веб-API, который за короткое время заработал бешеную популярность в Python-сообществе. И не зря. Я помню, как впервые запустил приложение на. . .	Основы WebGL. Раскрашивание вершин с помощью VBO 8Observer8 05.07.2025 На русском https:/ / vkvideo. ru/ video-231374465_456239020 На английском https:/ / www. youtube. com/ watch?v=oskqtCrWns0 Исходники примера:	Мониторинг микросервисов с OpenTelemetry в Kubernetes Mr. Docker 04.07.2025 Проблема наблюдаемости (observability) в Kubernetes - это не просто вопрос сбора логов или метрик. Это целый комплекс вызовов, которые возникают из-за самой природы контейнеризации и оркестрации. К. . .
Проблемы с Kotlin и Wasm при создании игры GameUnited 03.07.2025 В современном мире разработки игр выбор технологии - это зачастую балансирование между удобством разработки, переносимостью и производительностью. Когда я решил создать свою первую веб-игру, мой. . .	Создаем микросервисы с Go и Kubernetes golander 02.07.2025 Когда я только начинал с микросервисами, все спорили о том, какой язык юзать. Сейчас Go (или Golang) фактически захватил эту нишу. И вот почему этот язык настолько заходит для этих задач: . . .	C++23, квантовые вычисления и взаимодействие с Q# bytestream 02.07.2025 Я всегда с некоторым скептицизмом относился к громким заявлениям о революциях в IT, но квантовые вычисления - это тот случай, когда революция действительно происходит прямо у нас на глазах. Последние. . .	Вот в чем сила LM. Hrethgir 02.07.2025 как на английском будет “обслуживание“ Слово «обслуживание» на английском языке может переводиться несколькими способами в зависимости от контекста: * Service — самый распространённый. . .	Использование Keycloak со Spring Boot и интеграция Identity Provider Javaican 01.07.2025 Два года назад я получил задачу, которая сначала показалась тривиальной: интегрировать корпоративную аутентификацию в микросервисную архитектуру. На тот момент у нас было семь Spring Boot приложений,. . .

Опции темы