1) в 4 и 6 строках заменить кавычки на одинарные (те которые там где русская буква Э. PascalABC другие не понимает, другие паскали тоже могут ругаться.
2) строка 8 оператор FOR требует перечисляемый тип например integer, так что чтобы все заработало придется переменные x, m, n объявить как integer (var x, m, n : integer)
3) в десятой строке исправить название функции возведения в квадрат на sqr
4) функция sin() считает в радианах. Если данные у вас в градусах то их нужно перевести в радианы.
5) не понятно для чего используется цикл если будет выведено только последнее вычисленное значение. Возможно в цикле пропущен блок BEGIN END;
исправленная програма будет выглядеть примерно так:
Program one;
Var y : real;
x, n, m : integer;
Begin
Write('введите число m ');
Readln(m);
Write('введите число n ');
Readln(n);
For x := m to n do begin
y := sin(degToRad(4*sqr(x)));
Writeln(y);
end;
End.
ну и плюс поправил отступы и стилистические ошибки не влияющие на результат...
10 минут
Объяснение:
Обозначим за V — количество данных, q — сорость передачи, t — время передачи
Тогда V1=V2=12V=12⋅50=25 Мбайт
Переведём 25 Мбайт в Кбиты:
V1=V2=25Мбайт =25Мбайт⋅8бит=200Мбит=200⋅210 Кбит =50⋅4⋅210 Кбит=50⋅22⋅210 Кбит=50⋅212 Кбит
Время передачи определяется как t=t1+t2=V1q1+V2q2 , где q1=1024=210 Кбит/с, q2=10242=512=29 Кбит/с
Таким образом, t=50⋅212210+50⋅21229=50⋅22+50⋅23=50⋅4+50⋅8=200+400=600 c
Переведём полученный результат в минуты ( 1 мин = 60 с):
600с:60с=10 мин.
1) в 4 и 6 строках заменить кавычки на одинарные (те которые там где русская буква Э. PascalABC другие не понимает, другие паскали тоже могут ругаться.
2) строка 8 оператор FOR требует перечисляемый тип например integer, так что чтобы все заработало придется переменные x, m, n объявить как integer (var x, m, n : integer)
3) в десятой строке исправить название функции возведения в квадрат на sqr
4) функция sin() считает в радианах. Если данные у вас в градусах то их нужно перевести в радианы.
5) не понятно для чего используется цикл если будет выведено только последнее вычисленное значение. Возможно в цикле пропущен блок BEGIN END;
исправленная програма будет выглядеть примерно так:
Program one;
Var y : real;
x, n, m : integer;
Begin
Write('введите число m ');
Readln(m);
Write('введите число n ');
Readln(n);
For x := m to n do begin
y := sin(degToRad(4*sqr(x)));
Writeln(y);
end;
End.
ну и плюс поправил отступы и стилистические ошибки не влияющие на результат...