Составить алгоритм решения следующей даны 2 числа х и найдите сумму наибольшего из этих чисел и наименьшее увеличенного в 3 раза "
135
314
Ответы на вопрос:
Var x1,x2: integer; a1,a2: integer; begin writeln ('введите число х1 '); readln (x1); writeln ('введите число х2 '); readln (x2); a1: =x1+x2*3; a2: =x2+x1*3; if x1> x2 then writeln ('х1+(х2*3)=',a1) else writeln ('x2+(x1*3)=',a2); end.
Если часть программы, в которой выполняется поиск, оформить в виде процедуры, то получится вот так: const n=20; type arr=array[1..n] of integer; var a: arr; i,x: integer; procedure f(a: arr; x: integer); var i,i1,i2: integer; begin i1: =1; i2: =n; repeat i: =(i1+i2) div 2; if a[i]< x then i1: =(i1+i2) div 2+1; if a[i]> x then i2: =(i1+i2) div 2-1; until (a[i]=x)or(i1> i2); if a[i]=x then begin writeln('искомый(ые) номер(а) элемента(ов): '); while (i> 0)and(a[i]=x) do i: =i-1; i: =i+1; while (i< =n)and(a[i]=x) do begin write(i,' '); i: =i+1; end; end else writeln('элемент не найден'); writeln; end; begin randomize; a[1]: =random(10); write(a[1],' '); for i: =2 to n do begin a[i]: =a[i-1]+random(10); write(a[i],' '); end; writeln; write('x = '); readln(x); f(a,x); end. пример: 9 9 15 21 30 33 35 35 36 44 45 45 52 54 62 63 70 70 77 78 x = 35 искомый(ые) номер(а) элемента(ов): 7 8
Популярно: Информатика
-
kisasay112311.01.2023 18:33
-
mugivara9820p09uk721.12.2022 00:38
-
yourdream180606.11.2020 16:02
-
dianakokorina9127.05.2021 21:57
-
Azhar160507.04.2020 12:47
-
nazar9414.05.2020 09:55
-
alexsey1325.07.2022 08:50
-
Hamster0218.09.2021 14:04
-
alexey122298730.05.2020 14:01
-
AnDrejk408.02.2022 11:25