Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: 6323
Последний выпуск: 19.06.2015

помоги студентке с Free Paskal!!!!!!!!

86K
20 марта 2013 года
katiuhka
4 / / 20.03.2013
1. Знайти значення функції Y(x)=корень квадратний с е^x-sinx при заданому з клавіатури значенні Х. Контрольне значення: Х=2,312. Використовуючи стандартні функції знайти цілу частину значення функції Y1=[Y] та Y2=[Y±0,5].
2. За даними коефіцієнтами двох не паралельних прямих на площині обчислити точку їх перетину.
20K
20 марта 2013 года
ellor!
198 / / 24.05.2012
На менее интеллигентном форуме ответили бы "TITS OR GTFO", а здесь просто отправляют по ссылке.
89K
20 марта 2013 года
Sergey Brill
4 / / 20.03.2013
Я бы даже помог псевдокодом, если задание на русский переведете.
86K
20 марта 2013 года
katiuhka
4 / / 20.03.2013
Цитата: Sergey Brill
Я бы даже помог псевдокодом, если задание на русский переведете.


1. Найти значение функции Y (x) = корень квадратный с е ^ x-sinx при заданном с клавиатуры значении Х. Контрольное значение: Х = 2,312. Используя стандартные функции найти целую часть значения функции Y1 = [Y] и Y2 = [Y ± 0,5].
2. По данным коэффициентами двух не параллельных прямых на плоскости вычислить точку их пересечения.
1. Найти значение функции Y(x)= X-10^X при заданном с клавиатуры значении Х. Контрольное значение: Х = 1,94. Используя стандартные функции найти целую часть значения функции Y1 = [Y] и Y2 = [Y ± 0,5].
2. По заданному катетом прямоугольного треугольника и углом (в градусах), лежащий у этого катета вычислить периметр прямоугольного треугольника.

89K
20 марта 2013 года
Sergey Brill
4 / / 20.03.2013
Странный у вас перевод, из 2х пунктов получилось 4 ))

1)
Код:
//тут начало программы
var
    y, x: real;
begin
    //считываем х
    writeln("Vvedite X");
    readln(x);
    //вычисляем функцию
    y := sqrt(power(2.71, x) - sin(x));
    //выводим резуьтат
    write("Y1 = ");
    writeln(integer(y));
    write("Y2 = ");
    writeln(integer(y+0,5));
    write("Y3 = ");
    writeln(integer(y-0,5));
    readln;
end;
2) Одна прямая на плоскости задается 2 коэффициентами, так что я задание не понял. Ниже код, как найти пересечение прямых на плоскости, для этого считывается 4 коэффициента, по 2 для каждой прямой

Код:
//начало программы
var
    y,x,a1,b1,a2,b2:real:
begin
    //считываем коэфициенты
    write("a1 = ");
    readln(a1);
    write("b1 = ");
    readln(b1);
    write("a2 = ");
    readln(a2);
    write("b2 = ");
    readln(b2);
    //вычисляем х и у
    x := (b2-b1)/(a1-a2);
    y := ((1/b2) - (1/b1))/(a1-a2);
    //выводим результат
    write("x = ");
    writeln(x);
    write("y = ");
    writeln(y);
    readln;
end;
3)

Код:
//тут начало программы
var
    y, x: real;
begin
    //считываем х
    writeln("Vvedite X");
    readln(x);
    //вычисляем функцию
    y := x - power(10, x);
    //выводим результат
    write("Y1 = ");
    writeln(integer(y));
    write("Y2 = ");
    writeln(integer(y+0,5));
    write("Y3 = ");
    writeln(integer(y-0,5));
    readln;
end;
4)

Код:
//тут начало программы
var
    P,a,b,c,angle:real;
begin
    //считываем начальные значения
    write("a = ");
    readln(a);
    writeln("ugol v gradusax = ");
    readln(angle);
    //вычисляем неизвестные стороны и периметр
    c := a/cos(angle*3.14/180);
    b := c*sin(angle*3.14/180);
    P := a+b+c;
    //выводим результат
    write("P = ");
    writeln(P);
    readln;
end;
Проверьте синтаксис, может быть куча ошибок
И учите программирование, это интересно
89K
21 марта 2013 года
norayrd
3 / / 20.03.2013
Цитата: Sergey Brill
Странный у вас перевод, из 2х пунктов получилось 4 ))

1)
Код:
//тут начало программы
var
    y, x: real;
begin
    //считываем х
    writeln("Vvedite X");
    readln(x);
    //вычисляем функцию
    y := sqrt(power(2.71, x) - sin(x));
    //выводим резуьтат
    write("Y1 = ");
    writeln(integer(y));
    write("Y2 = ");
    writeln(integer(y+0,5));
    write("Y3 = ");
    writeln(integer(y-0,5));
    readln;
end;



Степень экспоненты не так считают power(2.71, x), а для этого есть функция exp(x).
[Y ± 0,5] - это округление до ближайщего целого, а не так как ты написал.

89K
21 марта 2013 года
norayrd
3 / / 20.03.2013
Код:
program zadanie1;
    var x,y:real;
  begin
        write('Введите значение X:');
        readln(x);
        y:=sqrt(exp(x)-sin(x));
        writeln('Y(x)=',y:0:5);
        writeln('Целая часть Y1=',trunc(y));
        writeln('Округление до ближайщего целого Y2=',round(y));
        writeln('Для выхода нажмите Enter.');
        readln;
  end.
89K
21 марта 2013 года
norayrd
3 / / 20.03.2013
Код:
program zadanie2;
    var x,y,a1,a2,b1,b2:real;
  begin
        writeln('Введите коеффициенты первой прямой y=x*a1 + b1');
        write('a1='); readln(a1);
        write('b1='); readln(b1);
        writeln('Введите коеффициенты второй прямой y=x*a2 + b2');
        write('a2='); readln(a2);
        write('b2='); readln(b2);
        if (a1=a2)
          then writeln('Прямые не пересекаются!')
          else begin
            x:=(b2-b1)/(a1-a2);
            y:=a1*x+b1;
            writeln('Точка пересечения двух прямых: (',x:0:3,';',y:0:3,').');
          end;
        write('Для выхода нажмите Enter.'); readln;
  end.
89K
21 марта 2013 года
Sergey Brill
4 / / 20.03.2013
Цитата: norayrd
Цитата: Sergey Brill
Странный у вас перевод, из 2х пунктов получилось 4 ))

1)
Код:
//тут начало программы
var
    y, x: real;
begin
    //считываем х
    writeln("Vvedite X");
    readln(x);
    //вычисляем функцию
    y := sqrt(power(2.71, x) - sin(x));
    //выводим резуьтат
    write("Y1 = ");
    writeln(integer(y));
    write("Y2 = ");
    writeln(integer(y+0,5));
    write("Y3 = ");
    writeln(integer(y-0,5));
    readln;
end;



Степень экспоненты не так считают power(2.71, x), а для этого есть функция exp(x).
[Y ± 0,5] - это округление до ближайщего целого, а не так как ты написал.



последний раз на паскале писал 5 лет назад, не все помню.
[Y ± 0,5] - первый раз вижу такую запись, подумал, что нужно целое значение от (Y+0.5) и от (Y-0.5).

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог