Подумайте, чем отличаются две программы?
1. Program p1;
2. Var a,b,c:real;
3. Begin
4. a:=27;
5. b:=68;
6. c:=a+b;
7. Writeln(’Сумма двух чисел=’,c)
8. End.
1. Program p2;
2. Var a,b,c:real;
3. Begin
4. Write(’Введи числа’);
5. Readln(a,b);
6. c:=a+b;
7. Writeln(’Сумма двух чисел=’,c)
8. End.
Подсказки:
1 программа – это частный случай нахождения суммы двух чисел, т.е.
если нужно найти сумму других чисел, надо переписывать программу.
2 программа будет работать для нахождения любых двух чисел, которые
мы зададим с помощью клавиатуры, используя вывод на экран монитора
запроса “Введите числа” с помощью оператора Write и ввода информации с клавиатуры с помощью оператора ввода Read.
Задача 1.
Хозяин хочет оклеить обоями длинную стену в своем доме. Длина стены равна l м, а высота h м. Рулон обоев имеет длину 12 м, ширину 1 м. Сколько будут стоить обои для всей стены, если цена одного рулона k рублей?
1. program oboi;
2. const rul=12; rul1=1;
3. var l,h,k,s,sr,cena,o: real;
4. begin
5. write(’Введи длину стены: ’);
6. readln(l);
7. write(’Введи высоту стены: ’);
8. readln(h);
9. write(’Сколько стоит рулон обоев? ’);
10. readln(k);
11. s:=l*h; (*нашли площадь стены*)
12. sr:=rul*rul1; (*нашли площадь рулона*)
13. o:=s/sr; (*нашли количество необходимых рулонов*)
14. cena:=k*o; (*цену рулона умножили на их кол-во*)
15. writeln(’Для оклейки всей стены обои будут стоить ’,cena,’ рублей’)
16.end.
Задача 2.
В магазине продается костюмная ткань. Ее цена B рублей за квадратный метр. Напишите программу, которая посчитает стоимость куска этой ткани, длиной X метров и шириной 80 см.
1. program tkan;
2. const shir=0.8;
3. var B,X,S,Cena:real;
4. begin
5. write(’Сколько стоит 1 кв.метр ткани?’);
6. readln(B);
7. write(’Сколько метров ткани купили? ’);
8. readln(X);
9. S:=X*shir;
10. Cena:=B*S;
11. writeln(‘Стоимость ткани = ’,Cena,’ рублей’);
12.end.
Проверьте себя.
Сегодня ученик получил на каждом уроке оценку. Напишите программу для подсчета среднего значения оценки за день. Оценки вводятся с клавиатуры.