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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 29.09.2008, 13:06   #1
Кома
 
Регистрация: 29.09.2008
Сообщений: 3
По умолчанию КОНТРОЛЬНАЯ в ТУРБО ПАСКАЛЕ

помогите пожалуйста с контрольной
Вложения
Тип файла: doc задание 3.doc (22.0 Кб, 20 просмотров)
Кома вне форума Ответить с цитированием
Старый 29.09.2008, 14:21   #2
eoln
Старожил
 
Аватар для eoln
 
Регистрация: 26.04.2008
Сообщений: 2,689
По умолчанию

Какие файлы-то? Текстовые, типизированные... ?
Код:
var
  t: text;{тип файла}
  h: string;
  e, el: real;
  i: integer;
function element(i: integer): real;
begin
  element := (i-0.1) / ( exp(3*ln(i))+abs( sin(2*i)/cos(2*i) ) )
  {тут i в радианах, а не в градусах}
end;
begin
  write('e = '); readln(e);
  write('file name = '); readln(h);
  assign(t, h);
  rewrite(t);
  i := 1;
  repeat
    el := element(i);
    writeln(t, el:0:8);
    inc(i)
  until abs(el)<e;
  close(t);
  writeln('see file ', h);
  readln
end.
eoln вне форума Ответить с цитированием
Старый 29.09.2008, 14:38   #3
Rusl92
Форумчанин
 
Аватар для Rusl92
 
Регистрация: 30.03.2008
Сообщений: 392
По умолчанию

uses crt;
var i,k:integer;
e:real;
x:array[1..1000] of real;
h:text;
begin
clrscr;
readln(e);
i:=0;
repeat
i:=i+1;
x[i]:=((i-0.1)/(i*i*i+abs(sin(2*i)/cos(2*i))));

until (abs(x[i]) >= e);
assign(h,'h.txt');
rewrite(h);
for k:=1 to i do
write(h,x[k]:3:2,' ');
readln;
close(h);
end.
Программирование - это великое искусство... Такое же как например и живопись!
Rusl92 вне форума Ответить с цитированием
Старый 29.09.2008, 14:42   #4
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

Цитата:
e, el: real;
i: integer;
При малом e типы real и integer не потянут. i^3 будет быстро расти, а точность real может неверно выдать последнее значение.
Лучше extended и longint.
puporev вне форума Ответить с цитированием
Старый 29.09.2008, 14:45   #5
Rusl92
Форумчанин
 
Аватар для Rusl92
 
Регистрация: 30.03.2008
Сообщений: 392
По умолчанию

ses crt;
var i:integer;
e,k:extended;
h:text;
begin
clrscr;
readln(e);
i:=0;
assign(h,'h.txt');
rewrite(h);
repeat
inc(i);
k:=((i-0.1)/(i*i*i+abs(sin(2*i)/cos(2*i))));
write(h,k:3:2,' ')
until (abs(x[i]) >= e);
readln;
close(h);
end.
Получается вроде так!
Массивами не нужно пользоваться!
Программирование - это великое искусство... Такое же как например и живопись!
Rusl92 вне форума Ответить с цитированием
Старый 29.09.2008, 15:26   #6
Кома
 
Регистрация: 29.09.2008
Сообщений: 3
По умолчанию

спасибо вам большое,хотелось бы еще и блок схему увидеть.и вообще нафига этот паскаль нужен будущему менеджеру?
Кома вне форума Ответить с цитированием
Старый 29.09.2008, 15:46   #7
eoln
Старожил
 
Аватар для eoln
 
Регистрация: 26.04.2008
Сообщений: 2,689
По умолчанию

Это как рисовать (3-ий пост) http://programmersforum.ru/showthread.php?t=26840
Я вот тоже в первом классе думал "А на фига мне математика (география и т.п.) эта...", оказалось пригодилась.
eoln вне форума Ответить с цитированием
Старый 30.09.2008, 01:14   #8
Кома
 
Регистрация: 29.09.2008
Сообщений: 3
По умолчанию

да я же не собираюсь быть программистом, математику я ,кстати, всегда хорошо знала,мой любимый предмет
Кома вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Контрольная работа на Delphi Desc Фриланс 2 23.04.2008 15:34
Задача на турбо Паскале microSD Помощь студентам 2 10.04.2008 12:01
Турбо Паскаль Jondeer Помощь студентам 5 27.10.2007 17:19
контрольная сумма мандарин Помощь студентам 3 03.06.2007 19:35