Составить программу паскаль 1.вычислить y={x+(1/2x)-0.3, если x< 2, {x-2, если x≥2 составить программу паскаль 2. ввести с клавиатуры переменную c. переменной b присвоить значение, равное 4. если c> b, вывести на экран их сумму.
Круги́ э́йлера — схема, с которой можно изобразить отношения между подмножествами, для наглядного представления. изобретены эйлером. используется в , логике, менеджменте и других прикладных направлениях. важный частный случай кругов эйлера — диаграммы эйлера — венна, изображающие все 2n комбинаций n свойств, то есть конечную булеву . при n=3 диаграмма эйлера — венна обычно изображается в виде трёх кругов с центрами в вершинах равностороннего треугольника и одинаковым радиусом, приблизительно равным длине стороны треугольника. при решении целого ряда леонард эйлер использовал идею изображения множеств с кругов. однако, этим методом еще до эйлера пользовался филосов и готфрид вильгельм лейбниц (1646—1716). но достаточно основательно развил этот метод сам л. эйлер. методом кругов эйлера пользовался и эрнст шрёдер (1841—1902) в книге « логики» . особенного расцвета графические методы достигли в сочинениях логика джонa венна (1843—1923), подробно изложившего их в книге «символическая логика» , изданной в лондоне в 1881 году. поэтому такие схемы иногда называют диаграммы эйлера — венна.
Известны два расстояния: одно в километрах, другое—в футах(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 фут=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.