Задача 1.
Каждую неделю Юра получает деньги на мелкие расходы. Из них он тратит x рублей на сладости. Это составляет одну четверть того, что он получает еженедельно. Юра сберегает одну треть того, что остается после покупки сладостей. Составьте программу, которая выведет на экран сумму, накопленную Юрой за год.
1. program Yura;
2. const n=365.0/7.0;
3. var x,s,s1,s2: real;
4. begin
5. write(’Какую сумму тратит Юра на сладости?’);
6. readln(x);
7. s1:=x*4; (*такую сумму Юра получает еженедельно*)
8. s2:=s1-x; (*столько Юра сберегает за неделю*)
9. s:=s2*n; (*столько Юра сберегает за год*)
10. writeln(’Сбережения Юры за год = ’,s)
11.end.
12.
13.{ writeln(’Сбережения Юры за год = ’,((x*4)-x)*n)) }
Задача 2.
Четыре человека пообедали в ресторане. Официант подал им счет на X рублей каждому. Они решают оставить официанту чаевые в размере 15% от счета. Составьте программу, которая выведет на экран сумму чаевых, которую получил официант.
1. program obed;
2. const s=15/100;
3. k=4;
4. var X,sum: real;
5. begin
6. write(’Введите сумму счета: ’);
7. readln(X);
8. sum:=X*s*K;
9. write(’Чаевые равны ’,sum)
10.end.
Задача 3.
Составьте программу определения затраченной работы при подъеме груза,
если известна полезная работа и КПД рычага.
1. program rabota;
2. const a=100;
3. var k, Az, Ap: real;
4. begin
5. write(’Какова полезная работа? ’);
6. readln(Ap);
7. write(’Чему равен КПД в %? ’);
8. readln(k);
9. Az := Ap*k/a;
10. writeln(’Затраченная работа = ’,Az)
11.end.
Задача 4.
Составьте программу запроса и печати результатов для определения средней экономии горюче-смазочных материалов в автобусном парке за месяц, если известна средняя экономия в день по бензину, солярке и солидолу.
1. program rabota1;
2. const a=3;
3. var m, B, Sl, So, SrSum: real;
4. begin
5. write (’Сколько дней в месяце? ’);
6. readln(m);
7. write(’Чему равна ежемесячная экономия по бензину, солярке и солидолу? ’);
8. readln(B,SL,So);
9. SrSum := (B+Sl+So)/a*m;
10. writeln(’Экономия за месяц смазочных средств = ’,SrSum)
11.end.
Проверьте себя.
1. Переведите на язык программирования следующие команды:
1. Ввести A,B
2. Увеличить A в 10 раз.
3. Уменьшить B 4 в раза.
4. Напечатать A, B.
5. Конец
2. Переведите на язык программирования следующие команды:
1. Ввести C,D.
2. Найти сумму C,D.
3. Увеличить эту сумму в 10 раз.
4. Напечатать результат.
5. Конец.
3. Переведите на язык программирования следующие команды:
1. Ввести M,K.
2. Поменять местами содержимое ячеек.
3. Распечатать результат.
4. Конец.
4. Напишите программу ввода значений A,B,C в одной строке и выведите результат математического выражения A*(B/3,14)+(C*3) в отдельной строке.
5. Напишите программу ввода значений R,Y в одной строке и выведите результат выражения R*Y+(Y/5) в отдельной строке.
6. Напишите программу для определения идеального веса человека в диалоге с компьютером. Идеальный вес подсчитать по формуле: Ид. Вес= Рост в см – 100. Результат вывести в следующем виде: “Для человека ростом … см идеальный вес равен… кг”.
7. Составьте программу, определяющую, сколько времени в минутах затратит школьник на дорогу от школы до стадиона, если известна длина этого расстояния S и средняя скорость школьника V км/час? Значения S и V задаются с клавиатуры.
8. Розничная цена мужского костюма составляет P рублей.
Торговая скидка в пользу магазина T% розничной цены. Составьте программу, определения оптовой цены костюма.
9. Составьте программу запроса и печати результатов для определения средней выручки магазина за месяц, если известна ежедневная выручка всех трех отделов магазина: бакалейного, молочного и хлебного.
10. Составьте программу, определяющую полезную работу, при поднятии груза, если известно КПД рычага и затраченная работа.