Создать файл

@Евген) · Регистрация: 30.11.2009

Author24 — интернет-сервис помощи студентам

Помогите, не знаю как делать(((
Создать файл чисел, вывести его и проверить отсортирован он или нет.

@AnTro.Net · 24.06.2010, 18:50

числа в файл можно записывать в одну строку?

@Хохол · 24.06.2010, 18:52

AnTro.Net, файл чисел - типизированный наверно.

@Евген) · 24.06.2010, 18:54 **[ТС]**

Все равно)

Добавлено через 1 минуту
Ну по идеи file of integer.

@AnTro.Net · 24.06.2010, 18:59

https://www.cyberforum.ru/pascal/thread123662.html должно помочь

@Евген) · 24.06.2010, 19:16 **[ТС]**

А с сортировкой как?

Добавлено через 10 минут

Pascal

program ForFour;
uses crt;
var file1:file of integer;
    n,i,num:integer;
 
begin
 
    writeln('Ââåäèòå êîë-âî ÷èñåë:'); readln(n);
    writeln('Ââåäèòå ',n,' öåëûõ ÷èñåë:');
    assign(file1,'file7_1_1');
    rewrite(file1);
    for i:=1 to n do
    begin
         read(num);
         write(file1,num);
    end;
    close(file1);
     clrscr;
    reset(file1);
    write('Ñîäåðæèìîå ôàéëà:');
    while not eof(file1) do
    begin
    read(file1,num);
    write(num,' ');
    end;
    close(file1);
end.

@AnTro.Net · 24.06.2010, 19:17

тебе нужно просто проверить является ли он отсортированный, тогда пишешь просто:
for i:=1 to n do
if a[i]<a[i+1] then writeln('отсортированн') else writeln('нет');

@Евген) · 24.06.2010, 19:32 **[ТС]**

Спасибо!!!

Добавлено через 2 минуты
Стоп, этож не массив а файл!

Добавлено через 9 минут
AnTro.Net, А можно по подробнее на счет a[i] a[i+1] в файле?

@AnTro.Net · 24.06.2010, 19:40

смотри ты должен считывать в масив
там идет считывание в просто переменную

@Евген) · 24.06.2010, 19:45 **[ТС]**

Все спасибо

@Евген) 1 / 1 / 1 Регистрация: 30.11.2009 Сообщений: 28
		1
	Создать файл 24.06.2010, 17:49. Показов 816. Ответов 9 Метки нет (Все метки) Помогите, не знаю как делать((( Создать файл чисел, вывести его и проверить отсортирован он или нет. 0

@AnTro.Net 131 / 127 / 50 Регистрация: 28.04.2010 Сообщений: 928
	24.06.2010, 18:50	2
	числа в файл можно записывать в одну строку? 1

@Хохол 476 / 444 / 34 Регистрация: 20.11.2009 Сообщений: 1,293
	24.06.2010, 18:52	3
	AnTro.Net, файл чисел - типизированный наверно. 0

@Евген) 1 / 1 / 1 Регистрация: 30.11.2009 Сообщений: 28
	24.06.2010, 18:54 [ТС]	4
	Все равно) Добавлено через 1 минуту Ну по идеи file of integer. 0

@AnTro.Net 131 / 127 / 50 Регистрация: 28.04.2010 Сообщений: 928
	24.06.2010, 18:59	5
	https://www.cyberforum.ru/pascal/thread123662.html должно помочь 1

@AnTro.Net 131 / 127 / 50 Регистрация: 28.04.2010 Сообщений: 928
	24.06.2010, 19:17	7
	тебе нужно просто проверить является ли он отсортированный, тогда пишешь просто: for i:=1 to n do if a[i]<a[i+1] then writeln('отсортированн') else writeln('нет'); 1

@Евген) 1 / 1 / 1 Регистрация: 30.11.2009 Сообщений: 28
	24.06.2010, 19:32 [ТС]	8
	Спасибо!!! Добавлено через 2 минуты Стоп, этож не массив а файл! Добавлено через 9 минут AnTro.Net, А можно по подробнее на счет a[i] a[i+1] в файле? 0

@AnTro.Net 131 / 127 / 50 Регистрация: 28.04.2010 Сообщений: 928
	24.06.2010, 19:40	9
	смотри ты должен считывать в масив там идет считывание в просто переменную 0

@Евген) 1 / 1 / 1 Регистрация: 30.11.2009 Сообщений: 28
	24.06.2010, 19:45 [ТС]	10
	Все спасибо 0