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

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

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

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



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

Код:
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 в 13:40.
vlad0079 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите , пожалуйста , вывести в файл. vlad0079 Паскаль 2 11.05.2015 21:55
Помогите, пожалуйста. Используя классы, Вывести порядковый номер. Катерины Помощь студентам 1 30.09.2014 09:07
Помогите вывести массив в файл In.kheller Общие вопросы C/C++ 1 19.05.2014 01:01
Пожалуйста, помогите записать в файл... tirael666 Assembler 6 21.12.2009 22:06


07:07.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.