Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Sarvin
2 / 2 / 2
Регистрация: 21.01.2011
Сообщений: 69
#1

файлы - Pascal ABC

12.04.2011, 20:26. Просмотров 201. Ответов 0
Метки нет (Все метки)

подскажите что не так во второй проге, (первая создает фай. ) пишу на абц паскаль.
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
{uses crt;
var fv:file of integer;
    v,i:integer; n:byte;
begin
clrscr;
     assign(fv,'lol.dat'); rewrite(fv);
     readln(n);
     for i:=1 to n do
     begin
          v:=random(11);write(fv,v);write(' ',v)
     end;
     close(fv);
end.}
program lol;
const k=100;
var fv:file of integer;
v,t,i,n:integer;mas:array [1..k] of integer;
begin
     assign(fv,'lol.dat');reset(fv);
     n:=filesize(fv);
     writeln;
     for i :=1 to n do
     begin
          read(fv,v); mas[i]:=v;
     end;
     n:=n+1;
     rewrite(fv);
     for i:=1 to n do
           begin
                write(fv,mas[i]);write(fv,mas[n-i]);
           end;
     close(fv);
     
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.04.2011, 20:26
Я подобрал для вас темы с готовыми решениями и ответами на вопрос файлы (Pascal ABC):

Текстовые файлы. Создать новый файл, объединив исходные файлы - Pascal ABC
даны текстовые файлы Name1 и Name2 .создать Name3 файл объединив Name1 и Name2 текстовые файлы

Файлы. Создать символьные файлы и определить количество одинаковых слов, входящих в оба файла - Pascal ABC
Создать символьные файлы F и G и определить количество одинаковых слов входящих в оба файла

файлы - Pascal
Помогите пожалуйста решить задачу.Решаю уже 3 недели и не могу решить. Дана матрица А(N,M)(N<=10,M<=15), получить файл f, записывая в...

файлы - Pascal
надо позарез""" Прямо сейчас!!!!!!!!!! Дано два файла g1 и g2, содержащих действительные числа. Переписать с сохранением порядка...

Файлы - Pascal
Дан файл f, содержащий сведения о веществах: указывается название вещества, его удельный вес и проводимость (проводник, полупроводник,...

Файлы - Pascal
Пожалуйста помогите с решением задачи, очень срочно!!!! желательно в ближайшее время, я на паре!!! Если наименьший элемент массива L(6)...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.04.2011, 20:26
Привет! Вот еще темы с ответами:

Файлы. - Pascal
"Дан файл f, содержащий сведения о веществах: указывается название вещества(можно ввести что угодно, даже левые слова), его удельный вес...

Файлы. - Pascal
дополнение каждой сроки заданым символом таким образом, чтобы ее длина стала кратной заданому числу

Файлы - Pascal ABC
Задача:

файлы - Pascal
Не подскажете где ошибка? program files; const nmax=10; mmax=15; type tmatr=array of...


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

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

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