Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 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 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


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