не знаю паскаль, знаю c++ : )
{
int a, b;
//вводим значения в a и в b (в футах)
cin > > a > > b;
b = b*45;
if (a> b) cout < < "в км больше";
else cout > > "в футах больше";
}
{
// тут важен дробный тип
dooble a, b;
//вводим значения в a и в b (м/c)
cin > > a > > b;
a = a: 3.6;
if (a> b) cout < < "в км/ч больше";
else cout > > "в м/с больше";
}
ну а дальше надо уже все по формулам смотреть.
{
doouble a,b;
//вводим значения в a и в b стороны
cin > > a > > b;
a=a*a*3.14;
b=b*b;
if(a> b) cout < < "площадь круга больше";
else cout < < "площадь квадрата больше";
}
4. не знаю как такое делать, что значит уместиться ли круг в квадрате? уместится если радиус его меньше чем половина стороны.
5.
{
doouble a,b,c,d;
cin > > a > > b > > c > > d; // вводим объем и массу;
a = a/b;
c = c/d;
if(a> c) cout < < "тело 1 имеет плотность больше чем тело 2";
else cout < < "тело 2 имеет большую плотность";
}
6. не знаю. но тоже как-то через форумулы.
известны два расстояния: одно в километрах, другое—в футах(1 фут=0,45 м). какое из расстояний меньше? program ss; uses crt; var a,b,c,s,s1: integer; begin clrscr; writeln('введите расстояние в километрах: '); readln(a); writeln('введите расстояние в футах'); readln(b); writeln('введите размер одного фута в метрах'); s: =a*1000; s1: =c*b;
if s> s1 then begin write('расстояние в футах меньше чем в км'); end else writeln('расстояние в км меньше чем в футах'); writeln(' программа завершена нажмите '); readln; end.
известны две скорости: одна в километрах в час, другая—в метрах в секунду. какая из скоростей больше? program evgen; var kilom: real; metr: real; begin kilom : = metr * 1.6; write('введите скорость в км\ч: '); readln(kilom); write('введите скорость в м\с: '); readln(metr); if kilom < metr then write('скорость в км\ч больше'); if kilom > metr then write('скорость в км\ч меньше'); if kilom = metr then write('скорость в км\ч равна скорости в м\ч'); end.
даны радиус круга и сторона квадрата. у какой фигуры площадь больше program ploshcad; var r,d,skr,skv: extended; begin write('введите радиус круга: '); readln®; write('введите сторону квадрата'); readln(d); skr: =pi*sqr®; writeln('площадь круга: ',skr: 10: 5); skv: =sqr(d); writeln('площадь квадрата: ',skv: 10: 5); if skr=skv then writeln('площади равный'); if skr> skv then writeln('площадь круга больше'); if skv< skr then writeln('площадь квадрата больше'); readln; end.
известны площади круга и квадрата. определить: a) уместится ли круг в квадрате? b) уместится ли квадрат в круге? program prim; var a,r,s1,s2: real; begin write('введите площадь круга и квадрата'); readln(s1, s2); a: =sqrt(s2); r: =sqrt(s/3.14); if (r< a/2) then writeln (' круг уместится в квадрате') else writeln (' круг не уместится в квадрате'); if (a*sqrt(2))> (4*r) then writeln ('квадрат уместится в круге') else writeln('квадрат не уместится в круге'); readln end.
даны объёмы и массы двух тел из разных материалов. материал какого из тел имеет большую плотность. var v1,v2,m1,m2,p1,p2: real; begin writeln('введите объем и массу первого тела'); readln(v1,m1); writeln('введите объем и массу второго тела'); readln(v2,m2); p1: =v1/m1; p2: =v2/m2; if p1> p2 then begin writeln('плотность первого тела больше'); end; if p1< p2 then begin writeln('плотность второго тела больше'); end else if p1=p2 then begin writeln('плотности тел равны'); end.
Поделитесь своими знаниями, ответьте на вопрос:
1. перевести данное число из десятичной системы счисления в двоичную, восьмеричную и шестнадцатеричную системы счисления. а) 167(10)=10100111(2)=247(8)=a7(16); б) 113(10)=1110001(2)=161(8)=71(16); в) 607,5(10)=1001011111,1(2)=1137,4(8)=25f,8(16); г) 828,25(10)=1100111100,01(2)=1474,2(8)=33c,4(16); д) 314,71(10)=100111010,10110101110000101000111101011100001010001111010111(2)= =472,55341217270243656050753412172702436560507534121727(8)==13a,b5c28f5c28f5c28f5c28f5c28f5c28f5c28f5c28f5c28f5c28(16)2. перевести данное число в десятичную систему счисления. а) 110010001(2)=401(10); б) 100100000(2)=288(10); в) 1110011100,111(2)=924,875(10); г) 1010111010,1110111(2)=698.9296875(10); д) 704,6(8)=452,75(10); е) 367,38(16)=871,21875(10). 3. сложить числа. а) 10101100(2)+111110010(2)=1010011110(2); б) 1000000010(2)+110100101(2)=1110100111(2); в) 1110111010,10011(2)+1011010011,001(2)=11010001101,10111(2); г) 355,2(8)+562,04(8)=1137.24(8); д) 1e5,18(16)+3ba,78(16)=59f.9(16). 4. выполнить вычитание. а) 1010110010(2)-1000000000(2)= 10110010(2); б) 1111100110(2)-10101111(2)=1100110111(2); в) 1101001010,101(2)-1100111000,011(2)=10010,01(2); г) 1134,54(8)-231,2(8)=703,34(8); д) 2de,6(16)-12a,4(16)=1b4,2(16). 5. выполнить умножение. а) 10101(2)* 11010(2)=1000100010(2); б) 575,2(8)* 102,2(8)=61251,648; в) 55,4(16)* 6,5(16)=21a.24(16). 6. выполнить деление.а) 1110111000(2) : 1110(2)=1000100(2); б) 6457(8) : 33(8)=175(8); в) af0(16) : 1c(16)=64(16).