Программирование циклических алгоритмов
147
196. Дана программа на языке Паскаль:
program a4;
х, ki, k2: integer;
begin
ki:=0;
k2:=0;
repeat
writeln ( Введите целое число);
readln (x);
if x<0 then kl:=k1+1;
if x>0 then k2:=k2+1;
until x=0;
writeln (kl=',
К2=", к2)
end.
Составьте блок-схему, соответствующую программе.
чем являются результаты работы?
Відповідь:
Дивись фото
Пояснення:
<!DOCTYPE html>
<html>
<head>
<title>Price</title>
<meta charset="utf-8">
</head>
<body>
<p>стоимости переговоров</p>
</body>
<script>
{/*Написать логическое выражение для определения стоимости переговоров, если стоимость переговоров с 22 часов до 8 часов на 20% ниже, а в субботу и в воскресенье дополнительно предоставляется скидка 10%. */}
t = +prompt('время разговоров от 0 до 24 часов')
dt = +prompt('продолжительность разговора в минутах')
s = +prompt('стоимость минуты разговора')
d = +prompt('день недели от 1 до 7')
console.log('t=',t,'dt=', dt, 's=', s, 'd=', d)
function Price (t, dt, d, s) {
let startTalk = t*60
let price = 0
console.log('day = ', d)
for (let i =1; i<=dt; i++){
let night = false
let holiday = false
let p = s
if( (startTalk+i)%1440 === 0 ){
if (d<7){
d=d+1
console.log('day = ', d)
} else {
d=1
console.log('day = ', d)
}
}
if ( (startTalk+i)%1440>=1320 || (startTalk+i)%1440<480){
night = true
}
if ( d === 6 || d===7){
holiday = true
}
if (night){
p = p - s*0.2
}
if (holiday){
p = p-s*0.1
}
price = price+p
console.log('стоимости '+ i+'мин. = '+ p.toFixed(2)+'$')
}
console.log('fin.price', price.toFixed(2), '$')
return price.toFixed(2)
}
{/*Price(t, dt, d, s)*/}
alert('стоимости переговоров ' + '$' + Price(t, dt, d, s))
</script>
</html>
Прочитать статью о писателе и подобра
В какой семъе родился Чехов?
Какие невзгоды выпали на долю Чехова в детстве?
Почему семья переехала в Москву?
Чем занимался Чехов, оставшись один в Таганроге?
Как началась лтературная деятельность Чехова?
Какую профессию выбрал себе Чехов?+ вопрос 1 на стр. 165
Когда Чехов начал печататься?
Когда стал известен?
В каких жанрах писал автор?
Почему рассказы Чехова всегда да кратки?
В чём проявлось новаторство Чехова?Прочитать статью о писателе и подобра
В какой семъе родился Чехов?
Какие невзгоды выпали на долю Чехова в детстве?
Почему семья переехала в Москву?
Чем занимался Чехов, оставшись один в Таганроге?
Как началась лтературная деятельность Чехова?
Какую профессию выбрал себе Чехов?+ вопрос 1 на стр. 165
Когда Чехов начал печататься?
Когда стал известен?
В каких жанрах писал автор?
Почему рассказы Чехова всегда да кратки?
В чём проявлось новаторство Чехова?
Каково лексическое значение слова обыденный?
Каково лексическое значение слова обыденный?
Объяснение: