Добавил:
korayakov
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лабы / Pascal.1.курс / part 1 / вариант 22 / lab4ex1
.pas program ex1;
uses crt;
const
e=2.718;
var
x,b,c,a: integer;
y:real;
begin
textbackground(red);
clrscr;
window(10,5,40,10);
textbackground(green);
clrscr;
textcolor(black);
gotoxy(14,3);
write('x= ');
readln(x);
gotoxy(14,4);
write('b= ');
readln(b);
gotoxy(14,5);
write('c= ');
readln(c);
gotoxy(14,6);
write('a= ');
readln(a);
window(40,15,70,20);
textbackground(magenta);
clrscr;
textcolor(yellow);
if x>2
then begin y:=(x-b*c)/(2*(sin(a)/cos(a)));
writeln('‚лзҐб«ҐЁп Ї® ўҐа奩 д®а¬г«Ґ.');
writeln('y= ',y:10:7);
end
else begin
y:=e-(x*(sqrt(cos(x))));
writeln('‚лзЁб«ҐЁп Ї® Ё¦Ґ© д®а¬г«Ґ.');
writeln('y= ',y:10:7);
end;
readln;
end.
uses crt;
const
e=2.718;
var
x,b,c,a: integer;
y:real;
begin
textbackground(red);
clrscr;
window(10,5,40,10);
textbackground(green);
clrscr;
textcolor(black);
gotoxy(14,3);
write('x= ');
readln(x);
gotoxy(14,4);
write('b= ');
readln(b);
gotoxy(14,5);
write('c= ');
readln(c);
gotoxy(14,6);
write('a= ');
readln(a);
window(40,15,70,20);
textbackground(magenta);
clrscr;
textcolor(yellow);
if x>2
then begin y:=(x-b*c)/(2*(sin(a)/cos(a)));
writeln('‚лзҐб«ҐЁп Ї® ўҐа奩 д®а¬г«Ґ.');
writeln('y= ',y:10:7);
end
else begin
y:=e-(x*(sqrt(cos(x))));
writeln('‚лзЁб«ҐЁп Ї® Ё¦Ґ© д®а¬г«Ґ.');
writeln('y= ',y:10:7);
end;
readln;
end.
Соседние файлы в папке вариант 22