До ть Спортсмен на тренуванні ставить собі за мету пробігти певну кількість кілометрів, підраховуючи після кожного круга, чи не пора припинити тренування. Виберіть тип циклу, який найбільше підходить для вирішення задачі.
а) цикл з короткою умовою
б) цикл з параметром
в) цикл з складною умовою
С++ :
1)
#include <iostream>
using namespace std;
int x,y,a;
int main()
{
cout << "Enter X and Y " << endl;
cin >> x >> y;
a=2*x + 18*y;
cout << "a = " << a;
}
2)
#include <iostream>
#include <cmath>
using namespace std;
float a,b,c;
int main()
{
cout << "Enter A and B " << endl;
cin >> a >> b;
c=sqrt(pow(a , 2) + pow(b , 2));
cout << "c = " << c;
}
Комментарий :
a,b - катеты, c - гипотенуза.pow(a,b) - возведение числа a в степень b ( аналогом может служить умножения переменной самой на себя)2)
Pascal :
program ideone;
uses crt;
var a,b,c:real;
begin
clrscr;
write('Введите А и В');
readln(a,b);
c:=sqrt(a*a + b*b);
writeln(c);
end.
1)
program ideone;
uses crt;
var a,x,y:integer;
begin
clrscr;
write('Введите X и Y ');
readln(x,y);
a:=2*x + 18*y;
writeln(a);
end.
program raf105;
const
n = 10;
var
d:array[1..n] of integer;
min,max,sum,notmax,i: integer;
begin
max:= -10000;
min:= 10000;
writeln('Заполните массив');
for i:=1 to n do
begin
readln(d[i]);
sum+= d[i];
if max<d[i]
then max:= d[i];
end;
for i:=1 to n do
begin
if d[i]<>max
then notmax+= 1;
if (d[i]>sum) and (d[i]<min)
then min:= d[i];
end;
if min<>10000
then writeln('Минимальный среди элементов, больших суммы: ',min)
else writeln('Минимальный среди элементов, больших суммы: Не найдено');
writeln('Количество элементов, не равных максимальному: ',notmax);
end.
Язык PascalABC