- •1. Простые операторы
- •2 Условный оператор If
- •3 Условный оператор Case.
- •Ручной счет.
- •4 Оператор цикла For
- •5. Оператор циклаRepeat…Until
- •6. Оператор повтораWhile
- •7.Вложенные циклы
- •8 Одномерные массивы
- •1. Алгоритмы поиска и присвоения значений элементам массива
- •2. Алгоритмы нахождения суммы, произведения и количества элементов массива. Работа с индексами элементов массива
- •3. Алгоритмы нахождения наибольшего или наименьшего элемента массива и его индекса
- •9. Двумерные массивы
- •1. Алгоритмы действий над элементами двумерного массива
- •2 Алгоритмы формирования одномерного массива
1. Простые операторы
Для двух данных чисел найти среднее арифметическое и среднее геометрическое модулей этих чисел.
var a,s,x,y:real;
Begin
writeln('vvedite 2 chisla');
read(a,s);
x:=(a+s)/2;
y:=a*s/2;
writeln(x,y);
readln;
end.
Машинный
Счет.
Ручной счет.
Берем два числа 5 и 2 находим ср арефм. и ср геометр
Арефмет (5+2)/2=3,5 Геометрич 5*2/2=5
2. Для данного числа А, не пользуясь никакими арифметическими операциями, кроме умножения, получить А8за три операции и А10, А16, за четыре операции.
var a,x,y,z,w,e:real;
begin
write('vvedite A');
read(a);
x:=a*a;
y:=x*x;
z:=y*y;
w:=z*a*a;
e:=z*z;
writeln(z,' a_v_stepeni_8');
writeln(w,' a_v_stepeni_10');
writeln(e,' a_v_stepeni_16');
readln(x);
end.
3.Мальчик купил несколько тетрадей по 100 рублей и несколько обложек по 50 рублей. Составить программу, которая могла бы подсчитать стоимость всей покупки.
var a,s,d:byte;
begin
writeln('vvedite kolichestvo tetradeyi i obloghek');
read(a,s);
d:=(a*100)+(s*50);
writeln(d);
readln(d);
end.
Машинный счет
Ручной счет
(6*100)+(7*50)=950
4. Даны две целые переменные A,B. Составить фрагмент программы, после исполнения которого, значения переменных поменялись бы местами (новое значениеAравно старому значениюBи наоборот), не используя дополнительных переменных.
var A,B,C:integer;
begin
writeln('vvedite dve peremennie');
read(A,B);
C:=A;
A:=B;
B:=C;
writeln(A,B);
readln(A);
end.
2 Условный оператор If
1. Определить является ли данное целое число R четным. Дать словесный ответ
var a,x:integer;
begin
writeln('vvedite chislo');
read(a);
x:=a;
if x mod 2 = 0 then writeln('chetnoe') else writeln('nechetnoe');
end.
Машинный счет.
Ручной счет
9/2=3-нечет
8/2=4-четное
2.Дано целое положительное число N(10<=N<=99). Выяснить, верно ли, чтоNравно кубу суммы цифр числаN.
var a,b,c,d:byte;
begin
writeln('vvedite chislo ot 10 do 99');
readln(a);
if (a>=10) or (a<=99) then
begin
b:=a div 10;
c:=a mod 10;
d:=(c+b)*(c+b)*(c+b);
if d=a then writeln('chislo ravno kubu summi chisel')
else writeln('chislo ne ravno kubu summi chisel');
end;
else writeln('ne vernoe chislo');
end.
Машинный счет.
Ручной счет.
5+5=10
10^3=1000
1000≠55
3.Заданы три числа X, Y, Z. Найти min(XYZ, X+Y+Z).
Program P8;
var
x,y,z,K,S:integer;
begin
writeln('vvedite x,y,z');
readln(x,y,z);
K:=X*Y*Z;
S:=X+Y+Z;
If K>S then write(S)
else if K=S then write(K);
readln;
end.
Ручной счет5+6+7=18
5*6*7=210
18<210
4.Даны три целых числа. Выбрать из них те, которые принадлежат интервалу [1,3].
var a,s,d:integer;
begin
writeln('vvedite chisla');
readln(a,s,d);
if (a>=1) and (a<=3) then writeln(a) ;
if (s>=1) and (s<=3) then writeln(s) ;
if (d>=1) and (d<=3) then writeln(d);
end.
Машинный счет.
Ручной счет.
1=1 подходит
5>1 5>3 – не подходит
2>1 2<3 подходит
В интервал входят числа 1 и 2.
5.Дано целое положительное число N(N<=1000). Определить сколько цифр в этом числе.
var a:word;
begin
writeln('vvedite chislo ot 1 do 1000');
read(a);
if (a>=1) and (a<=1000) then
begin
if a=1000 then writeln(4);
if (a>=100) and (a<1000) then writeln(3);
if (a>=10) and (a<100) then writeln(2);
if (a>=1) and (a<10) then writeln(1);
end
else writeln('ne vernoe chslo');
end.
Машинный счет
Ручной счет.
1=1 и 1<10 => в числе одна цифра
6.Вычислить max(min(a,b),max(c,d)).
var min,max,a,b,c,d:real;
begin
writeln('VVEDITE 4 CHISLA');
read(a,b,c,d);
if a>b then min:=b else min:=a;
if c>d then max:=c else max:=d;
if min>max then writeln(min) else writeln(max);
end.
Машинный счет.
Ручной счет.
Найти минимальное из двух чисел 5 и 4.
5>4 => 4 min