Построить логические схемы следующих сложных ЛВ: 1) А и С или В и (А и В или В) 2) ((А или В) и С) и (А или С) 3) А и В и (А и С) 4) А и (С и (А или В))
Объясняю: нужно найти сумму каждого участника, после чего найти максимальное значение и вывести его на экран.
Сначала мы вводим эти самые , потом складываем. Далее Sort3(Iv,Pet,Sid) - это функция. Если вы не знакомы с функциями, то просто перерисуйте вместо этого укрупненного блока все, что на следующей странице, вместо переменных а, в и с подставляя те переменные, которые вы используете для хранения суммы участников.
Что делает функция Sort3: он сортирует по убыванию значения, хранящиеся в переменных а,в и с. После чего для того, чтобы получить максимальное значение, нам достаточно вывести первый элемент - а. Функция Swap выполняет обмен значений переменных. Sort2 - сортирует два элемента. Она вс для Sort3.
В основной программе вместо переменных а,в и с использовались переменные Iv, Pet и Sid. При неиспользовании функций подставляйте их.
Можно использовать простые развилки и не заморачиваться с Sort3, но выходит неэффективно, некрасиво.При увеличении числа участников количество развилок вырастет в несколько раз - оно вам надо? Проще отсортировать.
1) uses crt; var a,s:real; i,n:integer; begin write('Введите число А: '); readln(a); write('Введите число N: '); readln(n); s:=1; for i:=1 to n do begin s:=s*a; end; writeln('Число ',a,' в степени ',n,' равно ',s); end.
2)uses crt; var a,s:real; i,n:integer; begin write('Введите число А: '); readln(a); write('Введите число N: '); readln(n); s:=1; for i:=1 to n do begin s:=s*a; writeln(a,' в степени ',i,' равно ',s); end; end.
3)uses crt; var a,s,p:real; i,n:integer; begin write('Введите число А: '); readln(a); write('Введите число N: '); readln(n); s:=1; p:=1; write('1 + '); for i:=1 to n do begin s:=s*a; p:=p+s; if i<n then write(s,' + '); if i=n then write(s,' = '); end; writeln(p); end.
Объясняю: нужно найти сумму каждого участника, после чего найти максимальное значение и вывести его на экран.
Сначала мы вводим эти самые , потом складываем. Далее Sort3(Iv,Pet,Sid) - это функция. Если вы не знакомы с функциями, то просто перерисуйте вместо этого укрупненного блока все, что на следующей странице, вместо переменных а, в и с подставляя те переменные, которые вы используете для хранения суммы участников.
Что делает функция Sort3: он сортирует по убыванию значения, хранящиеся в переменных а,в и с. После чего для того, чтобы получить максимальное значение, нам достаточно вывести первый элемент - а. Функция Swap выполняет обмен значений переменных. Sort2 - сортирует два элемента. Она вс для Sort3.
В основной программе вместо переменных а,в и с использовались переменные Iv, Pet и Sid. При неиспользовании функций подставляйте их.
Можно использовать простые развилки и не заморачиваться с Sort3, но выходит неэффективно, некрасиво.При увеличении числа участников количество развилок вырастет в несколько раз - оно вам надо? Проще отсортировать.
1) uses crt;
var a,s:real;
i,n:integer;
begin
write('Введите число А: ');
readln(a);
write('Введите число N: ');
readln(n);
s:=1;
for i:=1 to n do begin
s:=s*a;
end;
writeln('Число ',a,' в степени ',n,' равно ',s);
end.
2)uses crt;
var a,s:real;
i,n:integer;
begin
write('Введите число А: ');
readln(a);
write('Введите число N: ');
readln(n);
s:=1;
for i:=1 to n do begin
s:=s*a;
writeln(a,' в степени ',i,' равно ',s);
end;
end.
3)uses crt;
var a,s,p:real;
i,n:integer;
begin
write('Введите число А: ');
readln(a);
write('Введите число N: ');
readln(n);
s:=1;
p:=1;
write('1 + ');
for i:=1 to n do begin
s:=s*a;
p:=p+s;
if i<n then write(s,' + ');
if i=n then write(s,' = ');
end;
writeln(p);
end.