Скорость передачи ADSL-модема составляет 1 024 000 бит/с. Вычислите объем переданного файла в килобайтах, если на его передачу было затрачено 5 секунд.
Функция вычисления арктангенса есть. Остальные можно выразить через арктангенс. Пусть х - число которое вводится в приемное поле калькулятора, у - это то, значение, которое мы выводим в поле ответа калькулятора. 1) arcsin if abs(x)<1 then y:=arctan(x/sqrt(1-x*x) else y:=Pi*x;
2) arccos y:=arctan(sqrt(1-x*x)/x); if x<0 then y:=Pi+y;
3) arctg y:=arctan(x);
4) arcctg if x=0 then y:=Pi else y:=arctan(1/x); if x<0 then y:=Pi+y;
5) n! y:=1; for i:=1 to x do y:=y*i;
6) % y:=x/100
Следует при проверке иметь ввиду, что арксинус и арккосинус могут быть только в пределах от -1 до 1. Другие значения вводить нельзя. Или надо добавить проверку на корректность входных данных.
begin while (true) do begin readln(a); if (a = 9999) then break else System.IO.File.AppendAllText('F.txt', IntToStr(a) + System.Environment.NewLine); end; end.
const e = 5;//Кол-во курсов и групп
var a, b, c, d: integer; f: string;
begin for a := 1 to e do begin writeln(''); writeln('Группа №', a); writeln(''); writeln('Сколько обучающихся сдали на "отлично"?'); readln(b); f += inttostr(b) + ' - '; c += b; writeln('Сколько обучающихся сдали на "хорошо"?'); readln(b); f += inttostr(b) + ' - '; c += b; writeln('Сколько обучающихся сдали на "удовлетворительно"?'); readln(b); f += inttostr(b) + ' - '; c += b; writeln('Сколько обучающихся сдали на "неудовлетворительно"?'); readln(b); f += inttostr(b); c += b; f := inttostr(c) + ' - ' + inttostr(c - b) + ' - ' + f; System.IO.File.AppendAllText('result.dat', f + System.Environment.NewLine); end; end.
v = 1 024 000 бит/с
t = 5 с
s = v * t = 1 024 000 бит/c * 6 с = 6 144 000 бит = 768 000 байт = 768 Кбайт
ответ: 768