Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
Составить программу для вычисления
Задание 1
Составление, ввод, трансляция и выполнение программ линейной структуры.
Разработать, ввести в ЭВМ и отладить программу для расчета процента выполнения плана предприятием, если известны плановый и фактический выпуск продукции.
| начало |
| конец |
| Ввод x, y |
| Вывод p |
| p:=y*100/x |
program plan;
var x,y:integer; p:real;
begin
writeln('produkcii po planu = ');
readln(x); {ввод количества по плану}
writeln('produkcii vipuscheno = ');
readln(y); {ввод уже выпущенной продукции}
p:=y*100/x; {формула расчета выполнения плана}
writeln('plan vipolnen na ',p,'%'); {вывод процента выполнения плана}
readln;
end.
| № | Ход выполнения | x | y | p |
| Вывод 'produkcii po planu = ' | ||||
| Вывод 'produkcii vipuscheno = ' | ||||
| Вывод 'plan vipolnen na ',p,'%' |
Задание 2
Составление, ввод, трансляция и выполнение программ разветвляющейся структуры.
Составить программу для вычисления
Блок-схема:
| начало |
| конец |
| Ввод x, a |
| Вывод F |
| f:=3*sqr(x)+2*x-1 |
| x<0 |
| f:=a*x-3 |
Программа:
program vetvlenie;
var x,a,f:real;
begin
writeln('vvesti x, a'); {ввести исходные данные x и а}
readln(x,a);
if x<0 then f:=3*sqr(x)+2*x-1 {если х < 0 то f=3x2+2x-1}
else f:=a*x-3; {иначе f=ax-3}
writeln('f= ',f); {вывод f}
readln;
end.
| № | Ход выполнения | x | а | f |
| Вывод 'vvesti x, a' | ||||
| Если x<0 то f:=3*sqr(x)+2*x-1 | ||||
| Иначе f:=a*x-3 | ||||
| Вывод f | ||||
Date: 2015-09-23; view: 2382; Нарушение авторских прав; Помощь в написании работы --> СЮДА... |