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

@SERGEY199100 · Регистрация: 29.10.2009

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

Есть программа, заполняющая файл f целыми числами, полученными спомощью генератора случ-х чисел. Получаем в файле g те компоненты файла f, которые являются четными.

Программа:

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
...
Var fp,gp:file of integer;
i,n:integer;
 
begin clrscr;
randomize;
assign(fp, 'tstfp.dat');
assign(gp, 'tstgp.dat');
rewrite(fp);
n:=10;
for i:=0 to n-1 do
begin
n:=random(200);
write(fp,n);
write(n, ' ');
end;
writeln;
close(fp);
reset(fp);
rewrite(gp);
while not eof (fp) do
begin 
read(fp,n);
if ((n mod 2)<>1) then 
begin
write (gp,n);
write(n, ' ');
end;
end;
close(fp);
close(gp);
readln;
end.

Нужно переделать эту прогу чтоб она заполняла файл g числами, которые являются произведениями соседних компонентов файла.

Я так понимаю изменения надо произвести тут

Pascal
1
if ((n mod 2)<>1) then

но не знаю как . Памогите. Хотябы подскажите, там сам разберусь, наверно.

Добавлено через 3 часа 58 минут
Ну мне никто не помогет ?

@кот Бегемот · 21.01.2010, 23:15

1. заполнили файл
2. открываем для чтения
3. считываем числа в массив
4. проходим по массиву, составляем произведения и записываем их в массив

@SERGEY199100 · 21.01.2010, 23:28 **[ТС]**

alexevt,
а как в примере не получится ? Есле мы заменим
if ((n mod 2)<>1) then
на наше условие ?
Как найти роизведение, что на что умножить, n * n ?

@кот Бегемот · 21.01.2010, 23:57

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
Var fp,gp:file of integer;
i,n,k:integer;
a,b:array[0..100]of integer;
begin
randomize;
assign(fp, 'tstfp.dat');
assign(gp, 'tstgp.dat');
rewrite(fp);
writeln('vvedite kol-vo chisel');
readln(n);
for i:=0 to n do
begin
a[i]:=random(20)+1;
write(fp,a[i]);
write(a[i], ' ');
end;
writeln;
close(fp);
reset(fp);
rewrite(gp);
while not eof (fp) do
begin
inc(k);
read(fp,a[k]);
end;
a[0]:=1;
a[k+1]:=1;
for i:=1 to k do
begin
b[i]:=a[i-1]*a[i+1];
write (gp,b[i]);
write(b[i], ' ');
end;
close(fp);
close(gp);
readln;
end.

@SERGEY199100 · 22.01.2010, 00:32 **[ТС]**

А как проверить, правильно ли она считает, что на что умножает можно увидеть ?

@кот Бегемот · 22.01.2010, 09:44

Ну, у вас на экране- 2 массива, тот, что был и тот, который стал, например
2 8 3 7 4
8 6 56 12 7
всё и видно: 8=8, 6=2*3, 56=8*7, 12=3*4, 7=7
перемножаются соседи каждого элемента слева и справа, например, для номера 2 это a[1]*a[2]=2*3

@SERGEY199100 · 23.01.2010, 00:08 **[ТС]**

alexevt,
все, дошло. Просто я непонял что имелли ввиду под словом "соседние".
А вот еще такой вопрос: как просмотреть, открыть оба созданных файла ? Мы создаем этой прогой фал tstfp.dat и tstgp.dat. Как их открыть и просмотреть, записаны ли туда данные... Я пробовал открыть и в блокноте, но там иероглифы(юникод, не анси )

@кот Бегемот · 23.01.2010, 09:02

Надо было создавать их не как .dat, а как .txt, проблем не было бы, а паскалю всё равно

@SERGEY199100 · 23.01.2010, 11:52 **[ТС]**

alexevt,
если бы,
Мы создавали и, txt и, doc. Результат при открытии этих файлов- иероглифы а не цифры. Надо что то делать с кодеровкой...

@Страдалецъ · 23.01.2010, 12:41

Ничего с кодировкой делать не надо. Так и должно быть. Вы сохраняете число в файл так как оно у вас описано (integer) при этом число хранится в файле как набор байт. Попытка посмотреть текстовым редактором будет давать крякозябы. Если у вас есть настойчивое желание иметь в фале именно текстовое представление числа, то всю программу придется переделывать. Оно вам надо?

@SERGEY199100 · 23.01.2010, 20:24 **[ТС]**

Страдалецъ,
спасибо за разьяснение )
Оно мне не надо, меня и так устраивает что она работает- это все препод хочет, но я ему разьясню что к чему теперь )())

Добавлено через 5 часов 43 минуты
А как приблизительно будет выглядеть блок-схема для такой работы ?

Новые блоги и статьи Все статьи Все блоги /
Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит токи на L и напряжения на C в установ. режимах до и. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	21.01.2010, 23:15
	1. заполнили файл 2. открываем для чтения 3. считываем числа в массив 4. проходим по массиву, составляем произведения и записываем их в массив 0

@SERGEY199100 204 / 20 / 1 Регистрация: 29.10.2009 Сообщений: 430
	21.01.2010, 23:28 [ТС]
	alexevt, а как в примере не получится ? Есле мы заменим if ((n mod 2)<>1) then на наше условие ? Как найти роизведение, что на что умножить, n * n ? 0

@SERGEY199100 204 / 20 / 1 Регистрация: 29.10.2009 Сообщений: 430
	22.01.2010, 00:32 [ТС]
	А как проверить, правильно ли она считает, что на что умножает можно увидеть ? 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	22.01.2010, 09:44
	Ну, у вас на экране- 2 массива, тот, что был и тот, который стал, например 2 8 3 7 4 8 6 56 12 7 всё и видно: 8=8, 6=23, 56=87, 12=34, 7=7 перемножаются соседи каждого элемента слева и справа, например, для номера 2 это a[1]a[2]=2*3 0

@SERGEY199100 204 / 20 / 1 Регистрация: 29.10.2009 Сообщений: 430
	23.01.2010, 00:08 [ТС]
	alexevt, все, дошло. Просто я непонял что имелли ввиду под словом "соседние". А вот еще такой вопрос: как просмотреть, открыть оба созданных файла ? Мы создаем этой прогой фал tstfp.dat и tstgp.dat. Как их открыть и просмотреть, записаны ли туда данные... Я пробовал открыть и в блокноте, но там иероглифы(юникод, не анси ) 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	23.01.2010, 09:02
	Надо было создавать их не как .dat, а как .txt, проблем не было бы, а паскалю всё равно 0

@SERGEY199100 204 / 20 / 1 Регистрация: 29.10.2009 Сообщений: 430
	23.01.2010, 11:52 [ТС]
	alexevt, если бы, Мы создавали и, txt и, doc. Результат при открытии этих файлов- иероглифы а не цифры. Надо что то делать с кодеровкой... 0

@Страдалецъ Тимуровец 445 / 285 / 50 Регистрация: 10.09.2009 Сообщений: 963
	23.01.2010, 12:41
	Ничего с кодировкой делать не надо. Так и должно быть. Вы сохраняете число в файл так как оно у вас описано (integer) при этом число хранится в файле как набор байт. Попытка посмотреть текстовым редактором будет давать крякозябы. Если у вас есть настойчивое желание иметь в фале именно текстовое представление числа, то всю программу придется переделывать. Оно вам надо? 0

@SERGEY199100 204 / 20 / 1 Регистрация: 29.10.2009 Сообщений: 430
	23.01.2010, 20:24 [ТС]
	Страдалецъ, спасибо за разьяснение ) Оно мне не надо, меня и так устраивает что она работает- это все препод хочет, но я ему разьясню что к чему теперь )()) Добавлено через 5 часов 43 минуты А как приблизительно будет выглядеть блок-схема для такой работы ? 0