Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
ivan748
0 / 0 / 0
Регистрация: 11.06.2014
Сообщений: 3
#1

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

11.06.2014, 10:54. Просмотров 328. Ответов 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
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Записать в файл F2 информацию о всех кругах файла F1, целиком лежащих в максимальном найденном круге (Turbo Pascal):

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

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

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

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

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

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

1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3642 / 2629 / 1796
Регистрация: 05.06.2014
Сообщений: 12,550
11.06.2014, 14:27 #2
Записать в файл F2 информацию о всех кругах файла F1, целиком лежащих в максимальном найденном круге
Создать файл F1, содержащий записи о параметрах заданного числа кругов
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.06.2014, 14:27
Привет! Вот еще темы с ответами:

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

Как записать/считать файл в БД целиком (MS SQL 7.0, ADO 2.5) - Visual Basic
Проблемма: Хочу записать Вордовый документ в поле БД на MS SQL. И потом естесственно считать его. Проблем с самим механизмом...

Сохранение структуры. Можно ли структуру записать целиком в файл? - C (СИ)
давно интересует такой вопрос: можно ли сразу записать структуру целиком в файл? т.е. fwrite(struct, sizeof(struct), 1, fp)? или если нет...

В первый файл записать информацию о жильцах дома, во второй - информацию о квартирах - Pascal ABC
Здравствуйте! Помогите пожалуйста. найти ошибку в программе! Необходимо написать два файла, в первый информацию о жильца дома( фио,номер...


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

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

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