Главная

Популярная публикация

Научная публикация

Случайная публикация

Обратная связь

ТОР 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 – вывод пустой строки;

 

Вопросы для закрепления:

Вычислить значение выражения:

  1. 2*3-13mod(19-3*4)
  2. 23+3*17div(9-18mod4)

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.

 

Вопросы для закрепления

 

  1. Назовите основные этапы разработки программы.
  2. Какова структура Паскаль-программы?
  3. Что такое алгоритм? Каковы основные свойства алгоритма? Какими способами можно записать алгоритм?
  4. Запишите основные элементы блок-схем.
  5. В каком году и кем был создан язык Паскаль?
  6. Чем отличается алфавит языка Паскаль от естественных алфавитов?
  7. Что такое лексема?
  8. Какова структура Паскаль-программы?
  9. Что в списке можно рассматривать как идентификаторы:FIO, ФИО, 22222, X, Y, >=, &, $, Summa, _Result
  10. Укажите идентификаторы, которые проще воспринимаются при чтении, объясните причину:

klass; Klass_1; summadoxoda;SummaDoxoda;nomerdoma;Nomer_Doma.

  1. Сколько в следующем списке зарезервированных слов: X, Program, Y, Summa, MyMoney, Произведение, Vova, begin, end, if, repeat, Read?
  2. В каких случаях надо использовать переменные:

– если в программе используется какое-то число?

– если в вычислениях какой-то операнд постоянно меняет свое значение?

– если операнд в выражении хотя бы один раз меняет значение?

  1. Какие заголовки программ правильны:program Zarplata?program Сумма?program Summa Nalogov?программа Teach_Kurs?program 12Kurs?program Summa_Elementov?
  2. Какая структура программы правильна:

Program MyProgram;

Begin

Writeln(‘Привет’);

End.

Program MyFirst;

Begin

X:=Y+100;

End.

  1. Какой из перечисленных разделов обязателен в программе:

раздел var?

раздел const?

раздел type?

раздел begin....end.?

раздел label?

  1. Какие из комментариев неправильны:

{Программа вычисляет логарифм введенного числа};

(*Это тоже комментарий*);

{{Комментарий в комментарии}};

(*{И это комментарий в комментарии}*);

{(*Еще один вариант*)};

(*(*Самый последний вариант*)*);

  1. Есть ли причины к невыполнению следующей программы:

Program Test;

Begin

End.

  1. Для чего используется слово uses?

1) такого слова нет в языке Турбо Паскаль;

2) это какой-то пользовательский идентификатор;

3) с его помощью подключают стандартные библиотеки;

4) это стандартная константа, равная 3,14;

5) это логическая операция.

  1. В разделе процедур и функций описываются только стандартные процедуры?

1) да, только стандартные;

2) нет, только пользовательские;

3) и стандартные, и пользовательские;

4) такого раздела вообще не может быть в программе.

  1. Наберите и откомпилируйте простейшую программу:

Program Tutor;

Begin

Writeln(5*6);

Writeln(‘Привет’);

End.

Каков будет результат ее выполнения?

Измените программу чтобы результат равнялся 35.

  1. Где ошибки (их три) в следующей программе?

Program Ошибки1;

Begin

Summa:=6+8;

End;

Исправьте программу и добейтесь компиляции без ошибок.

  1. Где ошибки (их три) в следующей программе?

Program Ошибки2;

{{Программа с ошибками}}

Begin

var x:integer;

x:=5*3;

Write(x);

End.

Исправьте программу и добейтесь компиляции без ошибок.

  1. Где ошибка в следующей программе?

Program MyError;

Ses

{(*Программа с ошибкой*)}

Begin

End.

Исправьте программу и добейтесь компиляции без ошибок.

  1. Напишите самую короткую программу.
  2. Где ошибка в следующей программе?

Program Kvadr;

Begin

Writeln(‘введите значение Х’);

Writeln(‘Х в квадрате=’, Х*Х);

End.

Var X:integer;

Исправьте программу и добейтесь компиляции без ошибок.

  1. Где ошибка в следующей программе?

Begin

Writeln(‘введите значение Х’);

Readln(X);

Writeln(‘введите значение Y’);

Readln(Y);

Сумма:=X+Y;

Writeln(Сумма);

End.

 

 

Задачи:

  1. Длина сада Х метров, ширина в два раза больше. Мальчик оббежал сад за Т мин. Найти скорость мальчика в секунду, произвести расчеты для Х=689.67 Т=7.6 с точностью до 2 знаков после запятой/

Y=x*2, p=2*(x+y), w=t*60, v=p/w

  1. Найти длину окружности, описанной около квадрата со стороной Х см.

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. Найдите диаметр данного шара.

 






Не нашли, что искали? Воспользуйтесь поиском:

vikidalka.ru - 2015-2024 год. Все права принадлежат их авторам! Нарушение авторских прав | Нарушение персональных данных