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

файлы

12.04.2011, 20:26. Просмотров 207. Ответов 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
Ответы с готовыми решениями:

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

Выяснить лежат ли точки на одной прямой. Типизированный файлы(тип запись и файлы)
Помогите,пожалуйста!!!.Как сделать проргармму через файлы и записи? Вычисление...

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

файлы
Не подскажете где ошибка? program files; const nmax=10; ...

ФАЙЛЫ
Если не трудно напишите пожалуйста любую программу с заданием к ней по файлам

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

файлы
имеется файл,который состоит из ФИО, 5 зачетов, 5 оценок. получить новый...

файлы
в общем есть текстовый файл, в нем 10 слов, как эти слова можно записать в...

Файлы
Задача:


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

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

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