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

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

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

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

http://www.cyberforum.ru/pascal/thread132549.html
Суть задания:

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

Операции с файлами. Записать в новый файл максимум каждой группы из 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 / 5
Регистрация: 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 / 5
Регистрация: 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
Модератор
54129 / 41762 / 28874
Регистрация: 18.05.2008
Сообщений: 98,289
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 были...

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

Операции над файлами. Дан символьный файл f. Добавить в его конец символы е, n, d
Дан символьный файл f. Добавить в его конец символы е, n, d (если это...


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

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

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