Помощь - Поиск - Пользователи - Календарь
Полная версия: Две задачки на функции
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
:phoenix
21.12.2004 21:16
1.
X1/2-ln(x+1)
a=0
b=4
шаг=0.25
Составить таблицу значений функции y=f(x) на отрезке a до b с шагом h. Вид функции, значения a, b, h взять из вышеперечисленных данных.
Для построения таблицы значений использовать цикл с предусловием в вариантах с нечетными номерами и цикл с постусловием в вариантах с четными номерами. Таблица должна выводиться на экран в два столбца с заголовками ‘x’ и ‘f(x)’


2.
Вычислить объем детали и её массу, если деталь имеет форму прямоугольного параллелепипеда с 4 сквозными отверстиями цилиндрической формы равных размеров. Размеры детали и плотность заданы.
volvo
21.12.2004 21:34
1. Номер варианта не знаю, так что цикл с предусловием
Код

var
a,b,y:extended;

begin
a:=0; b:=4;
writeln('x':10, 'f(x)':10);
while a<=b do
  begin
    y:=sqrt(a) - ln(a + 1);
    writeln(a:10:1, y:10:3);
    a:=a+0.25;
  end;
readln
end.


P.S. В следующий раз давайте нормальные заголовки...

2.
Цитата
Размеры детали и плотность заданы.

Может, вам они и заданы, но для решения явно условий не хватает...
FreeMan
22.12.2004 22:29
Код
var a,b,c,r,ro:real;
begin
writeln('vvedi storoni (a,b,c), radius otverstia i plotnost'');
writeln('c-storona, paralelnaya otverstiyam');
readln(a,b,c,r,ro);
writeln('V=',a*b*c-pi*r*r*c*4, ' m=',ro*(a*b*c-pi*r*r*c*4));
readln;
end;

Вот так.
Digitalator
22.12.2004 22:34
FreeMan, отверстий 4 штуки и не сказано как расположены

Цитата
условий не хватает...
FreeMan
22.12.2004 22:49
Тогда это часный случай
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.