Вывод в Паскале
1. Вывод информации в Паскале производится с помощью операторов Write Writeln. Процедура writeln после вывода своих параметров осуществляет переход на следующую строку. Рассмотрим примеры.
№ | Программа | Результат |
1 | Program alfa; uses crt; Begin ClrScr; write('Привет '); write('всем'); ReadKey; end. | Привет всем |
2 | Program alfa; uses crt; Begin ClrScr; write('Привет '); write('всем'); ReadKey; end. | Привет всем |
3 | Program alfa; uses crt; Begin ClrScr; write('Привет '); writeln ;write('всем'); ReadKey; end. | Привет всем |
4 | Program alfa; uses crt; Begin ClrScr; writeln('Привет '); write('всем'); ReadKey; end. | Привет всем |
2. В операторах Write Writeln в скобках через запятую возможна сложная запись, например: Write('всем ', С, ' всем'), рассмотрим примеры .
№ | Программа | Результат |
1 | Найти сумму 2 чисел 7 и 9 Program alfa; uses crt; var a, b,c: real; Begin ClrScr; a:=7;b:=9;c:=a+b; write(a,'+',b,'=',c); ReadKey; end. | 7+9=16 |
2 | Перевести 34 мили в км (1 миля=1,852 км) Program alfa; uses crt; var a, b: real; Begin ClrScr; a:=34;b:=a*1.852; write(a,' миль= ',b,' км'); ReadKey; end. | 34 миль= 62.968 км |
3 | Найти среднее арифметическое чисел 4,6 и 8,9 Program alfa; uses crt; var a, b,c: real; Begin ClrScr; a:=4.6;b:=8.9;c:=(a+b)/2; write('среднее ар. чисел ',a,' и ',b,'= ',c ); ReadKey; end. | ср. ар чисел 4.6 и 8.9=6.75 |
4 | Найти гипотенузу в прямоугольном треугольнике если катеты равны соответственно 3 и 4 Program alfa; uses crt; var a, b,c: real; Begin ClrScr; a:=3;b:=4;c:= Sqrt(a*a+b*b); write('гипотенуза = ',c ); ReadKey; end. | Гипотенуза = 5 |
5 | Вычислить Sin 230 Program alfa; uses crt; var a, b: real; Begin ClrScr; a:=23;b:=Sin(a*Pi/180); write('Sin',a,' = ',b ); ReadKey; end. | Sin23 = 0,3907 |
Задачи для самостоятельного решения.
N | Условие задачи | Форма вывода |
1 | Перевести 3,5 дюйма в сантиметры (1 дюйм = 2,54 см) | 3.5 дюйма =… см |
2. | Перевести 12 см в дюймы | 12 см = … дюймов |
3. | Перевести 18 миль в км (1 миля = 1,852 км) | 18 миль = … км |
4. | Перевести 18 км/ч в м/с (умножить на 1000 и разделить на 3600) | 18 км/ч=… м/с |
5. | Вычислить площадь квадрата со стороной 12 см | Площадь квадрата со стороной 12=… кв. см |
6. | Вычислить периметр квадрата со стороной 25 мм | Периметр квадрата со стороной 25 мм=…мм |
7. | Вычислить диагональ квадрата со стороной 13 см | Диагональ квадрата стороной 13 см=… см |
8. | Вычислить среднее арифметическое чисел 2, 7, 6 | Ср ар чисел 2 7 6 равно… |
9. | Вычислить время, за которое автомобиль при скорости 60 км/ч проедет 230 км | V=60 км/ч S=230 км время =… часов |
10 | Вычислить площадь прямоугольника со сторонами 15 и 37 см | Площадь прямоугольника =… кв. см |
11 | Вычислить периметр прямоугольника со сторонами 17 и 25 мм | Периметр =… мм |
12 | Вычислить диагональ прямоугольника со сторонами 19 и 42 см | Диагональ =… см |
13 | Найти объем комнаты со сторонами 2,7,4 метра | Объем комнаты со сторонами 2 4 7 м=…кв. м |
14 | Найти площадь комнаты со сторонами 2,7,4 метра | Площадь комнаты равна… кв. м |
15 | Вычислить Cos430 | Cos43=… |
16 | Вычислить Sin470+Cos730 | Sin47+Cos73=… |
17 | Вычислить tg570 | tg57=… |
18 | Вычислить | Корень=… |
19 | Из физики известно что F=ma Вычислить силу, действующую на тело массой 4 кг, движущегося с ускорением 4м/с2 | Сила равна… н |
20 | В прямоугольном треугольнике катет равен 12 см, а диагональ равна 27 см Вычислить величину второго катета | Длина катета=…см |
