Паскаль
var
a, b, c, t, i: integer;
begin
readln(a, b, c);
Writeln(0:2, ': a=', a, ' b=', b, ' c=', c);
for i := 1 to 10 do
begin
t := a;
a := c;
c := b;
b := t;
Writeln(i:2, ': ', a, ' ', b, ' ', c);
end;
end.
Алгоритм
нач
ввод a, b, c
цикл по i от 1 до 10
нач
t = a
a = c
c = b
b = t
вывод a, b, c
кон
кон
Трасировка
0: a=1 b=2 c=3
1: 3 1 2
2: 2 3 1
3: 1 2 3
4: 3 1 2
5: 2 3 1
6: 1 2 3
7: 3 1 2
8: 2 3 1
9: 1 2 3
10: 3 1 2
№1
begin
var a:array[1..7] of integer;
var pr:=1;
for var i:=1 to 7 do
begin
a[i]:=readlninteger('Введите элемент массива');
pr*=a[i];
end;
writeln('Произведение:',pr);
end.
№2
begin
var a:array[1..20] of integer;
var k:=0;
for var i:=1 to 20 do
begin
a[i]:=2*i+sqr(i)-100;
if a[i]<0 then k+=1;
end;
writeln('Кол-во:',k);
end.
<em><u>1. Получим формулу</u></em> для нахождения площади равнобедренной трапеции по её основаниям и углу при большем основании (см. рис. во вложении).
<em><u>2. Текст программы на языке Python</u></em>import math
a=float(input("Введите длину большего основания а: "))
b=float(input("Введите длину меньшего основания b: "))
alpha=float(input("Введите угол при большем основании в градусах: "))
alphar=alpha*math.pi/180
print("Площадь трапеции равна ",(a**2-b**2)/4*math.tan(alphar))
<em><u>3. Тестовое решение</u></em>Python 3.4.2 (v3.4.2:ab2c023a9432, Oct 6 2014, 22:15:05) [MSC v.1600 32 bit (Intel)] on win32
Type "copyright", "credits" or "license()" for more information.
>>> ================================ RESTART ================================
>>>
Введите длину большего основания а: 20
Введите длину меньшего основания b: 10
Введите угол при большем основании в градусах: 40
Площадь трапеции равна 62.932472338295995
>>>
Uses
Crt;
const
n = 10;
type
V = array[1..n] of integer;
function Mid(var a: V): double;
var
i, s: integer;
begin
s := 0;
for i := 1 to n do s := s + a[i];
Mid := s / n
end;
var
x: V;
i, j: integer;
m: double;
begin
Randomize;
m := 0;
for i := 1 to 5 do
begin
Writeln('Элементы массива ', i);
for j := 1 to n do
begin
x[i] := Random(100);
Write(x[i]:3)
end;
Writeln;
m := m + Mid(x)
end;
Writeln('Среднее арифметическое пяти массивов равно ', m)
end.
<u>Тестовое решение:</u>
Элементы массива 1
95 44 54 86 52 39 28 79 29 43
Элементы массива 2
75 55 26 22 12 93 34 60 34 42
Элементы массива 3
55 80 50 54 52 46 85 47 11 86
Элементы массива 4
33 35 5 64 36 66 76 55 24 43
Элементы массива 5
31 63 66 11 88 4 31 99 28 39
Среднее арифметическое пяти массивов равно 76.6
Program DaNNuu;
uses crt;
const n=3;
var
a:array [1..n] of integer;
i,j,min,temp:integer;
begin
randomize;
{создание массива}
writeln('Элементы массива:');
for i:=1 to n do
begin
a[i]:=random(101)-50;
write (a[i]:5);
end;
{сортировка массива}
for i:=1 to n-1 do
begin
min:=i;
for j:=i+1 to n do
if a[min]>a[j] then
min:=j;
temp:=a[i];
a[i]:=a[min];
a[min]:=temp;
end;
writeln();
{вывод массива}
writeln('Результат сортировки:');
for i:=1 to n do
write(a[i]:5);
end.