Одномерный массив 1. Составьте программу ввода и вывода массива: 5, -2, 3, -6, 7, 9, -4, 8, 1, 2, 7, -3. 2. Составьте блок-схем
ТарасоваКсю
3)
const n=10;
var a:array [1..n] of integer; r,i:integer;
begin
r:=1;
for i:=1 to n do begin
a[i]:=r; inc(r,2); end;
for i:=1 to n do
write(a[i],' ');
end.
Данное выражение можно упростить:
(3n+√6n)/√3n = 3n / √3n + √6n / √3n = √3n * √3n / √3n + √(6n / 3n) = √3n + √2
Код PascalABC:
Const
Sqrt2 = Sqrt(2);
Function C(n:integer):real;
Begin
result:=Sqrt(3*n)+Sqrt2;
End;
Function Sum(n:integer):real;
Begin
result:=0;
For n:= 1 to n do
result:=result+C(n);
End;
Var
n:integer;
Begin
Write('n = ');ReadLn(n);
WriteLn('x = ',Sum(n))
End.
Пример работы программы:
n = 3
x = 11.4241812374713
Примечание:
Чтобы программа работала на Turbo и Free Pascal, нужно заменить result, на имя функции, в которой он используется.
43 div 8 = 5 (div - целая часть от деления, mod - остаток)
Ответ: 5
<span>Вообще есть ряд запрещённых символов, которые не должны быть в имени файла в Windows - это:
</span>\ - разделитель подкаталогов
/ - разделитель ключей командного интерпретатора
: - отделяет букву диска или имя альтернативного потока данных
* - заменяющий символ (маска "любое количество любых символов")
? - заменяющий символ (маска "один любой символ")
" - используется для указания путей, содержащих пробелы
< - перенаправление ввода
> - перенаправление вывода
| - обозначает конвейер
В некоторых UNIX и UNIX-подобных ОС запрещен slash (/) - разделитель подкаталогов - и символ конца строки (\0). Перечисленные выше символы (кроме slash) использовать можно, но из соображений совместимости их лучше избегать.
Program qq;
uses crt;
var x1, y1, x2, y2, n1, n2: integer; x, y, L, M, k, b: real; // чтоб было приятно, возьмём координаты начальных точек - целыми числами.
begin
writeln ('Введите координаты первой точки через пробел');
readln(x1, y1);
writeln('Введите координаты второй токи через пробел');
readln(x2, y2);
writeln ('введите через пробел числа N1 и N2');
readln(n1, n2);
l:=n1/n2; //далее производится расчет по формулам, данным в задании
x:=(x1+L*x2)/(1+L);
y:=(y1+L*y2)/(1+L);
writeln ('Координаты искомой точки (',x,';',y,')');
end.<span>
</span>