IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> записи, записи в паскале
_Hanter_
сообщение 3.11.2011 15:39
Сообщение #1





Группа: Пользователи
Сообщений: 9
Пол: Мужской

Репутация: -  0  +


Заданий файл цілих чисел. Створити новий файл, який створює групи однакових чисел, якщо такі є.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
Rian
сообщение 14.11.2011 9:35
Сообщение #2


Знаток
****

Группа: Пользователи
Сообщений: 394
Пол: Мужской

Репутация: -  9  +


да... finereader подвел??
var f:file of real; 
a:array [1..100] of real;
x: real;
c:char;
k,l,i:byte;
begin
assign(f,'f.dat');
rewrite(f);

repeat
writeln('vvedite chislo');
readln(x);
write(f,x);
writeln('enter 0 to repeat, else 1');
readln ©;
until c='0';


reset(f);i:=0;
while not eof(f) do
begin
inc(i);
read(f,a[i]);
end;

for k:=1 to i-1 do
for l:=k+1 to i do
if a[k]>a[l] then
begin
x:=a[k];
a[k]:=a[l];
a[l]:=x;
end;

rewrite(f);

for k:=1 to i do
write(f,a[k]);
reset(f);

while not eof(f) do
begin
read(f,x);
writeln(x);
end;
end.


--------------------
Objective-C, Unity3d
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 28.07.2025 3:15
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"