ТОР 5 статей: Методические подходы к анализу финансового состояния предприятия Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века Характеристика шлифовальных кругов и ее маркировка Служебные части речи. Предлог. Союз. Частицы КАТЕГОРИИ:
|
Операторы ввода и вывода
1. Оператор ввода a) READ (список переменных) – этим оператором вводятся последовательно значения переменных из списка; Пример: READ (X,Y); b) READLN (список переменных) – тоже что и READ, но с переводом курсора на новую строку после ввода последней переменной; Пример: READLN (X,Y); c) READLN – ввод пустой строки.
Пример: READLN;
Оператор вывода a) WRITE (список переменных) – выводятся последовательно переменные из списка;
Пример: write(x, y); write (x: 7: 2, y: 7: 2); где 7 – количество позиций под все число, а 2 – количество позиций после запятой
b) WRITELN (список переменных) – тоже что и write, но с переводом курсора на новую строку после вывода последней переменной;
c) WRITELN – вывод пустой строки;
Вопросы для закрепления: Вычислить значение выражения:
3. 2(x + 3) + ()2 4. , при х =2.1 и х =0.3;
5. x + + (x + )2, 6. ln|2- | (x - ), при x =4 и х =0.74; 7. cos| x 2- |, 8. ln| x 2 + |, при x =1.57 и х =-2.5; Линейный алгоритм
Простейшей алгоритмической структурой является линейная последовательность операций, которые выполняются по очереди и именно в том порядке, в котором они записаны. Линейные алгоритмы и линейные программы обычно предназначены для решения относительно простых задач. Например: Написать программу вычисления площади треугольника по трем сторонам, пользуясь формулой Герона.
Program tr; var a, b, c, p, s: real; begin writeln(’Введите длины сторон треугольника’); readln(a,b,c); p:= (a + b + c)/2; s:= sqrt(p*(p - a)*(p - b)*(p - c)); writeln(’Площадь треугольника =’, s:5:2); end.
Задача Дано целое трехзначное число А. Написать программу выделения количества сотен и количества единиц этого числа.
program p3_3; var a, a1, c: integer; begin writeln(’Введите число’); readln(a); a1:= a mod 10; c:= a div 100; writeln(’Количество единиц =’, a1); writeln(’Количество сотен =’, с); end.
Задача Вычислить площадь кольца, ширина которого равна А, а отношение радиусов окружностей равно В.
program p3_5; var {s - площадь кольца a - ширина кольца b - отношение радиусов r - расстояние от центра кольца до наружной стороны кольца} s, a, b, r: real; begin write('Введите ширину кольца и отношение радиусов:'); readln(a,b); r:= (-a*b)/(1 - b); {Поскольку площадь кольца = разности площадей 2 кругов, радиусом первого является r, а второго - r-a} s:= Pi*sqr(r) - Pi*sqr(r - a); writeln(s); readln end.
Вопросы для закрепления
klass; Klass_1; summadoxoda;SummaDoxoda;nomerdoma;Nomer_Doma.
– если в программе используется какое-то число? – если в вычислениях какой-то операнд постоянно меняет свое значение? – если операнд в выражении хотя бы один раз меняет значение?
Program MyProgram; Begin Writeln(‘Привет’); End. Program MyFirst; Begin X:=Y+100; End.
раздел var? раздел const? раздел type? раздел begin....end.? раздел label?
{Программа вычисляет логарифм введенного числа}; (*Это тоже комментарий*); {{Комментарий в комментарии}}; (*{И это комментарий в комментарии}*); {(*Еще один вариант*)}; (*(*Самый последний вариант*)*);
Program Test; Begin End.
1) такого слова нет в языке Турбо Паскаль; 2) это какой-то пользовательский идентификатор; 3) с его помощью подключают стандартные библиотеки; 4) это стандартная константа, равная 3,14; 5) это логическая операция.
1) да, только стандартные; 2) нет, только пользовательские; 3) и стандартные, и пользовательские; 4) такого раздела вообще не может быть в программе.
Program Tutor; Begin Writeln(5*6); Writeln(‘Привет’); End. Каков будет результат ее выполнения? Измените программу чтобы результат равнялся 35.
Program Ошибки1; Begin Summa:=6+8; End; Исправьте программу и добейтесь компиляции без ошибок.
Program Ошибки2; {{Программа с ошибками}} Begin var x:integer; x:=5*3; Write(x); End. Исправьте программу и добейтесь компиляции без ошибок.
Program MyError; Ses {(*Программа с ошибкой*)} Begin End. Исправьте программу и добейтесь компиляции без ошибок.
Program Kvadr; Begin Writeln(‘введите значение Х’); Writeln(‘Х в квадрате=’, Х*Х); End. Var X:integer; Исправьте программу и добейтесь компиляции без ошибок.
Begin Writeln(‘введите значение Х’); Readln(X); Writeln(‘введите значение Y’); Readln(Y); Сумма:=X+Y; Writeln(Сумма); End.
Задачи:
Y=x*2, p=2*(x+y), w=t*60, v=p/w
x – сторона, , L=2*p*Rнайти чему равна длина окружности при Х=2.56789, и Х=345.678 с точностью до 3 знаков после запятой. 3. Определите периметр правильного n -угольника, о писанного около окружности радиуса r. 4. Вычислить объем цилиндра, вписанного в правильную шестиугольную призму, у которой каждое ребро равно a. 5. Вычислить массу свинцовой трубы, длина которой L метров (плотность 11,4 г/см3), толщина стенок А мм, а внутренний диаметр R мм. 6. Определить время, через которое встретятся два тела, равноускоренно движущиеся навстречу друг другу, если известны их начальные скорости, ускорения и начальное расстояние между ними. 7. Три сопротивления R 1, R 2, R 3, соединены параллельно. Найти общее сопротивление соединения. 8. Стальной вал, имеющий L мм длины и D метров в диаметре, обтачивается на токарном станке, причем диаметр уменьшается на S мм. Вычислить на сколько уменьшится масса вала. (плотность стали - 7,4 г/см3) 9. Вычислить площадь кольца, ширина которого равна А, а отношение радиусов окружностей равно В. 10. Определить силу притяжения между двумя телами массы М1 и М2, находящимися на расстоянии R друг от друга. 11. Найти площадь сектора, радиус которого равен R, а дуга содержит заданное число радиан А. 12. Даны v 1, v 2, t 1, t 2. Пусть смешано v 1 литров воды температуры t 1 с v 2 литрами воды температуры t 2. Вычислить объем и температуру образовавшейся смеси. 13. У квадрата ABCD на плоскости известны координаты двух противоположных вершин – точек А и С. Найти координаты двух остальных точек В и D. 14. Треугольник задан координатами своих вершин. Найдите сумму медиан треугольника. 15. Угол А задан в градусах, минутах и секундах. Найти его величину в радианах (с максимально возможной точностью). 16. Заданы моменты начала и конца некоторого периода времени в часах, минутах и секундах. Найти продолжительность этого периода в том же виде (в пределах одних суток). 17. Известен объём шара V. Найдите диаметр данного шара.
Не нашли, что искали? Воспользуйтесь поиском:
|