Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
Составить программу для вычисления. Составление, ввод, трансляция и выполнение программ линейной структуры
Задание 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 |
Date: 2015-09-23; view: 913; Нарушение авторских прав; Помощь в написании работы --> СЮДА... |