Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
Составить программу для вычисления. Составление, ввод, трансляция и выполнение программ линейной структуры
|
|
Задание 1
Составление, ввод, трансляция и выполнение программ линейной структуры.
Разработать, ввести в ЭВМ и отладить программу для расчета количества кусков обоев, известных размеров, которое понадобиться для оклейки стен в комнате, если известны периметр комнаты и ее высота.
| начало |
| конец |
| Ввод длины и высоты куска обоев a,b |
| Вывод S |
| s:=(p*h)/(a*b) |
| Ввод высоты и периметра комнаты h,p |
program oboi;
var a,b,p,h,s: real;
begin
writeln('vvedite dlinu i visotu kuska oboev: '); {ввод a,b обоев}
readln(a,b); {оператор ввода}
writeln('vvedite perimetr i visotu komnati: '); {ввод пер-ра и высоты комн}
readln(p,h); {оператор ввода}
s:=(p*h)/(a*b); {вычисление количества}
writeln('ponadobitsya ',s,' kuskov'); {вывод - сколько кусков}
readln; {обоев потребуется}
end. {конец программы}
| № | Ход выполнения | a | b | p | h | s |
| Вывод текста vvedite dlinu i visotu kuska oboev | ||||||
| Вывод тектса vvedite perimetr i visotu komnati: | ||||||
| 1,8 | ||||||
| Вывод текста ponadobitsya 1,8 kuskov |
Задание 2
Составление, ввод, трансляция и выполнение программ разветвляющейся структуры.
Составить программу для вычисления
| начало |
| Ввод x,y,z |
| Вывод F |
| f:=exp(sqr(sin(x*y))+z) |
| cos x<tg yz |
| f:=cos(pi/3+y)/sin(pi/3+y) |
| конец |
program funk;
var x,y,z,f:real;
begin
write ('vvesti x,y,z');
readln(x,y,z); {вводим исходные данные x,y,z}
if cos(x)<sin(y*z)/cos(y*z) {если cos x < tg yz то}
then f:=exp(sqr(sin(x*y))+z) {вычисляем f по формуле 
}
else f:=cos(pi/3+y)/sin(pi/3+y); {иначе по формуле 
}
writeln('f= ',f); {вывод результата f}
readln;
end.
| № | Ход выполнения | x | y | z | f |
| Вывод текста vvesti x,y,z | |||||
| 1.2 | |||||
| -10.56 | |||||
| Вывод текста f=-10.56 |
Date: 2015-09-23; view: 2040; Нарушение авторских прав