1 Вывод в Паскале 1. Вывод информации в Паскале

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