Решение квадратного уравнения. Оператор варианта. Вычисление площадей фигур. 10. Примерные задания к контрольной работе

• Название: Решение квадратного уравнения. Оператор варианта. Вычисление площадей фигур. 10. Примерные задания к контрольной работе
• Анкор: Paskal-1.doc
• Дата: 07.03.2018
• Размер: 443 Kb.
• Имя файла: Paskal-1.doc
• Тип: Решение; #16375
• страница: 4 из 14

ПРАКТИЧЕСКОЕ ЗАНЯТИЕ № 4

РЕШЕНИЕ ФИЗИЧЕСКИХ ЗАДАЧ

ОСОБЕННОСТИ:
- греческие буквы надо заменять на латинские буквы;

- описать назначение переменных;

- задача предварительно решается на бумаге, и конечная формула вводится в программу. На основании анализа результата делается вывод о правильности решения задачи;

- результат должен иметь указание единиц измерения;

- особого внимания требует правильный перевод единиц измерения физических величин;

- постоянные физические величины описываются в разделе описания констант.

- на Паскале нет различия между строчными и заглавными буквами: G=g, А=а.
Составить программу вычисления силы Всемирного тяготения:
Program Ff; Uses crt;

const g=6.672E-11; { гравитационная постоянная }

var m1,m2, { массы взаимодействующих тел }

r, { расстояние между точечными телами }

f: real; { сила Всемирного тяготения }

Begin

ClrScr;

write('Введите массу m1='); readln(m1);

write('Введите массу m2='); readln(m2);

write('Введите расстояние r='); readln(r);

f:=g*m1*m2/(r*r);

writeln; { получение пустой строки }

write('Сила притяжения F=',f:8:4,' Н');

readkey;

End.
З А Д А Н И Я:
1. Набрать программу вычисления силы Всемирного тяготения.

Запустить программу

Вычислить при m1=m2=50 кг и r=1 м. Ответ перевести в мг силы.

2. Составить программу вычисления кинетической энергии
3. Подчеркнуть результат звездочками.

ПРАКТИЧЕСКОЕ ЗАНЯТИЕ № 5

ОПЕРАТОР УСЛОВНОГО ПЕРЕХОДА

Неполная форма: IF условие THEN серия;

УСЛОВИЕ - это логическое выражение, принимающее значение истина или ложь.

Выполняется инструкция так: если условие истинно, то выполняется серия ,

иначе выполняется следующая за IF..THEN инструкция.

СЕРИЯ - один оператор языка.

Полная форма : IF условие THEN серия1

ELSE серия2;

Если условие истинно , то выполняется серия1 , иначе выполняется серия2.

В Н И М А Н И Е! Перед словом ELSE точка с запятой не ставится !!
Найти большее из двух чисел а и b.

Program Bid; Uses crt;

var a,b,max: integer;

Begin

ClrScr;

write(' Введите целое число а='); readln(a);

write(' Введите целое число b='); readln(b);

if a>=b then max:=a { если условие =true,то max:=а }

else max:=b; { если условие =false,то max:=b }

writeln('Max=',max);

readkey;

End.
При нажатии цифры 1 печатается слово1, а при нажатии любой клавиши слово2.

Program Text; Uses crt;

var x: integer;

Begin

ClrScr;

write('Введите цифру 1 или любую :'); readln(x); ClrScr;

if x=1 then write(' В а с я')

else write(' П е т я');

readkey;

End.
З А Д А Н И Я:
1. Набрать программу Bid и проверить ее работу для '+' и '-' чисел.

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

3. Набрать программу Text , получить результат.

4. Изменить программу Text так, чтобы второе слово выводилось только при нажатии цифры 2 , а при нажатии цифры кроме 1 и 2 выводилось сообщение “ERROR”.

5. Составить программу вычисления для любого х функции Y =1/x ,

при х=0 выдать сообщение ' функция не существует '.

6. Найти наибольшее из трех чисел.

ПРАКТИЧЕСКОЕ ЗАНЯТИЕ № 6

ОПЕРАТОР УСЛОВНОГО ПЕРЕХОДА (продолжение)
При сложных условиях применяются логические связки:

And - истинно, когда истинны все составляющие логические выражение

Пример: ((x>=0) and (x<=5)) истинно для x из интервала [0;5] и ложно при x=6
Not - истинно, когда ложно исходное логическое выражение

Пример: not(x>=0) истинно для x=-5 и ложно для x=6
Or - истинно, когда истинно хотя бы одно из логических выражений

Пример: ((a<5) or (a>9)) истинно для a=2 и ложно для a=6
при x<0

Вычислить: Y=

при x 0
Program Primer; Uses crt;

var x: integer;

Begin

ClrScr;

write('Введите значение x=') ; readln(x);

if x<0 then write(' Y1=',1/(x-1))

else write(' Y1 - не существует по условию');

if (x>=0) and (x<>5) then write(' Y2=',1/(x-5))

else write(' Y2 - не существует по условию');

readkey;

End.
З А Д А Н И Я:
1. Набрать программу и проверить ее работу для Х: -2, 1, 5, 6.

2. Эту же задачу решить для условия:

1) Х<0 или Х=5 или Х=8

2) Х>=0 и Х<>5 и Х<>6

Проверить работу программы для Х: -2, 0, 2, 5, 6, 8, 9.

3. Эту же задачу решить для условия: 1) -2<=Х<=5 Х<>1 ,

2) -1<=Х<=8 Х<>5

Проверить все контрольные точки: -3, -2, -1, 0, 1, 5, 8, 9.