Решение примера

@Шалак · Регистрация: 01.10.2017

Author24 — интернет-сервис помощи студентам

Выполните индивидуальное задание (исходные данные должны вводиться с учетом области допустимых значений):
Y= ( – 2*c + d*82 )/tg(a/4 – 1) У меня ничего не получилась

Pascal

Program Primer01; 
Uses CRT;
var 
a,d,c,Y: Integer; 
begin 
clrscr;Y
Writeln('Введите a: '); 
Readln(a); 
Writeln('Введите d: '); 
Readln(d); 
Writeln('Введите c: '); 
Readln(c); 
Y := (-2*c + d*82)/tg(a/4-1); 
Writeln((-2*c + d*82)/tg(a/4-1/)= ', Y); 
Readln; 
end.

@Puporev · 01.10.2017, 15:45

Pascal

uses crt;
var a,d,c,y:real;
begin
clrscr;
Write('Введите a=');
Readln(a);
Write('Введите d= ');
Readln(d);
Write('Введите c= ');
Readln(c);
Y := (-2*c+d*82)/sin(a/4-1)*cos(a/4-1);
Writeln('Y=',y:0:2);
Readln
end.

	01.10.2017, 15:45

Опции темы