Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
snake0996
2 / 2 / 2
Регистрация: 13.04.2014
Сообщений: 31
#1

Сформировать файл, содержащий натуральные числа - Free Pascal

07.11.2015, 12:04. Просмотров 223. Ответов 1
Метки нет (Все метки)

Сформировать файл,содержащий натуральные числа.Дописать в файл после каждого нечетного числа сумму его цифр
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.11.2015, 12:04
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Сформировать файл, содержащий натуральные числа (Free Pascal):

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

Файл содержит числа, количество вводится с клавиатуры. Создать второй файл, содержащий квадраты этих чисел в обратном порядке
Задача : Файл содержит числа, количество вводится с клавиатуры. Создать второй...

Сформировать файл, содержащий информацию о 10 автолюбителей
13.12. Сформировать файл, содержащий информацию о 10 автолюбителей: фамилия,...

Сформировать файл, содержащий информацию о Н студентов
сформировать файл, содержащий информацию о Н студентов (фамилия, имя, дата...

Сформировать файл, содержащий список N наименований товаров
Сформировать файл,содержащий список N наименований товаров, содержащий...

даны натуральные числа m и n, получить все натуральные числа меньшие n, квадрат суммы которых равен m
даны натуральные числа m и n, получить все натуральные числа меньшие n, квадрат...

1
vint-81
охотник
1009 / 533 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
07.11.2015, 14:43 #2
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

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
uses crt;
const n=10;
var a,a1,i,j,endf:integer;
    f:file of integer;
function sc(x:integer):integer;
var s:integer;
begin
 s:=0;
 while x>0 do
  begin
   s:=s+x mod 10;
   x:=x div 10
  end;
 sc:=s
end;
begin
 clrscr;
 randomize;
 assign(f,'chisla.dat');
 rewrite(f);
 for i:=1 to n do write(f,random(1001));
 close(f);
 reset(f);
 writeln('сформированный файл:');
 for i:=1 to filesize(f)do begin read(f,a);write(a,' ') end;
 writeln;
 endf:=filesize(f);
 i:=0;
 while i<endf do
  begin
   seek(f,i);
   read(f,a);
   if odd(a)
    then
     begin
      j:=filesize(f);
      while j>i do
       begin
        seek(f,j-1);
        read(f,a1);
        seek(f,j);
        write(f,a1);
        dec(j);
       end;
      inc(i);inc(endf);
      seek(f,i);
      write(f,sc(a))
     end;
     inc(i)
  end;
 close(f);
 reset(f);
 writeln('результат:');
 for i:=1 to filesize(f) do begin read(f,a);write(a,' ') end;
 readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.11.2015, 14:43
Привет! Вот еще темы с решениями:

Текстовый файл содержит список фамилий и должность сотрудников. Сформировать текстовый файл, содержащий фамил
Текстовый файл содержит список фамилий и должность сотрудников. Сформировать...

Из элементов введенного массива сформировать новый массив, содержащий положительные числа
Написать программу ввода массива целых чисел из текстового файла. Файл содержит...

текстовый файл, содержащий целые числа
Дан текстовый файл, содержащий целые числа. Найти разность между максимальным...

Создать новый файл, содержащий только отрицательные числа.
Дан текстовый файл целых чисел. Создать новый файл, содержащий только...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru