Цитата:
1. Составить программу, работающую в диалоговом режиме и вычисляющую заданную математическую функцию:
y = (2a + b) 2 + c3 / (d -2) npu a = 0.83; b = 4.2; c =- 6.7; d =- 1.5
|
Код:
VAR
a,b,c,d,y:Real;
BEGIN
Write('a= ');
ReadLn(a);
Write('b= ');
ReadLn(b);
Write('c= ');
ReadLn(c);
Write('d= ');
ReadLn(d);
y:=Sqr(a*2+b)+c*c*c/(d-2);
Writeln('y= ',y:9:3);
Readln;
END.
Цитата:
2. Мальчик положил в коробку столько кубиков, сколько их там уже было, и еще D штук. После этого в коробке оказалось N кубиков. Во сколько раз больше кубиков положил мальчик в коробку во второй раз, чем в первый?
|
Мало данных. К тому же формулировка задачи несколько туманная: непонятно, что есть "первый раз", а что "второй".
Цитата:
3. Составить программу, которая бы по температуре определяла физическое состояние воды.
|
Код:
VAR
t:Real;
BEGIN
Write('t= ');
ReadLn(t);
If t<0 then writeln('Ice') else
If t=0 then writeln('Melting ice') else
If t<100 then writeln('Liquid') else
If t=100 then writeln('Boiling liquid') else
writeln('Vapor');
Readln;
END.
Цитата:
4. Заданы точки А (x1, у1), В (х2, у2), С (х3, y3) и О (х4, у4). Определить, является ли точка О центром круга, проходящего через точки А, В, С. Длина отрезка рассчитывается по формуле:
|
Код:
VAR
x1,y1,x2,y2,x3,y3,x4,y4:Real;
BEGIN
Writeln('Point A:');
Write('x1= ');
Readln(x1);
Write('y1= ');
Readln(y1);
Writeln;
Writeln('Point B:');
Write('x2= ');
Readln(x2);
Write('y2= ');
Readln(y2);
Writeln;
Writeln('Point C:');
Write('x3= ');
Readln(x3);
Write('y3= ');
Readln(y3);
Writeln;
Writeln('Point O:');
Write('x4= ');
Readln(x4);
Write('y4= ');
Readln(y4);
Writeln;
If (SQRT(SQR(x4-x1)+SQR(y4-y1))=SQRT(SQR(x4-x2)+SQR(y4-y2))) and
(SQRT(SQR(x4-x1)+SQR(y4-y1))=SQRT(SQR(x4-x3)+SQR(y4-y3)))
then writeln('YES') else writeln('NO');
Readln;
END.
Цитата:
5. Составить программу для сравнения возраста трех детей.
|
Код:
VAR
Name1, Name2,Name3:String;
Age1,Age2,Age3:Real;
BEGIN
Writeln('Child_1:');
Writeln('Name:');
Readln(Name1);
Write('Age= ');
Readln(Age1);
Writeln;
Writeln('Child_2:');
Writeln('Name:');
Readln(Name2);
Write('Age= ');
Readln(Age2);
Writeln;
Writeln('Child_3:');
Writeln('Name:');
Readln(Name3);
Write('Age= ');
Readln(Age3);
Writeln;
If Age1>Age2 then Writeln(Name1+' is older then '+Name2);
If Age2>Age1 then Writeln(Name2+' is older then '+Name1);
If Age1>Age3 then Writeln(Name1+' is older then '+Name3);
If Age3>Age1 then Writeln(Name3+' is older then '+Name1);
If Age2>Age3 then Writeln(Name2+' is older then '+Name3);
If Age3>Age2 then Writeln(Name3+' is older then '+Name2);
If Age1=Age2 then Writeln(Name1+' has the same age as '+Name2);
If Age1=Age3 then Writeln(Name1+' has the same age as '+Name3);
If Age2=Age3 then Writeln(Name2+' has the same age as '+Name3);
Readln;
END.
Цитата:
6. N раз выполнить следующие действия: значение переменной Е отнять от значения переменной С и результат присвоить переменной С.
|
Код:
VAR
n,i:Integer;
C,E:Real;
BEGIN
Write('n= ');
Readln(n);
Write('C= ');
Readln(C);
Write('E= ');
Readln(E);
For i:=1 to n do
C:=C-E;
Write('C= ',C:9:3);
Readln;
END.
Цитата:
7. {Сосчитать расстояние (?)} в морских милях и километрах для значений миль от а до b с шагом с миль, зная что 1 морская миля = 1,852 км;
|
Код:
VAR
n,i:Integer;
a,b,c,x:Real;
BEGIN
Write('a= ');
Readln(a);
Write('b= ');
Readln(b);
Write('c= ');
Readln(c);
n:=Round((b-a)/c);
Writeln(' miles kilometres');
For i:=0 to n do
begin
x:=a+c*i;
Writeln(x:10:3, x*1.852:15:3);
end;
Readln;
END.
Цитата:
8. Вычислить произведение d = (1 + 1 / 12) • (1 + 1 / 22) • ... • (1 + 1/n2)
|
Код:
VAR
n,i:Integer;
P:Real;
BEGIN
Write('n= ');
Readln(n);
P:=1;
For i:=1 to n do
P:=P*(1+1/(10*i+2));
Writeln('P= ',P:15:3);
Readln;
END.