Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.53/40: Рейтинг темы: голосов - 40, средняя оценка - 4.53
0 / 0 / 0
Регистрация: 17.03.2009
Сообщений: 6

Чтение массива из файла

17.03.2009, 14:58. Показов 7916. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
На плоскости задано десять точек. Найдите квадрат максимальной площади с вершинами в заданных точках. Программа должна считать выходые данные из файла input.txt и вывести результат в файл output.txt
Формат входного файла.

Входной файл содержит 10 строк. В каждой строке записано по два числа — координаты точек. Все координаты целые и не превышают по модулю 100.
Формат выходного файла.

Выведите в выходной файл одно число: площадь найденного квадрата. Если таких квадратов нет, выведите число -1.

Пример
input.txt Output
0 0 ....
3 0
10 0
0 3
3 3
10 3
0 10
8 8
3 10
10 10
вот, помогите написать такую программу пожалуйста.
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
17.03.2009, 14:58
Ответы с готовыми решениями:

Чтение массива из файла.
Здравствуйте, подскажите алгоритм чтения из текстового файла двумерного массива(матрицы). Причём так, чтобы при считывании элементов из...

Чтение массива из файла
Есть текстовый файл. Выглядит он вот так: 5 3 3 4 5 7 1 2 3 8 9 Нужно прочитать массив из 3 строки. Из 2-ой у меня получается: ...

Запись - чтение двумерного массива в файл - из файла
Ребят, помогите пожалуйста к задаче https://www.cyberforum.ru/pascal/thread100714.html написать две процедуры записи массива в файл...

2
Почетный модератор
 Аватар для Puporev
64319 / 47615 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
17.03.2009, 14:58
Лучший ответ Сообщение было отмечено Husl как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
var f:text;
    i,j,a:byte;
begin
clrscr;
assign(f,'file1.txt');
reset(f);
while not eof(f) do
  begin
    for i:=1 to 2 do
      begin
        read(f,a);
        write(a,' ');
      end;
    writeln;
  end;
readln
end.
0
0 / 0 / 0
Регистрация: 17.03.2009
Сообщений: 6
17.03.2009, 15:06  [ТС]
я изменил первое сообщение
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
17.03.2009, 15:06
Помогаю со студенческими работами здесь

Как осуществлять чтение массива из текстового файла?
подскажите

Чтение массива из файла
Одномерный массив считывается из файла исходных данных in.txt, а затем без изменений записывается в файл результатов out.txt . Конкретно...

Чтение текстового файла и заполнение массива символами из него
Добра всем! Такая проблема возникла , так как не силен в Паскале: Есть текстовый файл ,который заполнен текстом следующим образом - ...

Чтение из файла массива.
Я никак не могу написать программу для чтения с файла строк и записывания их в массив типа "string". Turbo Pascal 7.0. И...

Чтение одномерного массива из текстового файла
В текстовом файле file3.txt находится последовательность целых чисел в виде одномерного массива. Как считать этот массив из файла, чтобы...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Мысли в слух. Про "навсегда".
kumehtar 16.04.2026
Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .
My Business CRM
MaGz GoLd 16.04.2026
Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .
Знаешь почему 90% людей редко бывают счастливыми?
kumehtar 14.04.2026
Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД
Maks 14.04.2026
Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code
Loafer 13.04.2026
{ "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
Оптимизация кода на разграничение прав доступа к элементам формы
Maks 13.04.2026
Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений
Maks 12.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .
Архитектура слоя интернета для сервера-слоя.
Hrethgir 11.04.2026
В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru