Алгоритмы линейной и разветвляющей структуры 1. вычислить: z=2sin(3pi-2a)cos^2(5p+2a) 2. вычислите длину окружности, площадь круга и объём шара одного и того же заданного радиуса. вычислить в паскале
Program programma; uses crt; var b:array[1..100]of integer; i,n,a,max,k,t:integer; begin clrscr; write('Введите размер массива N = '); readln(n);
write('Введите число A = '); readln(a); for i:=1 to n do begin write('b[',i,'] = '); readln(b[i]); end;
for i:=1 to n do begin if abs(b[i])>a then k:=k+1; if b[i] mod 5=0 then t:=t+1; end;
writeln; writeln('Количество элементов массива, превосходящих по модулю заданное число А = ', k); writeln('Количество элементов массива, кратных 5 = ', t);
for i:=1 to n do begin if b[i]> max then max:=b[i]; end;
for i:=1 to n do begin if b[i]= max then begin write (-max,' '); end else write(b[i],' '); end;
// F# [<EntryPoint>] let main argv = let getRandomCollection n = let rand = new System.Random() Array.map (fun x -> rand.Next(-10, 10)) [| 1..n |] let inputArray = getRandomCollection 15 printf "source array: %A\n" (inputArray |> Array.toList) // First part printf "numberToCheckOnEqual: " let numberToCheckOnEqual = System.Console.ReadLine() |> System.Int32.Parse let indecesEqualsToNumber = inputArray |> Array.mapi (fun i x -> (x, i)) |> Array.filter (fun (x, i) -> x = numberToCheckOnEqual) |> Array.map (fun (x, i) -> i) |> Array.toList printf "%d equals to %d: %A\n" (indecesEqualsToNumber |> List.length) numberToCheckOnEqual indecesEqualsToNumber // Second part printf "a: " let a = System.Console.ReadLine() |> System.Int32.Parse printf "b: " let b = System.Console.ReadLine() |> System.Int32.Parse let sum = inputArray.[a..b] |> Array.sum printf "sum of array [%d..%d]: %d\n" a b sum // Last part let finalArray = inputArray |> Array.map (fun x -> if x < 0 then x*x else x) printf "final array: %A" finalArray System.Console.ReadKey true |> ignore 0
var a,p,z:real;
begin
readln(a,p);
z:=2*sin(3*pi-2*a)*sqr(cos(5*p+2*a));
writeln('z = ',z:6:4);
end.
Пример:
0.8 1.5
z = 1.7956
2.
var r:real;
begin
readln(r);
writeln('длина окружности = ',2*pi*r:6:4);
writeln('площадь круга = ',pi*r*r:6:4);
writeln('объём шара =',4/3*pi*r*r*r:6:4);
end.
Пример:
2
длина окружности = 12.5664
площадь круга = 12.5664
объём шара =33.5103