Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Necrover
2 / 2 / 0
Регистрация: 03.12.2014
Сообщений: 27
1

Столбы таблицы

10.12.2014, 07:27. Просмотров 827. Ответов 5
Метки нет (Все метки)

На скрине видно, что столбцы таблицы в рядке функций не совпадают с остальными. Не получается выровнять.
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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
program BK202;
uses crt;
const a=2; b=6; n=7; e=2.71;
procedure zline;
var i:integer;
begin
write(#195);
for i:=1 to 14 do
 write(#196);
end;
procedure xrline;
var i:integer;
begin
write(#197);
for i:=1 to 19 do
 write(#196);
end;
procedure nizhlin;
 var i:integer;
 begin
 for i:=1 to 14 do
 write(#196)
 end;
 procedure nizxr;
 var i:integer;
 begin
 write(#193);
 for i:=1 to 19 do
 write(#196)
 end;
 procedure zx;
 var
 i:integer;
 begin
 for i:=1 to 14 do
 write(#196);
 end;
  procedure xz;
 var
 i:integer;
 begin
 for i:=1 to 19 do
 write(#196);
 end;
procedure lineup;
 var i:integer;
 begin
 for i:=1 to 76 do
 write(#196)
 end;
    var
    i:integer; f1, f2, f3, x, h:real;
    begin
    clrscr;
       h:=(b-a)/n;
       write(#218);lineup; write(#191);
       writeln;
       writeln(#179'                               Function                                     '#179);
       write(#195);zx;write(#194);xz;write(#196);write(#194);write(#196);xz;write(#194);xz; write(#180);
       writeln;
       writeln(#179' Arg.X '#179'exp(ln(e)2x)'#179'exp(ln(2)x)+exp(ln(e)(x/2))'#179'exp(ln(2)x)-exp(ln(e)(x/2))'#179);
       for i:=0 to n do
             begin
                  x:=a+i*h;
                  f1:=exp(ln(e)*(2*x));
                  f2:=exp(ln(2)*x)+exp(ln(e)*(x/2));
                  f3:=exp(ln(2)*x)-exp(ln(e)*(x/2));
                  zline;xrline;write(#196);xrline;write(#196); xrline;write(#180);
                  writeln;
                  write(#179,'');
                  write(x:9:4,'');
                  write(#179);
                  write(f1:13:4,'  '#179);
                  write(f2:14:4,'         ');
                  write(#179);
                  writeln(f3:13:4,'             '#179);
              end;
              write(#195);nizhlin;nizxr;write(#196);nizxr;write(#196);nizxr;write(#180);
              writeln;
              write(#179'                                                                            '#179);
              writeln;
              write(#192);lineup;write(#217);
              readln;
end.
0
Миниатюры
Столбы таблицы  
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.12.2014, 07:27
Ответы с готовыми решениями:

Столбы(олимпиадная)
Доброе время суток. Даны текстовые файлы допустим u1.txt и u1.rez.txt. В файле...

Проверить, что все столбы матрицы имеют положительную сумму
Люди помагиет умоляю завтра сдавать! Задачи: 1)Проверить, что все столбы...

даны две таблицы, создать третею где каждый элемент равен сумме соответсвующих элементов 1-ой и 2-ой таблицы?
даны две таблицы, создать третею где каждый элемент равен сумме соответсвующих...

Слейте две линейные таблицы A и B в новую таблицу C, поставив элементы таблицы A на нечетные места, а элементы таблицы B – на четные
Помогите пожалуйста с решением. Слейте две линейные таблицы A и B в новую...

В заданной строке таблицы найти такое значение, которое принадлежит наибольшему количеству столбцов таблицы
Мне нужно было написать программу, которая использует двумерный динамический...

5
Necrover
2 / 2 / 0
Регистрация: 03.12.2014
Сообщений: 27
12.12.2014, 04:51  [ТС] 2
Проблема актуальна.
0
Puporev
Модератор
54733 / 42134 / 29092
Регистрация: 18.05.2008
Сообщений: 99,455
12.12.2014, 10:50 3
Лучший ответ Сообщение было отмечено Necrover как решение

Решение

Так зачем такие длинные названия функций пишете в шапке таблицы? Или придумайте как сократить или обознчте f1,f2.... чтобы названия не превышали ширину столбцов.

Добавлено через 6 минут
Функция exp(ln(e)2x) это видимо e^2x
плохо нет задания, думаю написание функций можно значительно сократить.

Добавлено через 1 час 23 минуты
Вот например так поправил программу. Значения немного отличаются, поскольку константа е не равна 2.71, а примерно 2,7182818284590452353602874713527… и Паскаль знает это число.
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
65
66
67
68
69
70
71
72
73
74
75
76
program BK202;
uses crt;
const a=2; b=6; n=7;
procedure zline;
var i:integer;
begin
write(#195);
for i:=1 to 14 do
 write(#196);
end;
procedure xrline;
var i:integer;
begin
write(#197);
for i:=1 to 19 do
 write(#196);
end;
procedure nizhlin;
 var i:integer;
 begin
 for i:=1 to 14 do
 write(#196)
 end;
 procedure nizxr;
 var i:integer;
 begin
 write(#193);
 for i:=1 to 19 do
 write(#196)
 end;
 procedure zx;
 var
 i:integer;
 begin
 for i:=1 to 14 do
 write(#196);
 end;
  procedure xz;
 var
 i:integer;
 begin
 for i:=1 to 19 do
 write(#196);
 end;
procedure lineup;
 var i:integer;
 begin
 for i:=1 to 76 do
 write(#196)
 end;
var i:integer;
    f1, f2, f3, x, h:real;
begin
clrscr;
h:=(b-a)/n;
write(#218);lineup; write(#191);
writeln;
writeln(#179'                               Function                                     '#179);
write(#195);zx;write(#194);xz;write(#196);write(#194);write(#196);xz;write(#194);xz; write(#180);
writeln;
writeln(#179,'    Arg.X     ',#179,'        e^2x        ',#179,+
        '      2^x+e^x/2     ',#179,'     2^x-e^x/2     '#179);
for i:=0 to n do
 begin
  x:=a+i*h;
  f1:=exp(2*x);
  f2:=exp(ln(2)*x)+exp(x/2);
  f3:=exp(ln(2)*x)-exp(x/2);
  zline;xrline;write(#196);xrline;write(#196); xrline;write(#180);
  writeln;
  writeln(#179,x:10:4,'    ',#179,f1:15:4,'     ',#179,f2:13:4,'       '+
          #179,f3:13:4,'      ',#179);
 end;
write(#192);lineup;write(#217);
readln;
end.
1
Necrover
2 / 2 / 0
Регистрация: 03.12.2014
Сообщений: 27
12.12.2014, 11:37  [ТС] 4
Цитата Сообщение от Puporev Посмотреть сообщение
плохо нет задания, думаю написание функций можно значительно сократить.
В задании и указано вписывать полные функции, а не f1(x).

Цитата Сообщение от Puporev Посмотреть сообщение
writeln(#179,' Arg.X ',#179,' e^2x ',#179, ' 2^x+e^x/2 ',#179,' 2^x-e^x/2 '#179);
До такого вида не додумался, спасибо.
0
Puporev
Модератор
54733 / 42134 / 29092
Регистрация: 18.05.2008
Сообщений: 99,455
12.12.2014, 11:49 5
Цитата Сообщение от Necrover Посмотреть сообщение
В задании и указано вписывать полные функции
Так задание же секретное, а на форуме работают экстрасенсы...
0
Necrover
2 / 2 / 0
Регистрация: 03.12.2014
Сообщений: 27
12.12.2014, 12:27  [ТС] 6
Цитата Сообщение от Puporev Посмотреть сообщение
Так задание же секретное, а на форуме работают экстрасенсы...
Да, извиняюсь. Надо было написать это при создании темы.
0
12.12.2014, 12:27
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.12.2014, 12:27

Вывод результата не в столбы а в строки
Всем привет вот кто ни будь может объяснить, запрос выводит результат не в...

Поменять местами столбы в массиве
Вот есть программа.Нужно поменять местами столбец где есть максимальный элемент...

Поменять местами k-й и р-й столбы матрицы
Матрица A(N;M)размещена в одномерном массиве по строкам. 1-5 Поменять местами...


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

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

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