profile
Размещено 6 лет назад по предмету Информатика от st62

Сделать расчет на ЭВМ (PASCAL ABC) ((НУЖНА ПОМОЩЬ))

((1))
Function C (r: real): real;
Begin
C:=3.14*r;
End;
Var
cc,r1,r2,r3,r4:real;
Begin
Write('Введите значение r1=');
Readln(r1);
Write('Введите значение r2=');
Readln(r2);
Write('Введите значение r3=');
Readln(r3);
Write('Введите значение r4=');
Readln(r4);
cc:=C(r1)+C(r2)+C(r3)+C(r4);
Writeln('c=',cc:5:2);
End.

((2))
var
x1, x2, x3, x4, mn : integer;
function min (a, b : integer) : integer;
begin
if a < b
then min := a
else min := b
end;
begin
write('введите 4 числа: ');
readln(x1, x2, x3, x4);
{Эхо-печать}
mn := min(x1, min(x2, min(x3, x4)));
writeln('минимум: ', mn);
end.

((3))
Var
x:real;
res:real;
y:word;
Begin
clrscr;
write('Введите число в метрах, которое нужно преобразовать: ');
Readln(x);
writeln('Введите во что преобразовывать: ');
writeln('[1] - Декаметр');
writeln('[2] - Гектаметр');
writeln('[3] - Километр');
writeln('[4] - Мириаметр');
writeln('[5] - Мегаметр');
readln(y);
Case y of
1:
begin
res:=x*0.10; writeln('В ',x:3:2,' м ', res:3:2, ' Декаметров');
end;
2:
begin
res:=x*0.01; writeln('В ',x:3:2,' м ',res:3:2, ' Гектаметров');
end;
3:
begin
res:=x*0.001; writeln('в ',x:3:2,' м ',res:3:2,' Километров ');
end;
4:
begin
res:=x*0.0001; writeln('В ',x:3:2,' м ',res:3:2,' Мириаметров');
end;
5:
begin
res:=x*0.00001; writeln('В ',x:3:2,' м ',res:3:2,'Мегаметров');
end;
end;
readln
end.

((4))
program lab6;
uses crt;
function a(n:integer):real;
begin
a:=1/n*sin(pi/4*n)+1/sqr(n)*cos(pi/4*n);
end;
var i:integer;
begin
clrscr;
for i:=10 to 25 do
writeln(i:2,'=',a(i):7:5);
readln
end.

Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 6 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.