1. Условный оператор целесообразно использовать в программе: *
составленной для линейного алгоритма
вычисляющей значение выражения
подсчитывающей количество символов
вычисляющей квадратный корень уравнения
2. Отметьте, что произойдет в результате выполнения следующей программы *
Подпись отсутствует
увеличение меньшего из двух чисел вдвое
уменьшение меньшего из двух чисел вдвое
увеличение большего из двух чисел вдвое
уменьшение большего из двух чисел вдвое
3. В результате выполнения фрагмента программы, представленной ниже, переменная С примет значение: *
Подпись отсутствует
5
-15
25
4. При выполнении фрагмента программы, переменная с примет значение 4, если: *
Подпись отсутствует
а = 3, b = 3
а = 1, b = 4
а = 1, b = 3
а = 4, b = 1
5. В результате выполнения фрагмента программы, переменная с примет значение: *
Подпись отсутствует
2
0
1
-2
6. Запишите, как называется конструкция вида begin <последовательность операторов> end *
7. Запишите условный оператор, обозначающий разветвляющиеся алгоритмы на языке Паскаль *
8. Запишите неполный условный оператор, обозначающий неполные ветвления на языке Паскаль *
Я так понимаю, что а2 -это а умножить на 2, а b2 - это b умножить на 2
a) a*2+b*2;
b) a*b+b*c;
c) a+b -245*(a+b)*2*c;
4. Program Avgarif;
Uses crt;
var a,b,c,d,res:real;
begin
clrscr;
write('Введите 1 число: ');
readln(a);
write('Введите 2 число: ');
readln(b);
write('Введите 3 число: ');
readln(c);
write('Введите 4 число: ');
readln(d);
res:=(a+b+c+d)/4;
writeln('Среднее арифметическое:',res);
readkey;
end.
5. Program Kvadrat;
Uses crt;
var a,p: real;
begin
clrscr;
write('Введите сторону квадрата а: ');
readln(a);
p:=4*a;
writeln('Периметр квадрата: ',p);
readkey;
end.
6.Program Prjamoug;
Uses crt;
var a,b,p,s: real;
begin
clrscr;
write('Введите 1 сторону прямоуголника: ');
readln(a);
write('Введите 2 сторону прямоуголника : ');
readln(b);
s:=a*b;
p:=2*a+2*b;
writeln('Периметр прямоугольника: ',p);
writeln('Площадь прямоугольника : ',s);
readkey;
end.
7. Program Arifm;
Uses crt;
var a,b,r,s,p,d: real;
begin
clrscr;
write('Введите 1 число: ');
readln(a);
write('Введите 2 число: ');
readln(b);
p:=a*b;
s:=a+b;
d:=a/b;
r:=a-b;
writeln('Произведение a и b: ',p);
writeln('Сумма a и b : ',s);
writeln('Частное a и b: ',d);
writeln('Разность a и b : ',r);
readkey;
end.
#include <time.h>
#include <stdio.h>
#include <conio.h>
#define N 10
int main() {
int a[N], min, max;
size_t n, ix_min, ix_max, beg, end;
srand((unsigned)time(NULL));
for (n = 0; n < N; n++) a[n] = rand();
for (n = 0; n < N; n++) printf("%6i", a[n]);
printf("\n");
ix_max = ix_min = 0;
min = max = a[0];
for (n = 1; n < N; n++) {
if (a[n] < min) {
min = a[n];
ix_min = n;
}
if (a[n] > max) {
max = a[n];
ix_max = n;
}
}
beg = ix_min < ix_max ? ix_min : ix_max;
end = ix_min > ix_max ? ix_min : ix_max;
++beg;
if (beg - end > 0)
for (n = beg; n < end; n++)
printf(" %i ", n + 1);
else printf("Elements are absent\n");
_getch();
return 0;
}