M = E/gh - формула для массы тела
1.
var f:text; s:string; r:integer;
begin
assign(f,'nedelya.txt');
rewrite(f);
repeat
write('Введите день недели: ');
readln(s);
writeln(f,s);
write('Повторить (1-да, 0-нет)?');
readln(r);
until r=0;
close(f);
end.
Пример:
Введите день недели: понедельник
Повторить (1-да, 0-нет)?1
Введите день недели: вторник
Повторить (1-да, 0-нет)?1
Введите день недели: среда
Повторить (1-да, 0-нет)?0
Содержимое файла nedelya.txt:
понедельниквторниксреда
2.
var f:text; s:string; r:integer;
begin
assign(f,'nedelya.txt');
append(f);
repeat
write('Day of the week: ');
readln(s);
writeln(f,s);
write('Repeat (1-yes, 0-no)?');
readln(r);
until r=0;
close(f);
end.
Пример:
Day of the week: Thursday
Repeat (1-yes, 0-no)?1
Day of the week: Friday
Repeat (1-yes, 0-no)?1
Day of the week: Saturday
Repeat (1-yes, 0-no)?0
Содержимое файла nedelya.txt:
понедельник
вторник
среда
Thursday
Friday
Saturday
3.
var f:text; s:string;
begin
assign(f,'nedelya.txt');
reset(f);
while not eof(f) do
begin
readln(f,s);
writeln(s);
end;
close(f);
end.
Результат:
понедельник
вторник
среда
Thursday
Friday
Saturday
Функция вычисления арктангенса есть. Остальные можно выразить через арктангенс. Пусть х - число которое вводится в приемное поле калькулятора, у - это то, значение, которое мы выводим в поле ответа калькулятора.
1) <span>arcsin
if abs(x)<1 then
y:=arctan(x/sqrt(1-x*x)
else y:=Pi*x;
2) </span><span>arccos
y:=arctan(sqrt(1-x*x)/x);
if x<0 then y:=Pi+y;
3) </span><span>arctg
y:=arctan(x);
4) </span><span>arcctg
</span>if x=0 then y:=Pi else y:=arctan(1/x);<span>
if x<0 then y:=Pi+y;
</span><span>
5) </span><span>n!
y:=1;
for i:=1 to x do y:=y*i;
6) \%
y:=x/100
Следует при проверке иметь ввиду, что арксинус и арккосинус могут быть только в пределах от -1 до 1. Другие значения вводить нельзя. Или надо добавить проверку на корректность входных данных. </span>
1.28
2.8
3.32
4.b:=5. c:=5
5.<span>b:=6. c:=3
6.</span><span>b:=6. c:=0
7.</span><span>b:=0. c:=3</span>