Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/13: Рейтинг темы: голосов - 13, средняя оценка - 5.00
Металлистка
2 / 2 / 0
Регистрация: 30.03.2010
Сообщений: 15
1

Табуляция функции, ASCII коды

10.05.2010, 21:25. Просмотров 2318. Ответов 2
Метки нет (Все метки)

Помогите пожалуйста, не получается написать программу:

В таблице представлены варианты, включающие исходные данные для табуляции: F(x) - табулируемая функция; [A,B] - диапазон изменения аргумента; n - количество точек; h - шаг табуляции. Результатом является таблица, содержащая три столбца: i - текущая точка расчета; Xi - значение аргумента; Yi - значение функции.

(х*соs(x))^1/3; A=0, B=10, n - неизвестно, h=0.5

И таблица, которая должна быть выведена в результате должна быть "нарисована" с помощью ASCII кодов
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.05.2010, 21:25
Ответы с готовыми решениями:

Коды таблицы ASCII
Составить программу, которая запрашивает с клавиатуры и выводит коды этих...

ASCII коды в Паскале
КАк мне в Паскаль вставить ASCII код?? Мне нужно красиво оформить таблицу с...

Программа, переводящая текстовый файл в коды ASCII - не всегда работает
Программа переводящая текстовый файл в коды ASCII. обычно работает, но когда...

Записать в новый файл соотвествующие символам ASCII коды исходного
задан файл,содержащий произвольное кол-во строк,записать в новый файл...

Дан символьный массив А. Получить целочисленный массив В, элементы которого имеют коды ASCII элементов A
через процедуры, ascii код Дан символьный массив А, состоящий из 8 элементов....

2
Puporev
Модератор
54704 / 42115 / 29080
Регистрация: 18.05.2008
Сообщений: 99,402
10.05.2010, 22:14 2
Лучший ответ Сообщение было отмечено Металлистка как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
uses crt;
{подписи в шапке}
const m:array[1..3] of string[2]=('I','Xi','Yi');
      th=0.0001;{точность попадания в целый интервал}
var i,j,n:byte;
    x,y,h:real;
begin
clrscr;
{рисование шапки таблицы}
{верхняя рамка}
write(#201);
for i:=1 to 3 do{количество колонок}
 begin
  for j:=1 to 8 do write(#205);{ширина колонок}
  if i<3 then write(#209)else write(#187);
 end;
writeln;
write(#186);
{середина}
for i:=1 to 3 do
 begin
  for j:=1 to 8 do write(' ');
  if i<3 then write(#179)else write(#186);
 end;
writeln;
{подписи в шапке}
gotoXY(1,whereY-1);
for i:=1 to 3 do
 begin
  gotoXY(8*(i-1)+8 div 2+i+1,whereY);
  write(m[i]);
 end;
{нижняя рамка}
gotoXY(1,whereY+1);
write(#199);
for i:=1 to 3 do
 begin
  for j:=1 to 8 do write(#196);
  if i<3 then write(#179)else write(#182);
 end;
writeln;
{табулирование функции}
h:=0.5;
i:=0;
x:=0;{начало интервала}
while x<=10+th do{пока не конец}
 begin
  i:=i+1;{считаем}
  if x*cos(x)<0 then y:=-exp(ln(abs(x*cos(x)))/3)
{если под лагорифмом отрицательное}
  else if x*cos(x)=0 then y:=0{если ноль}
  else y:=exp(ln(x*cos(x))/3);{если положительное}
  writeln(#186,i:7,' ',#179,x:7:1,' ',#179,y:7:3,' ',#186);{выводим в таблицу}
  x:=x+h;{наращиваем х}
 end;
{рисуем нижнюю границу таблицы}
write(#200);
for i:=1 to 3 do
 begin
  for j:=1 to 8 do write(#205);
  if i<3 then write(#207)else write(#188);
 end;
readln
end.
Добавлено через 1 минуту
Символы псевдографики посмотрите в этой теме
Справочные материалы
0
Металлистка
2 / 2 / 0
Регистрация: 30.03.2010
Сообщений: 15
10.05.2010, 22:26  [ТС] 3
Большое спасибо!!!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.05.2010, 22:26

Табуляция функции
Помогите пожалуйста, совсем в этом не разбираюсь((:-| F(x) - табулируемая...

Табуляция функции
написать программу вычисления функции F(x) на отрезке с шагом 0,25. Результат...

Табуляция функции
Функция ////Интервал x(тут значок принадлежит); количество точек n=10....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru