IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> вывод данных цикла на экран через таблицу
сообщение
Сообщение #1


Гость






такая проблема в Turbo Pascal: есть функция, ей задают отрезок, дают кол-во точек табулирования. Через цикл записываем табуляцию и высчитываем для каждого X Y. Это я сделал. Но! Дальше требуется вывести полученные данные на экран в виде таблицы с шапкой "№ точки" "X" "Y" "min-max" . В столбике min-max должно быть повторено значение Y в тех строках, где оно min и max, в остальных строках пусто. Это я ваще не знаю как сделать. Если кто знает как вывести эту штуку, помогите, взяв для примера какую-нибудь простейшую функцию( у меня просто очень громоздкая ).

Заранее большое спасибо. понимаю, что для кого-то это задание совсем легким покажется, но я програмирую совсем недавно просто.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Поиск -> Табулирование (Табулирование функции)

В общем вот простейший пример

uses crt;

function F(x : Integer) : Single;
begin
F := Sin(x);
end;

var

x: Integer;


begin

clrscr;


writeln('|-----|---------|');
writeln('| x | y |');
writeln('|-----|---------|');

for x := 1 to 30 do
writeln('|', x:3, '|':3, F(x):7:3, '|':3);

writeln('|---------------|');


readln;
end.


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






Спасибо большое))) что-то я нереально тупил) все действительно легко очень. Отдельное сапсибо за оперативность, ответ последовал очень быстро)
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






правда, как все же быть со столбцом min-max?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






Изврат, но работает:
uses crt;

function F(x : Integer) : Single;
begin
F := Sin(x);
end;

function s(st: string; b: boolean): string;
begin
if b then s := st else s := '';
end;

var
x: Integer;
b: boolean;
i_min, i_max: integer;
T, min, max: single;

begin

clrscr;


writeln('|-----|---------|-------|');
writeln('| x | y |min/max|');
writeln('|-----|---------|-------|');

i_min := 0; min := maxlongint;
i_max := 0; max := -maxlongint;

for b := false to true do

for x := 1 to 20 do begin
T := F(X);
if (not b) then begin
if min > T then begin
min := T; i_min := x;
end;
if max < T then begin
max := T; i_max := x;
end;
end
else writeln('|', x:3, '|':3, F(x):7:3, '|':3,
s('min', x = i_min)+s('max', x = i_max):7, '|');
end;

writeln('|-----------------------|');


readln;
end.

smile.gif
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 15:08
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name