BP: Borland Pascal

[DruidD]

Задали вот мне зделать такую задачку(не спрашивайте почему сам не сделаю, низачто неосилю прочитать такое количество литературы за один день чтоб это сделать)
Прошу прощения что на украинском, мне трудновато перевести это на русский чтоб не потерять смысл.

1. Розробити програму для обчислення значень функції з умовами для ряду значень аргументу Х, що знаходиться в заданому інтервалі [Xmim, Xmax] та змінюється з кроком Dx.

*рисунок*

Вхідні дані ввести з допомогою клавіатури: Xmim=-1 Xmax=12 Dx=1 a=2.2 b=1. Обчислення значень функції Y реалізувати з допомогою підпрограми-функції.
Результат обчислення вивести на екран.
2. Написати програму, яка виводить на екран монітора таблицю символів ПЕОМ із кодами 128 – 255. Таблиця повинна містити 16 рядків та 8 стовпчиків. В кожній позиції таблиці мусить бути трьохзначний десятковий код, потім символ “-“, а потім графічний еквівалент символу. Наприклад, 128-А.


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

[pu4koff]

понял тока 80% написанного, но суть задач осталась до конца не раскрыта по этой причине )

[DruidD]

перевел на русский, а вот нащет сути задачи...я переписал все что было в задании.

Разработать программу для обчисления значений функции с условием для ряда значений аргумента X, который находится в заданом интервале [Xmin, Xmax] та изменяется з шагом Dx


Входные данные ввести с помощью клавиатуры: Xmin=-1 Xmax=12 Dx=1 a=2.2 b=1. Обчисления значений функции Y реализовать с помощью подпрограммы-функции.
Результат обчисления вывести на экран.

2. Написать новую программу, которая выводит на экран монытора таблицу символов ПЕОМ из кодами 128 - 255. Таблица должна содержать 16 рядков и 8 столбцов. В каждой таблице должен быть трехзначный десятичный код, потом символ "-", а потом графический эквивалент символу. Например, 128-А.

есть вариант что это пишется на дельфи

[juden]

я неочень разбираюсь в паскале но вроде первая прога будет так:
program exp1;
uses crt;
var y, x, xmin, xmax, dx, a, b: real;
(*Подпрограмма*)
procedure podsy(x1, a1, b1: real);
var y: real;
begin
if x1=5 then y:=a1*exp(x1*ln(b1))
else begin
if x1<5 then y:=exp(a1*b1*x1*ln(1/3))
else y:=sin(a1*b1-x1)/cos(a1*b1-x1);
end;
writeln('x=',x1:6:2,'Y=',y:8:2);
end;
(*Основная программа*)
begin
clrscr;
writeln('Введите Xmin Xmax Dx A B');
readln(xmin, xmax, dx, a, b);
x:=xmin;
repeat
podsy(x, a, b);
x:=x+dx;
until (x>xmax);
readln;
end.

[DruidD]

Огромное спасибо за это)

а вторую никто незнает?

[juden]

попробуй просто это вывисти на экра(вбей каждую сторочку руками в writeln('')).
вот сдесь коды клавиш:
кодировка.zip

[DruidD]

Спасибо, так и сделаю