Описать процедуру печати таблицы, параметрами которой являются функции-процедурные переменные - Turbo Pascal

  1. описать процедуру печати таблицы, параметрами которой являются функции-процедурные переменные, вычисляют: sin x + tg x; sin x - tg x. x и y изменяются в определенном диапазоне; с - в пределах кодовой таблицы.


textual

Код к задаче: «Описать процедуру печати таблицы, параметрами которой являются функции-процедурные переменные - Turbo Pascal»

uses crt;
type func=function(x:real):real;
{$F+}
function f1(x:real):real;
begin
f1:=sin(x)+sin(x)/cos(x);
end;
function f2(x:real):real;
begin
f2:=sin(x)-sin(x)/cos(x);
end;
{$F-}
procedure tabl(v,w:func);
var i:byte;
    x:real;
begin
write(#218);
for i:=1 to 5 do
write(#196);
write(#194);
for i:=1 to 8 do
write(#196);
write(#194);
for i:=1 to 8 do
write(#196);
write(#191);
gotoXY(1,2);
write(#179);
write('  x  ');
write(#179);
write('sinx+tgx');
write(#179);
write('sinx-tgx');
write(#179);
gotoXY(1,3);
write(#195);
for i:=1 to 5 do
write(#196);
write(#197);
for i:=1 to 8 do
write(#196);
write(#197);
for i:=1 to 8 do
write(#196);
write(#180);
x:=0;
i:=4;
while x<=1.5+0.05 do
 begin
  gotoXY(1,i);
  write(#179);
  write(x:5:2);
  write(#179);
  write(v(x):8:3);
  write(#179);
  write(w(x):8:3);
  write(#179);
  i:=i+1;
  x:=x+0.1;
 end;
gotoXY(1,i);
write(#192);
for i:=1 to 5 do
write(#196);
write(#193);
for i:=1 to 8 do
write(#196);
write(#193);
for i:=1 to 8 do
write(#196);
write(#217);
end;
begin
clrscr;
tabl(f1,f2);
readln
end.

СДЕЛАЙТЕ РЕПОСТ

14   голосов, оценка 3.857 из 5



Похожие ответы
  1. Создать текстовый файл, в который записать в столбик несколько чисел (<20). Составить программу, которая подсчитывала бы количество чисел в файле, а затем дописывала бы в его конец столько случайных чисел, чтобы всего чисел оказалось 20. Кроме того, программа должна найти минимальное и максимальное число в полученном файле.

  1. Дан массив записи, представляющий собой календарь(число,месяц,год). Описать функцию подсчитывающую сколько дней прошло от первого января 2005 года до даты d этого года.

  1. Добрый вечер. Помогите пожалуйста с задачей Вычислить (2*5! + 3*8!)/(6! + 4!), используя процедуру без параметров. Добавлено через 8 минут P.S. Переделать данную программу. Вместо функции, сделать процедуру без параметров.

  1. Описать множество рабочих дней недели.

  1. Здравствуйте. Подскажите что не правильно делаю, и возможно ли вообще - вызвать процедуру\функцию из другого объекта\класса, в турбо паскале? Хочу сделать из одного класса\объекта два.. Но чё-т как-то не получается. Исходный код не влез, прикрепил тхт файлом. И переделанное тоже прикрепил. Вот во что пытался переделать:

  1. помогите с задачей! Составить процедуру для нахождения индексов максимального элемента квадратной матрицы. Применить данную процедуру для двух заданных матриц C(n,n) и P(m,m).

  1. Составить процедуру и функцию,которая по заданному номеру месяца печатает название времени года

  1. составить процедуру ,меняющую местами столбцы с номерами n1 и n2 в матрице размерностью 6*5

  1. Составить процедуру для заполнение массива из N элементов значениями в интервале от - 40 до 35.