Var k,ans:integer;
begin
k:=0;
write('Пробежишь кружочек? (1-да, 0-нет) ');
readln(ans);
while ans=1 do
begin
k:=k+1;
write('Пробежишь ещё кружочек? (1-да, 0-нет) ');
readln(ans);
end;
writeln('k = ',k);
end.
Пример:
Пробежишь кружочек? (1-да, 0-нет) 1
Пробежишь ещё кружочек? (1-да, 0-нет) 1
Пробежишь ещё кружочек? (1-да, 0-нет) 1
Пробежишь ещё кружочек? (1-да, 0-нет) 0
k = 3
0.4*1024*1024= 419430.4 Бит
Пропускная способность шины = Разрядность шины х Частота шины
Задание 2, 1:
program zadacha1;
uses crt;
var x, y: real;
begin
clrscr;
write('enter x: ');
readln (x);
x:=(x*pi)/180; // в Паскале используется измерение в радианах, здесь мы
// переводим из градусов (так как мы задаем значение в градусах) в радианы
y:=sqr(cos(x))+sqr(sin(x))*sin(x);
writeln ('y=', y:0:4);
readkey;
<span>end.
2
program zadacha2;
uses crt;
var y: real;
begin
clrscr;
y:=sqr(sin(pi))+ pi/2;
writeln ('y=', y:0:4);
readkey;
<span>end.
</span>
3
program zadacha3;
uses crt;
var x, y: real;
begin
clrscr;
write ('enter x: ');
readln (x);
x:=(x*pi)/180;
y:=sin(x)/cos(x) + 0.25;
writeln ('y=', y:0:4);
readkey;
end.
4
program zadacha4;
uses crt;
var x, y, z: integer;
begin
clrscr;
write ('enter x, z');
readln (x, </span><span>z</span>);
y:=abs(x)+2*abs(z);
writeln ('y=', y:0:4);
readkey;
end.
Решение:
<span>Не понятно зачем в конце выражения стоит 4, Предположу, что это (x+5)^4 </span>
<span>y'=4-4/(x+5); y'=0 </span>
<span>4-4/(x+5)=0 </span>
<span>x+5=1 </span>
<span>x=-4 полученная стационарная точка принадлежит заданному промежутку и на этом промежутке является точкой минимума </span>
<span>у (-4)=-16-0=-16</span>