Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
4ch
19 / 19 / 0
Регистрация: 24.10.2012
Сообщений: 72
1

Операции с файлами: Выбрать параллелограммы, которые являются прямоугольниками, и записать в файл таблицу

12.12.2012, 16:40. Просмотров 477. Ответов 6
Метки нет (Все метки)

Всем доброго времени суток. Буду благодарен всем, кто поможет

Суть задания:

В текстовом файле содержатся длины сторон и углы между ними для 18 параллелограммов. Выбрать параллелограммы, которые являются прямоугольниками, и записать в файл таблицу, содержащую следующую информацию: длина первой стороны прямоугольника, длина второй стороны прямоугольника, периметр прямоугольника, площадь прямоугольника. Позаботьтесь о соответствующих заголовках для колонок. Файл с исходными данными сформируйте при помощи текстового редактора.
1
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.12.2012, 16:40
Ответы с готовыми решениями:

Дано файл f, компоненты которого являются натуральные. Записать в файл g все компоненты файла f, которые являются полными квадратами.
Помогите решить буду очень благодарен. Задание 1. Дано файл f, компоненты...

Операции с файлами. Записать в новый файл максимум каждой группы из 10 компонентов
Дан файл f, компоненты которого являются целыми числами. Записать в файл g...

Записать в файл G все компоненты файла F, которые являются нечетными числами
И ещо раз Здраствуйте помогите ещо такую решить задачку) Цель: Изучение...

Дан файл, содержащий текст. Выбрать из него слова, которые заканчиваются на букву определенную пользователем, и записать их в новый файл
Дан файл, содержащий текст. Выбрать из него слова, которые заканчиваются на...

Операции с файлами. Являются ли два первых компонента файла цифрами, и если да, то четно ли образуемое ими число
Дан символьный файл f. В файле не менее двух компонентов. Определить есть ли...

6
brunis
96 / 93 / 61
Регистрация: 08.08.2012
Сообщений: 163
12.12.2012, 17:08 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var f1,f2:Text;
    a,b,deg:word;
    i:integer;
begin
  assign(f1,'in.txt'); reset(f1);
  assign(f2,'out.txt'); rewrite(f2);
  writeln(f2,'1size,  2size,  P,  S');
  For i:=1 to 18 do begin
    Readln(f1,a,b,deg);
    if deg = 90 then begin
    writeln(f2,a,'   ',b,'   ',2*(a+b),'   ',a*b);
    end;
  End;
  close(f1);
  close(f2);
end.
1
4ch
19 / 19 / 0
Регистрация: 24.10.2012
Сообщений: 72
12.12.2012, 17:19  [ТС] 3
Цитата Сообщение от brunis Посмотреть сообщение
.
А что означает эта ошибка? Возможно после строки 9 writeln(f2...) нужно дописать rewrite(f2); writeln('f2,'a,b'); ?
1
Миниатюры
Операции с файлами: Выбрать параллелограммы, которые являются прямоугольниками, и записать в файл таблицу  
brunis
96 / 93 / 61
Регистрация: 08.08.2012
Сообщений: 163
12.12.2012, 17:41 4
rewrite уже прописан...
У меня почему-то succesful
0
Миниатюры
Операции с файлами: Выбрать параллелограммы, которые являются прямоугольниками, и записать в файл таблицу  
4ch
19 / 19 / 0
Регистрация: 24.10.2012
Сообщений: 72
12.12.2012, 20:07  [ТС] 5
Цитата Сообщение от brunis Посмотреть сообщение
rewrite уже прописан...
У меня почему-то succesful
А Вы не компиляцию сделайте, а запустите программу. Не заметил rewrite, извиняюсь.

Добавлено через 8 минут
Все, извиняюсь. Это были у меня проблемы. Все работает.
1
miziretto
0 / 0 / 0
Регистрация: 30.11.2015
Сообщений: 2
30.11.2015, 13:10 6
А у меня компиляция идет, а не запускается (exitcode2)
0
Puporev
Модератор
55479 / 42580 / 29429
Регистрация: 18.05.2008
Сообщений: 100,735
30.11.2015, 15:16 7
Значит нет файла по указанному пути.
0
30.11.2015, 15:16
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.11.2015, 15:16

Выбрать из точек четыре разные, которые являются вершинами квадрата наибольшего периметра
Задано множество точек на плоскости. Выбрать из низ четыре разные точки,...

Выбрать строки, которые после удаления всех пробелов из них являются палиндромами
Помогите пожалуйста написать программу с использование текстового файла. ...

Дан файл f, компоненты которого являются целыми числами. Записать в файл g наибольшее значение первых пяти
Помогите с задачей. Нужно доработать этот код. Получается нужно чтобы f, g были...


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

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

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