//начало программы
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;
помоги студентке с Free Paskal!!!!!!!!
1. Знайти значення функції Y(x)=корень квадратний с е^x-sinx при заданому з клавіатури значенні Х. Контрольне значення: Х=2,312. Використовуючи стандартні функції знайти цілу частину значення функції Y1=[Y] та Y2=[Y±0,5].
2. За даними коефіцієнтами двох не паралельних прямих на площині обчислити точку їх перетину.
2. За даними коефіцієнтами двох не паралельних прямих на площині обчислити точку їх перетину.
На менее интеллигентном форуме ответили бы "TITS OR GTFO", а здесь просто отправляют по ссылке.
Я бы даже помог псевдокодом, если задание на русский переведете.
Цитата: 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. По заданному катетом прямоугольного треугольника и углом (в градусах), лежащий у этого катета вычислить периметр прямоугольного треугольника.
Странный у вас перевод, из 2х пунктов получилось 4 ))
1)
2) Одна прямая на плоскости задается 2 коэффициентами, так что я задание не понял. Ниже код, как найти пересечение прямых на плоскости, для этого считывается 4 коэффициента, по 2 для каждой прямой
3)
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;
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;
Код:
Код:
//тут начало программы
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;
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;
Код:
//тут начало программы
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;
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;
И учите программирование, это интересно
Цитата: Sergey Brill
Странный у вас перевод, из 2х пунктов получилось 4 ))
1)
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;
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] - это округление до ближайщего целого, а не так как ты написал.
Код:
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.
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.
Код:
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.
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.
Цитата: norayrd
Цитата: Sergey Brill
Странный у вас перевод, из 2х пунктов получилось 4 ))
1)
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;
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).