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

Записать в файл F2 информацию о всех кругах файла F1, целиком лежащих в максимальном найденном круге

11.06.2014, 10:54. Просмотров 353. Ответов 1
Метки нет (Все метки)

Создать файл F1, содержащий записи о параметрах заданного числа кругов. Каждая запись файла должна включать случайные координаты центра из интервала [0.0,10.1] и случайный радиус из [0.0,5.0], полученные Random. Записать в файл F2 информацию о всех кругах файла F1, целиком лежащих в максимальном найденном круге.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
program practice;
var
x1, y1, x, y: real;
N, i, k: integer;
f: file of real;
procedure circle(var x1, y1, x, y: real; var i: integer);
begin
Randomize;
x := random(0);
y := random(10);
writeln('Центр окружности O=[', x:1:1, ';', y:1:1, '];');
x1 := random(0);
y1 := random(5);
writeln(' Радиус r=[', x1:1:1, ';', y1:1:1, '].');
end;
begin
assign (f, 'input.txt');
rewrite(f);
write('Введите число кругов:');
readln(N);
k := 1;
for i := 1 to N do
begin
write(k, ')');
circle(x, y, x1, y1, i);
 
writeln('');
k := k + 1;
write(f,);
end;
close(f);
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.06.2014, 10:54
Ответы с готовыми решениями:

Вывести на экран информацию о максимальном элементе в каждой строке файла
Прошу, помогите,пожалуйста, составить программы: 1) Дан текстовый файл,...

Записать в файл F2 информацию о всех кругах файла F1, целиком лежащих в максимальном найденном круге
Создать файл F1, содержащий записи о параметрах заданного числа кругов. Каждая...

Задание по Visual c++ 2013, Нужно создать файл, записать в него информацию, а затем по другой кнопке считать информацию из файла
Вот код записи в файл: { UpdateData(TRUE); F.open(L"dat1.txt",...

Записать в файл KW квадраты всех четных чисел исходного файла, а в файл KB — кубы всех нечетных
Создать файл K,элементы которого являются целыми числами.Записать в файл KW...

Записать всю информацию из файла в другой файл
в файл нужно записывать информацию , которая хранится после чисел -1 -1 55,...

1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4216 / 3064 / 3789
Регистрация: 05.06.2014
Сообщений: 15,397
11.06.2014, 14:27 2
Записать в файл F2 информацию о всех кругах файла F1, целиком лежащих в максимальном найденном круге
Создать файл F1, содержащий записи о параметрах заданного числа кругов
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.06.2014, 14:27

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

Записать в файл информацию о файлах,размер которых меньше размера последнего введенного файла
Записать в файл информацию о файлах,размер которых меньше размера последнего...

Сохранение структуры. Можно ли структуру записать целиком в файл?
давно интересует такой вопрос: можно ли сразу записать структуру целиком в...


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

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

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