русс | укр

Мови програмуванняВідео уроки php mysqlПаскальСіАсемблерJavaMatlabPhpHtmlJavaScriptCSSC#DelphiТурбо Пролог

Компьютерные сетиСистемное программное обеспечениеИнформационные технологииПрограммирование


Linux Unix Алгоритмічні мови Архітектура мікроконтролерів Введення в розробку розподілених інформаційних систем Дискретна математика Інформаційне обслуговування користувачів Інформація та моделювання в управлінні виробництвом Комп'ютерна графіка Лекції


Опис змінних


Дата додавання: 2014-11-27; переглядів: 888.


N - Скільки років буде навчатися Гаррі

X, P1 - Скільки витратив галлеонів Гаррі на підручники перед першим роком

P2- Скільки витратив галлеонів Гаррі на підручники перед другим роком

P - Скільки витрачав галлеонів Гаррі на підручники кожного року, починаючи з третього

N1 – Поточний рік навчання

S – Кошти за всі попередні роки перед поточним, починаючи з третього

S1 - Загальна сума, витрачена на підручники за всі роки

program Potter;

var n,p1,p2,p,n1,x,s,s1:integer;

begin

writeln('Скільки років буде навчатися Гаррі?');

readln(n);

writeln('Скільки витратить галлеонів Гаррі на підручники перед першим роком');

readln(x);

p1:=x;p2:=2*x;

writeln('рік навчання сума галлеонів');

writeln('1',' ',p1);

writeln('2',' ',p2);

n1:=2; p:=p1+p2; s:=0; s1:=0;

if n>2 then

repeat

s:=s+p;

p:=s;

s1:=s1+p;

n1:=n1+1;

writeln(n1:2,' ',p);

until(n1=n);

writeln('загальна сума, витрачена на підручники=',s1:5);

readln; end.

 

5.3. Коли будування родинного замку завершувалося, головний виконроб Дуська виявила, що нам не вистачає потроху різних будівельних матеріалів. Тому Петрик з таксою пішли до будівельного супермаркету, щоб їх придбати. Але такса Дуська дуже хвилюється, що ми можемо потрапити у незручне становище, оскільки у нас залишилося мало грошей. Напишіть програму, яка б запитувала вартість кожної наступної покупки, виводила суму, яку ми витратили на даний момент, і коли ця сума виявиться більшою, ніж кошти, що є у Дусі, повідомляла, останню покупку треба повернути на поличку магазину.

program summa;

var s,s1,x:integer;

begin

writeln(‘Скільки грошей у Дуськи?’);

readln(s);s1:=0;

repeat

writeln('Скільки коштує покупка?');

readln(x);

s1:=s1+x;

writeln('Всьго витрачено=',s1:3);

until s1>s;

writeln('Поверніть на поличку'); end.

 


<== попередня лекція | наступна лекція ==>
Складемо програми на цикл повторення з післяумовою | МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ УКРАИНЫ


Онлайн система числення Калькулятор онлайн звичайний Науковий калькулятор онлайн