Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- {
- Задание 1
- Присвоить случайным образом значения числовым переменным а1, а2,..., а10,
- а11, а12 . Вывести на экран значения этих переменных следующей таблицей:
- 5.
- а1 а2 а3 а4
- а5 а6
- а7 а8
- а9 а10 а11
- }
- program exercise1;
- Var n, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11 : Integer;
- Begin
- n := 10;
- a1 := Random(n);
- a2 := Random(n);
- a3 := Random(n);
- a4 := Random(n);
- a5 := Random(n);
- a6 := Random(n);
- a7 := Random(n);
- a8 := Random(n);
- a9 := Random(n);
- a10 := Random(n);
- a11 := Random(n);
- Writeln(a1, ' ', a2, ' ', a3, ' ', a4);
- Writeln(a5, ' ', a6);
- Writeln(a7, ' ', a8);
- Writeln(a9, ' ', a10, ' ', a11);
- End.
- {
- Задание 2
- Даны x, y, z . Вычислить a, b, если:
- a = (1 + sin^2(x+y))/(2 + abs(x - (2x)/(1 + x^2y^2)) + x
- b = cos^2(arctg(1/z))
- }
- program exercise2;
- Var x, y, z, a, b : Real;
- Begin
- Readln(x);
- Readln(y);
- Readln(z);
- a := (1 + sqr(sin(x + y))) / (2 + abs(x - (2 * x) / (1 + x*x*y*y))) + x;
- b := sqr(cos(arctan(1 / z)));
- Writeln(a:10:3);
- Writeln(b:10:3);
- End.
- program exercise2;
- Begin
- Writeln("yo");
- End.
- {
- Задание 3
- Даны x, y, z . Вычислить a, b, если:
- a = (1 + sin^2(x+y))/(2 + abs(x - (2x)/(1 + x^2y^2)) + x
- b = cos^2(arctg(1/z))
- }
- program exercise3;
- Var a, b, c, p, S : Real;
- Begin
- Readln(a);
- Readln(b);
- Readln(c);
- p := (a + b + c) / 2;
- S := sqrt(p * (p - a)*(p - b)*(p - c));
- Writeln(S:10:3);
- End.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement