ТурбоПаскаЛь 4 урок

Ввод в Паскале.

Ввод информации с клавиатуры в Паскале осуществляется операторами Read(переменная) . Например: Read(a) - ожидает ввода информации с клавиатуры и обозначает эту переменную через а. (это число, если переменная а типа real или Integer, и строка, если переменная типа String) Рассмотрим примеры по теме:

№

Программа

Результат

1

Составить программу, переводящую введенные с клавиатуры мили в километры(1 миля =1,852 км)

Program alfa;

uses crt;

var a, b: real;

Begin

ClrScr;

Write('Введите мили ');Read(a);

b:=a*1.852;

Write(a,' миль= ',b,' км');

ReadKey;

end.

Введите мили 5

5 миль= 9.26 км

2

Составить программу, запрашивающую 2 числа и выдающую их сумму.

Program alfa;

uses crt;

var a, b,c: real;

Begin

ClrScr;

Write('Введите первое число ');Read(a);

Write('Введите второе число ');Read(b);

c:=a+b;

Write(a,'+',b,'=',c);

ReadKey;

end.

Введите первое число 6

Введите второе число 9

6+9=15

3

Составить программу, запрашивающую имя и приветствующую по этому имени.

Program alfa;

uses crt;

var a :string;

Begin

ClrScr;

Write('Введите ваше имя ');Read(a);

Write('Привет ',a);

ReadKey;

end.

Введите ваше имя Паша

Привет Паша

4

Вычислить периметр и площадь прямоугольника, по введенным с клавиатуры сторонам.

Program alfa;

uses crt;

var a, b,c, d :real;

Begin

ClrScr;

Write('Введите ширину ');Read(a);

Write('Введите высоту ');Read(b);

c:=a*b;d:=2*(a+b);

Write('---'); Writeln;

Write('Площадь= ',c); Writeln;

Write('Периметр= ',d);

ReadKey;

end.

Введите ширину 34

Введите высоту 3

Площадь=102

Периметр=74

Для самостоятельного решения(все данные должны быть введены с клавиатуры)

НЕ нашли? Не то? Что вы ищете?

N

Условие задачи

Форма вывода

1

Перевести введенные дюймы в сантиметры

(1 дюйм = 2,54 см)

Введите дюймы 5

5 дюймов= 12,7 см

2.

Перевести см в дюймы

Введите сантиметры 5

5 см= 1,96850 см

3.

Перевести мили в км

(1 миля = 1,852 км)

Введите мили 5

5 миль=9.26

4.

Перевести введенные км/ч в м/с

(умножить на 1000 и разделить на 3600)

Введите км/ч 36

36 км/ч= 10 м/с

5.

Вычислить площадь квадрата с введенной с клавиатуры стороной

Введите сторону квадрата 12

Площадь квадрата=144

6.

Вычислить периметр квадрата с введенной с клавиатуры стороной

Введите сторону квадрата 12

Периметр квадрата = 48

7.

Вычислить диагональ квадрата с введенной с клавиатуры стороной

Введите сторону квадрата 12

Диагональ квадрата = 16.97

8.

Вычислить среднее арифметическое чисел 3 чисел, введенных с клавиатуры

Введите первое число 2

Введите второе число 3

Введите третье число 5

Среднее арифметическое равно 3.333333

9.

Вычислить время, за которое автомобиль пройдет расстояние (ввести с клавиатуры) при известной скорости(с клавиатуры)

Введите путь 240

Введите скорость 3

Скорость равна 80 км/ч

10

Вычислить площадь прямоугольника с введенными с клавиатуры сторонами

Введите ширину 5

Введите высоту 7

Площадь прямоугольника = 35

11

Вычислить периметр прямоугольника с введенными с клавиатуры сторонами

Введите ширину 5

Введите высоту 7

Периметр прямоугольника = 24

12

Вычислить диагональ прямоугольника с введенными с клавиатуры сторонами

Введите ширину 5

Введите высоту 7

Диагональ прямоугольника = 8.602

13

Найти объем комнаты со сторонами, введенными с клавиатуры

Введите ширину 5

Введите высоту 7

Введите длину 2

Объем комнаты = 70 куб. метров

14

Найти площадь поверхности комнаты со сторонами, введенными с клавиатуры

Введите ширину 5

Введите высоту 7

Введите длину 2

Площадь комнаты = 118 кв. м

15

Вычислить Cos , где угол задается с клавиатуры

Введите угол 12

Сos 12=0.978

16

Вычислить Sin +Cos где углы задаются с клавиатуры

Введите первый угол 12

Введите второй угол 15

Sin 12+Cos 15=1.173

17

Вычислить tg где угол задается с клавиатуры

Введите угол 12

Tg12=0.2125

18

Вычислить, где а и b вводятся с клавиатуры

Введите первое число 8

Введите второе число 2

Результат = 2

19

Из физики известно что F=ma Вычислить силу, действующую на тело, масса и ускорение задаются с клавиатуры

Введите массу 7

Введите скорость 9

Сила равна 63 Н

20

В прямоугольном треугольнике катет и гипотенуза задаются с клавиатуры. Вычислить другой катет

Введите гипотенузу 9

Введите первый катет 4

Второй катет равен 8.062