|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.09.2008, 13:06 | #1 |
Регистрация: 29.09.2008
Сообщений: 3
|
КОНТРОЛЬНАЯ в ТУРБО ПАСКАЛЕ
помогите пожалуйста с контрольной
|
29.09.2008, 14:21 | #2 |
Старожил
Регистрация: 26.04.2008
Сообщений: 2,645
|
Какие файлы-то? Текстовые, типизированные... ?
Код:
|
29.09.2008, 14:38 | #3 |
Форумчанин
Регистрация: 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.
Программирование - это великое искусство... Такое же как например и живопись!
|
29.09.2008, 14:42 | #4 | |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Цитата:
Лучше extended и longint. |
|
29.09.2008, 14:45 | #5 |
Форумчанин
Регистрация: 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. Получается вроде так! Массивами не нужно пользоваться!
Программирование - это великое искусство... Такое же как например и живопись!
|
29.09.2008, 15:26 | #6 |
Регистрация: 29.09.2008
Сообщений: 3
|
спасибо вам большое,хотелось бы еще и блок схему увидеть.и вообще нафига этот паскаль нужен будущему менеджеру?
|
29.09.2008, 15:46 | #7 |
Старожил
Регистрация: 26.04.2008
Сообщений: 2,645
|
Это как рисовать (3-ий пост) http://programmersforum.ru/showthread.php?t=26840
Я вот тоже в первом классе думал "А на фига мне математика (география и т.п.) эта...", оказалось пригодилась. |
30.09.2008, 01:14 | #8 |
Регистрация: 29.09.2008
Сообщений: 3
|
да я же не собираюсь быть программистом, математику я ,кстати, всегда хорошо знала,мой любимый предмет
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Контрольная работа на 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 |