Задача 1.
Определите количество пассажиров, которые могут поместиться на борт самолета, если его грузоподъемность 8 т. (вес каждого пассажира вводится пользователем).
1 способ:
1. Program su;
3. Const ves=8000;
4. Var N: integer;
5. S,V: real;
6. Begin
7. S:=0;
8. N:=0;
9. Repeat
10. Write(’Введите свой вес: ’);
11. Readln(V);
12. S:=S+V;
13. N:= N +1;
14. until S>=ves;
15. Writeln(’В самолете ’,N,’ пассажиров.’)
16.End.
2 способ:
1. Program su;
3. Const ves=8000;
4. Var N: integer;
5. S,V: real;
6. Begin
7. S:=0;
8. N:=0;
9. While S<ves do Begin
10. Write(’Введите свой вес: ’);
11. Readln(V);
12. S:=S+V;
13. N:= N +1;
14. End;
15. Writeln(’В самолете ’,N,’ пассажиров.’)
16.End.
Задача 2.
Сберегательная касса начисляет 6 % годовых (т.е. через год вклад увеличивается на 6 % без участия вкладчика). Какой станет сумма (в рублях), положенная в сберкассу на n лет?
1. Program su;
3. Const p=0.06;
4. Var n,g: integer;
5. sum: real;
6. Begin
7. Write(’Введите Вашу сумму: ’);
8. Readln(sum);
9. Write(’На сколько лет вы положили вклад? ’);
10. Readln(n);
11. g:=0;
12. While g<n do begin
13. sum:=sum+sum*p;
14. g:=g +1;
15. End;
16. Writeln(’Через ’,N,’ лет сумма вклада равна ’,sum )
17.End.
Проверьте себя:
1. Запишите на Паскале. Что будет результатом выполнения программ:
1. НАЧ
2. a:=19; b:=7; c:=0;
3. НЦ пока a>b
4. c:=c+1; b:=b+1;
5. КЦ
6. Вывод (c)
7. КОН
1. НАЧ
2. Ввод (a,b);
3. Если (a>b) и (b>0) то
4. c:=0; x:=0
5. НЦ пока a>b
6. c:=c+1; x:=x+b;
7. КЦ
8. Вывод (c)
9. КОН
2. Начальный вклад в сберкассу составил Q рублей. Через сколько лет он станет равным D рублей? Каждый год вклад увеличивается на 7,5% (Q<D)
3. Начальный вклад в сберкассу составил А рублей. Через сколько лет он станет больше В рублей? Каждый год вклад увеличивается на 9%
4. Сколько билетов было продано на паром, если его грузоподъемность 5 тонн.
(каждый пассажир встает на весы вместе с грузом)?
5. Сколько билетов было продано на аттракцион “Карусель”, если его грузоподъемность 3 тонны.