Вывод всех прокрученных чисел в файл

@Foper · Регистрация: 25.03.2021

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

Добрый день.
Интересует вот такой вопрос. Есть код, который прокручивает числа, в итоге нужно вывеси всё что он прокручивает в отдельный файл, но столкнулся с проблемой что выводится только самый последний элемент. Можете подсказать что с этим делать, думал о массиве, но с Паскалем работаю не много и не совсем его понимаю.

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
Program One;
function Mfunc(m: integer): boolean;
var
i: boolean;
g: integer;
l: integer;
begin
l:= m;
i:= true;
while i and (l>0) do
begin
g:= l mod 10;
i:= i and ((g in [0..1] ) or (m mod g=0));
l:= l div 10;
end;
Mfunc := i;
end;
var
m: integer;
e,g: integer;
begin
readln(m);
write(1);
for e:= 2 to m do
if Mfunc(e) then
writeln(e);
var
f: text;
V: real;
i: word;
put: string;
begin
put := 'C:\Users\FOPER\Desktop\file.txt';
assign(f, put);
rewrite(f);
V := e;
write(f, V);
close(f);
writeln;
end;
end.

@JuriiMW · 06.10.2021, 07:58

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

Вывод всех прокрученных чисел в файл

Что такое «прокрученные числа»?

Вероятно исходный код был такой (хотя не очень уверен :–)

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
function Mfunc(m: integer): boolean;
var
i: boolean;
g: integer;
l: integer;
begin
  l:= m;
  i:= true;
  while i and (l>0) do
    begin
      g:= l mod 10;
      i:= i and ((g in [0..1] ) or (m mod g=0));
      l:= l div 10;
    end;
  Mfunc := i;
end;
 
var
  m: integer;
  e,g: integer;
begin
  readln(m);
  write(1);
  for e:= 2 to m do
    if Mfunc(e) then
      writeln(e);
end.

Добавил сохранение в файл:

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
const fName = 'result.txt';
 
function Mfunc(m: integer): boolean;
var
i: boolean;
g: integer;
l: integer;
begin
  l:= m;
  i:= true;
  while i and (l>0) do
    begin
      g:= l mod 10;
      i:= i and ((g in [0..1] ) or (m mod g=0));
      l:= l div 10;
    end;
  Mfunc := i;
end;
 
var
  m: integer;
  e,g: integer;
  f : Text;
begin
  readln(m);
  
  Assign(f, fName); Rewrite;
  write(f, 1);
  for e:= 2 to m do
    if Mfunc(e) then
      writeln(f, e);
  Close(f);
end.

Книжки нужны для того, чтобы их читать.
А по видосикам ЯП не выучить!

Новые блоги и статьи Все статьи Все блоги /
Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .