Главная Случайная страница


Полезное:

Как сделать разговор полезным и приятным Как сделать объемную звезду своими руками Как сделать то, что делать не хочется? Как сделать погремушку Как сделать так чтобы женщины сами знакомились с вами Как сделать идею коммерческой Как сделать хорошую растяжку ног? Как сделать наш разум здоровым? Как сделать, чтобы люди обманывали меньше Вопрос 4. Как сделать так, чтобы вас уважали и ценили? Как сделать лучше себе и другим людям Как сделать свидание интересным?


Категории:

АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника






Составить программу для вычисления. Составление, ввод, трансляция и выполнение программ линейной структуры

⇐ ПредыдущаяСтр 5 из 5

Задание 1

Составление, ввод, трансляция и выполнение программ линейной структуры.

Разработать, ввести в ЭВМ и отладить программу для расчета площади поверхности и объема шара известного радиуса.

 

начало
конец
Ввод R
Вывод S, V
s:=4*pi*sqr(r)
v:=(4*pi*sqr(r)*r)/3

 

 


program shar;

var r,s,v:real;

begin

write('vvesti radius'); {ввести радиус}

read(r); {команда ввода}

s:=4*pi*sqr(r); {формула площади}

v:=(4*pi*sqr(r)*r)/3; {формула объема}

write ('ploschad = ',s:5:4, ' obem = ',v:5:4); {выводы}

readln;

end.

 

№ Ход выполнения r s v
  Вывод текста 'vvesti radius'      
         
      2827.4334 14137.1669
         
  Вывод текста ploschad =2827.4334, obem = 14137.1669      

 

 


 

Задание 2

Составление, ввод, трансляция и выполнение программ разветвляющейся структуры.

Составить программу для вычисления

 

начало
Блок-схема:

 

конец
Ввод x, a
Вывод f
f:=(exp(ln(x)*4)+x)/cos(x+pi/4)
x<=a
f:=ln(abs(x+4))/sqrt(abs(x-3))

 

 


Программа:

program funkc;

var f,x,a:real;

begin

write ('vvedite a '); {ввод а}

readln (a);

write ('vvedite x '); {ввод х}

readln(x);

if x<=a then f:=(exp(ln(x)*4)+x)/cos(x+pi/4) {проверка условия и дествия}

else f:=ln(abs(x+4))/sqrt(abs(x-3)); {действие если усл. не верно}

writeln('f= ',f:8:3); {вывод функции}

readln;

end.

№ Ход выполнения a x f
  Вывод текста vvedite a      
         
  Вывод текста vvedite x      
      2.5  
        2.647
  Вывод текста f= 2.647      



⇐ Предыдущая12345





Date: 2015-09-23; view: 946; Нарушение авторских прав


mydocx.ru - 2015-2024 year. (0.007 sec.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав - Пожаловаться на публикацию