5 / 5 / 0
Регистрация: 07.06.2012
Сообщений: 135
1

Переписать однозначные числа из одного файла в другой

30.11.2012, 10:52. Показов 1867. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Попросили помощи, но я не силен в паскале, увы. Прошу у Вас, форумчане. Нужно из одного файла переписать однозначные числа в другой. Помогите исправить.

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
program pr4_1_7;
 
uses crt;
var f,g:text;
k,n,i,j:integer;
m,a:array[1..100] of integer;
begin
  clrscr;
  randomize;
  assign(f,'Ff.txt');
  reset(f);
  assign(g,'G3.txt');
  rewrite(g);
  k:=0;
 
  for i:=1 to 100 do
    readln(F,m[i]);
   for j:=1 to 9 do if m[j] mod 10 = 0 then
   begin
        writeln('m ',m[j]);
    k:=k+1;
    a[k]:=m[j];
    writeln('a ',a[k]);
   end;
 
   for i:=1 to k-1 do
   for j:=i+1 to k do
   if a[i]<a[j] then
    begin
      n:=a[i];
      a[i]:=a[j];
      a[j]:=n;
    end;
     for i:=1 to k do writeln(g,a[i]);
    close(f);
    close(g);
end.
Добавлено через 57 минут
В общем я разобрался и переписал. Только возник еще один вопрос. Паскаль заносит в файл не цифры а левые символы. В чем проблема?
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.11.2012, 10:52
Ответы с готовыми решениями:

Переписать числа из одного файла в другой по формуле
Создать и заполнить файл f1 числами. Переписать числа файла f1 в f2 по формуле F2n=F1n- F1m, где...

Переписать неповторяющиеся числа из одного файла в другой
Ребят, в первый раз столкнулся с типизированными файлами(да и вообще опыта мало). подскажите...

Подсчитать строки, переписать их из одного файла в другой
Здравствуйте! Дан текстовый файл, в нем записаны строки. Длина каждой строки не превышает 255...

Переписать числа из одного файла в другой в заданном порядке
Всем привет! В очередной раз прошу у вас помощи, друзья: Дан файл f, компоненты которого...

3
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
30.11.2012, 12:15 2
Цитата Сообщение от ashvinZL0 Посмотреть сообщение
Нужно из одного файла переписать однозначные числа в другой.
Делаешь примерно такой файл
12 8 25 36 9
2 4 58 125 6
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var f,g:text;
    a:integer;
begin
assign(f,'F3.txt');
reset(f);
assign(g,'G3.txt');
rewrite(g);
while not eof(f) do
 begin
  read(f,a);
  if a in [0..9] then write(g,' ',a);
 end;
close(f);
close(g);
end.
1
5 / 5 / 0
Регистрация: 07.06.2012
Сообщений: 135
30.11.2012, 12:21  [ТС] 3
Спасибо, все верно. Но меня все таки мучает вопрос. Почему паскаль в некоторых случаях записывает в файл не цифры а символы?
0
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
30.11.2012, 12:23 4
Не знаю что ты пишешь. Что пишешь, то и записывает, только вместо русских букв крякозябры, поскольку в Турбо кодировка другая.
0
30.11.2012, 12:23
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.11.2012, 12:23
Помогаю со студенческими работами здесь

Переписать все числа из одного файла в другой файл в порядке возрастания
В файле записаны несколько чисел.Напишите программу,которая запишет все числа в другой файл в...

Из одного файла переписать в другой заданные элементы
Здравствуйте, необходимо составить программу

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

Очередь: переписать содержимое одного файла в другой, перенося знаки препинания в конец строки
1. Пусть дан текстовый файл А. Перепишите его содержимое в файл В, перенося при этом в конец каждой...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru