Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 11.05.2015, 20:58   #1
vlad0079
 
Регистрация: 11.05.2015
Сообщений: 4
Печаль Помогите вывести в файл

В файле должны присутствовать исходные данные и результат.
Буду очень благодарен.



Вот программа:

Код:
uses crt;
type dec=record
x,y:real;
end;
pol=record
r,f:real;
end;
var dc:array[1..100] of dec;
pl:array[1..100] of pol;
n,i:byte;
begin
clrscr;
randomize;
repeat
write('Размер массива до 100 n=');
readln(n);
until n in [1..100];
for i:=1 to n do
begin
dc[i].x:=10*random;
dc[i].y:=10*random;
end;
writeln('Массив координат в декартовой системе:');
write('X:');
for i:=1 to n do
begin
write(dc[i].x:5:2);
pl[i].r:=sqrt(sqr(dc[i].x)+sqr(dc[i].y));
end;
writeln;
write('Y:');
for i:=1 to n do
begin
write(dc[i].y:5:2);
if dc[i].x=0 then
begin
if dc[i].y>0 then pl[i].f:=pi/2;
if dc[i].y<0 then pl[i].f:=-pi/2;
end
else pl[i].f:=arctan(dc[i].y/dc[i].x);
end;
writeln;
writeln;
writeln('Полярные координаты:');
write('R:');
for i:=1 to n do
write(pl[i].r:5:2);
writeln;
write('F:');
for i:=1 to n do
write(pl[i].f:5:2);
writeln;
readln
end.

Последний раз редактировалось vlad0079; 12.05.2015 в 12:40.
vlad0079 вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите , пожалуйста , вывести в файл. vlad0079 Паскаль, Turbo Pascal, PascalABC.NET 2 11.05.2015 20:55
Помогите, пожалуйста. Используя классы, Вывести порядковый номер. Катерины Помощь студентам 1 30.09.2014 08:07
Помогите вывести массив в файл In.kheller Общие вопросы C/C++ 1 19.05.2014 00:01
Пожалуйста, помогите записать в файл... tirael666 Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 6 21.12.2009 21:06


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS