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

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

11.06.2014, 10:56. Просмотров 277. Ответов 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);
a:=
writeln('');
k := k + 1;
write(f,);
end;
close(f);
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.06.2014, 10:56
Ответы с готовыми решениями:

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

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

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

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

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

1
Puporev
Модератор
55401 / 42537 / 29390
Регистрация: 18.05.2008
Сообщений: 100,603
11.06.2014, 12:24 2
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
program practice;
type krug=record
         x,y,r:real;
         end;
var f1,f2: file of krug;
    z,zmx:krug;
    n,i,imx,k: integer;
    mx:real;
begin
randomize;
assign (f1, 'input');
rewrite(f1);
write('Введите число кругов:');
readln(N);
for i := 1 to N do
 begin
  z.x:=10.1*random;
  z.y:=10.1*random;
  z.r:=5*random;
  write(f1,z)
 end;
writeln('Содержание файла F1');
seek(f1,0);
mx:=0;
while not eof(f1) do
 begin
  read(f1,z);
  write('(',z.x:5:2,',',z.y:5:2,',',z.r:5:2,') ');
  if pi*sqr(z.r)>mx then
   begin
    mx:=pi*sqr(z.r);
    zmx:=z
   end;
 end;
writeln;
writeln('Самый большой круг (',zmx.x:5:2,',',zmx.y:5:2,',',zmx.r:5:2,') его площадь=',mx:0:2);
assign(f2,'output');
rewrite(f2);
seek(f1,0);
k:=0;
while not eof(f1) do
 begin
  read(f1,z);
  if sqrt(sqr(z.x-zmx.x)+sqr(z.y-zmx.y))<zmx.r-z.r then
   begin
    k:=1;
    write(f2,z);
   end;
 end;
close(f1);
if k=0 then write('Нет кругов, полностью лежащих в самом большом круге')
else
 begin
  writeln('Содержание файла F2');
  seek(f2,0);
  while not eof(f2) do
   begin
    read(f2,z);
    write('(',z.x:5:2,',',z.y:5:2,',',z.r:5:2,') ');
   end;
 end;
close(f2)
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.06.2014, 12:24

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

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

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


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

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

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