- •1. Скласти програму з використанням умовного оператора.
- •Var k: integer;
- •Var Amin,Amax,X,y,z,s:real;
- •Var a1,b1:real;
- •Var X,y,z:real;
- •2. Скласти програму з використанням оператора циклу.
- •Var z,I,n: integer;
- •Var I: integer;
- •Var I,n: integer;
- •Var I: integer;
- •Var X,a1,a2,a3,a4,a5: real;
- •Var ae,ab,ac,bc,cd,de,ad: real;
- •Var c,z,p,I,k,n,h,d,m,a,b:integer;
- •Var a:array[1..N] of real;
- •X:real;
- •I:integer;
- •Var a:array[1..N] of integer;
- •Var a:array[1..N] of real;
- •X,z:real;
- •I:integer;
- •Var a:array[1..N] of real;
- •X:real;
- •I:integer;
- •Var a:array[1..N,1..M] of real;
- •X:real;
- •I,j:integer;
- •Var a:array[1..N,1..M] of real;
- •I,j:integer;
- •Var a:array[1..N,1..M] of real;
- •I,j:integer;
- •Var a:array[1..N,1..M] of real;
- •I,j:integer;
- •Var X,z: integer;
- •Var X,z: integer;
- •Var X,z: integer;
1. Скласти програму з використанням умовного оператора.
Створити програму визначення, чи є задане ціле число двозначним парним числом. Якщо так, то зменшити його вдвічі, якщо ні - збільшити на 11.
Program rabota1a;
Uses Crt;
Var k: integer;
k1:real;
Begin
ClrScr;
Writeln('Vvedite chislo');
readln(k);
If ((k>9)and(k<100)and(k mod 2=0)) Then
k1:=k/2
else k1:=k+11;
write('k= ',k1:4:3);
Readkey;
end.
Задано три дійсних числа х, у, z. Знайти середнє арифметичне найбільшого та найменшого за модулями з цих чисел.
Program rabota1b;
Uses Crt;
Var Amin,Amax,X,y,z,s:real;
Begin
ClrScr;
Writeln('Vvedite 3 chisla');
readln(x,y,z);
Amin:=x;
Amax:=x;
If abs(Amin)>abs(y) Then Amin:=y;
If abs(Amin)>abs(z) Then Amin:=z;
If abs(Amax)<abs(y) Then Amax:=y;
If abs(Amax)<abs(z) Then Amax:=z;
S:=(Amin+Amax)/2;
write('S= ',S:4:3);
Readkey;
end.
Задано два довільних цілих числа а та Ь. Якщо , менше з чисел замінити половиною їх суми, більше - подвоєним добутком. Якщо а=Ь, обчислити значення натуральних логарифмів цих чисел.
Program rabota1c;
Uses Crt;
Var a1,b1:real;
a,b:integer;
Begin
ClrScr;
Writeln('Vvedite 2 chisla');
readln(a,b);
If a=b Then begin a1:=ln(a); b1:=ln(b); end
else
If a>b Then begin a1:=2*(a*b); b1:=(a+b)/2; end
else
If a<b Then begin a1:=(a+b)/2; b1:=(a*b)*2; end;
writeln('a1= ',a1:4:3);
writeln('b1= ',b1:4:3);
Readkey;
end.
Задано три дійсних числа х, у, z. Якщо сума цих чисел менша 50, вивести ці числа, збільшені на 7, у противному разі - зменшені в 2 рази, вказавши для кожної змінної початкове й нове значення.
Program rabota1d;
Uses Crt;
Var X,y,z:real;
Begin
ClrScr;
Writeln('Vvedite 3 chisla');
readln(x,y,z);
If x+y+z<50 Then begin
write('Nachal6noe znachenie :',x:4:3); x:=x*7;
writeln(' Novoe znachenie :',x:4:3);
write('Nachal6noe znachenie :',y:4:3); y:=y*7;
writeln(' Novoe znachenie :',y:4:3);
write('Nachal6noe znachenie :',z:4:3); z:=z*7;
writeln(' Novoe znachenie :',z:4:3); end
else begin
write('Nachal6noe znachenie :',x:4:3); x:=x/2;
writeln(' Novoe znachenie :',x:4:3);
write('Nachal6noe znachenie :',y:4:3); y:=y/2;
writeln(' Novoe znachenie :',y:4:3);
write('Nachal6noe znachenie :',z:4:3); z:=z/2;
writeln(' Novoe znachenie :',z:4:3); end;
Readkey;
end.
2. Скласти програму з використанням оператора циклу.
Обчислити добуток натуральних парних чисел від і до n.
Program rabota2a;
Uses Crt;
Var z,I,n: integer;
Begin
ClrScr;
write ('Vvedute kolichestvo chisel n: ');
readln(n);
z:=1;
For i:=1 To n Do
If i mod 2=0 Then z:=z*i;
write('Proizvedenie parnix chisel ravna: ',z);
Readkey;
end.
Обчислити добуток натуральних парних чисел від 1 до 500, кратних 3, але некратних 9.
Program rabota2b; {500-большое число, вводите меньше иначе зависните}
Uses Crt;
const n=500;