Создать типизированный файл целых чисел

@stasyano · Регистрация: 13.09.2009

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

задание:
создать типизированный файл целых чисел, скопировать во второй файл из исходного записи, хранящие простые числа.

значения переменных:
r - вводимая переменная
i - счетчик вводимых переменных
n - количество вводимых переменных
j - счетчик для проверки , простое ли число
b - тоже для проверки, простое ли число
st, st1 - названия первого и второго файла
f,f1 - непосредственно первый и второй файл

Тест:
st := '1.txt'
n := 10
r = 1
2
3
4
5
6
7
8
9
10
st1:='2.txt'
Результат: в файле 1.txt : 1 2 3 4 5 6 7 8 9 10; в файле 2.txt: 1 2 3 5 7
___________________________________
программа вроде как и создает файлы, но записи в них закодированы квадратиками

к тому же по идеи в файле с результатами должно быть 5 записей, а у меня их всего 3

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
uses crt;
var
f: file of integer;
f1: file of integer;
k,r,j,i,n:integer;
b:boolean;
st,st1:string[10];
begin
clrscr;
 writeln('vvedite imya pervogo faila');
readln(st);
 writeln('vvedite kol-vo zapisei');
readln(n);
 Assign (f,st);
 rewrite(f);
for i:=1 to n do
 begin
   write('vvedite  chislo');
  readln(r);
   write(f,r);
 end;
close(f);
{$I-}
reset(f);
{$I+}
 if IOResult<> 0 then
  begin
   writeln(' ');
   exit
  end;
  writeln('vvedite imya vtorogo faila');
readln(st1);
b:=true;
 Assign (f1,st1);
  rewrite(f1);
 while not eof (f) do
  begin
   read (f,r);
   for j:=2 to r-1 do
    if (r mod j) = 0 then b:= false;
     if b then write (f1,r);
  end;
close (f1);
writeln('file uspeshno sozdan pod nazvaniem ',st1);
readln;
end.

@Puporev · 12.12.2009, 13:54

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
uses crt;
var
f,f1: file of integer;
k,r,j,i,n:integer;
b:boolean;
st,st1:string[10];
begin
clrscr;
writeln('vvedite imya pervogo faila');
readln(st);
writeln('vvedite kol-vo zapisei');
readln(n);
Assign (f,st);
rewrite(f);
for i:=1 to n do
 begin
  write('vvedite  chislo  ');
  readln(r);
  write(f,r);
 end;
close(f);
{$I-}
reset(f);
{$I+}
if IOResult<> 0 then
 begin
  writeln(' ');
  exit
 end;
writeln('vvedite imya vtorogo faila');
readln(st1);
Assign (f1,st1);
rewrite(f1);
write('Fail F:  ');
while not eof (f) do
 begin
  read (f,r);
  write(r,' ');
  b:=true;
  j:=2;
  while b and(j<=round(sqrt(r)))do
    begin
     if (r mod j) = 0 then b:= false
     else j:=j+1;
    end;
  if b and(r<>1)then write (f1,r);
 end;
writeln;
close (f1);
writeln;
write('Fail F1:  ');
reset(f1);
while not eof (f1) do
  begin
   read (f1,r);
   write(r,' ');
  end;
close(f1);
readln
end.

Новые блоги и статьи Все статьи Все блоги /
Мастер-класс по микросервисам на Node.js Reangularity 21.06.2025 Node. js стал одной из самых популярных платформ для микросервисной архитектуры не случайно. Его неблокирующая однопоточная модель и событийно-ориентированный подход делают его идеальным для. . .	Управление Arduino из WPF приложения Wired 21.06.2025 Зачем вообще связывать Arduino с WPF-приложением? Казалось бы, у Arduino есть собственная среда разработки, своя экосистема, свои способы управления. Однако при создании серьезных проектов. . .	Звёздная пыль kumehtar 20.06.2025 Я просто это себе представляю: как создавался этот мир. Как энергия слипалась в маленькие частички. Как они собирались в первые звёзды, как во вселенной впервые появился Свет. Как эти звёзды. . .	Создание нейросети с PyTorch AI_Generated 19.06.2025 Ключевое преимущество PyTorch — его питоновская натура. В отличие от TensorFlow, который изначально был построен как статический вычислительный граф, PyTorch предлагает динамический подход. Это. . .	JWT аутентификация в ASP.NET Core UnmanagedCoder 18.06.2025 Разрабатывая веб-приложения, я постоянно сталкиваюсь с дилеммой: как обеспечить надежную аутентификацию пользователей без ущерба для производительности и масштабируемости? Классические подходы на. . .
Краткий курс по С# aaLeXAA 18.06.2025 Здесь вы найдете все необходимые функции чтоб написать програму на C# Задание 1: КЛАСС FORM 1 public partial class Form1 : Form { Spisok listin = new Spisok(); . . .	50 самых полезных примеров кода Python для частых задач py-thonny 17.06.2025 Эффективность работы разработчика часто измеряется не количеством написаных строк, а скоростью решения задач. Готовые сниппеты значительно ускоряют разработку, помогают избежать типичных ошибок и. . .	C# и продвинутые приемы работы с БД stackOverflow 17.06.2025 Каждый . NET разработчик рано или поздно сталкивается с ситуацией, когда привычные методы работы с базами данных превращаются в источник бессонных ночей. Я сам неоднократно попадал в такие ситуации,. . .	Angular: Вопросы и ответы на собеседовании Reangularity 15.06.2025 Готовишься к техническому интервью по Angular? Я собрал самые распространенные вопросы, с которыми сталкиваются разработчики на собеседованиях в этом году. От базовых концепций до продвинутых. . .	Архитектура Onion в ASP.NET Core MVC stackOverflow 15.06.2025 Что такое эта "луковая" архитектура? Термин предложил Джеффри Палермо (Jeffrey Palermo) в 2008 году, и с тех пор подход только набирал обороты. Суть проста - представьте себе лук с его. . .

Опции темы