В) точка (x,y) лежит все круга радиуса r с центром в точке (1,0)

МИНОБРНАУКИ РОССИИ

Федеральное государственное бюджетное образовательное учреждение

Высшего профессионального образования

«Тульский государственный университет»

Кафедра прикладной математики и информатики

Лабораторная работа № 2

по дисциплине «Языки и методы программирования»

Тема: программирование: операций, выражений, простейшего ввода-вывода

Выполнил студент группы 520221                        Молоковичев Е.А.

Принял доцент                                                   Смирнов О.И.                                         

                                                         Тула 2012

Лабораторная работа №2

Программирование: операций, выражений, простейшего ввода-вывода

Цель работы: Научиться писать программы с использованием простейших операций, выражений, простейшего ввода-вывода.т  

Задание

    Выполнить упражнения, и, написав программу для каждого упражнения (где это требуется) и объяснить результат.

Числовые типы. Оператор присваивания:

Упражнение 1

Записать в Паскале следующие цифры (в дробной части указывать до 4 цифр).

Создаём программу для первого упражнения:

И просмотрим полученное:

Упражнение 2

Записать следующие числа без десятичного порядка.

Запишем в паскале:

Выведем ответ Ответ: а) -2.7; в) 0.666; с)10

Упражнение 3

Указать неправильные записи чисел:

a) 0006; - правильная запись

b) -0; - правильная запись

c) 7,0; - неправильная, т.к. в Паскале целая и дробная часть разделяется «.»

d) 7.; - неправильная, т.к. в дробной части ничего не указанно.

e) +0.3; - правильная запись

f) .3; - неправильная, т.к. в целой части нет цифры

g) 2/3; - правильная запись

h) E-1; - неправильная, т.к. не указан коэффициент перед Е.

i) 8E0; - правильная запись

j) 0E-4; - правильная запись

k) 2*E5; - не правильная, стоит ненужный знак «*».

l) E – неправильная. В Паскале такой константы нет.

Упражнение 4

1.

Да, разница есть. Паскаль отличает целые числа от вещественных по форме записи.
Например 100.0 – вещественное с точки зрения языка Паскаль. А 100 – целое, а так же

 20 – целое, 2е1 – вещественное.

Упражнение 5.

-+3000000000 – не представимо.

Упражнение 6. Да, (1/3)*3-1=0 в Паскале.

Упражнение 7. Потому что а*t это произведение двух чисел, а аt – переменная.

Упражнение 8. Запись на Паскале данных формул.
Создаём программу с данными формулами, записывая их так, как этого требует синтаксис Паскаля, при этом рассчитываем значения формул при данных константах:

Выведем результат:

Упражнение 10. Вычислить: 24/(3*4)-24/3/4+24/3*4

Создаём программу для расчёта этого числа:

Программа выводит искомое число в таком виде:

программа записана верно.

Упражнение 11.

 В Паскале нельзя записать факториал от 10 как 10! потому, что оператора «!» в Паскале нет. Так же и нельзя записать в виде 1*2*3*…*9*10, так как Паскаль не воспринимает подобную запись(конкретно многоточие между членами операции).
Упражнение 12. В этом выражении выполняется 7 операций, это число можно сократить до 4-х записав числа ½=0.5, ¾=0.75, 7/10=0.7 – их, соответствующими значениями.

Упражнение 14.
Записываем следующиеформулына Паскале таким образом:

И выводим на экран:

Упражнение 15.

Эти формулы записываем на Паскале так:

И выводим на экран:

Упражнение 16.

Основание натуральных логарифмов как exp(1), а число «π» в паскале записывается как Pi.

Упражнение 17-18. Косинус и синус, и вообще любые тригонометрические функции определяются в Паскале с радианной мерой угла. Поэтому косинус и синус от х градусов записываются соответственно: cos(Pi*x/180) и sin(Pi*x/180).

Упражнение 19.

Задание 20.

Запишем на паскале данные операции:

И выведем их на экран:

Так будут выглядеть операторы присваивания.

Логические операции

1. Записать на Паскале отношение, истинное при выполнении указанного условия и ложное в противном случае:

а) целое k делиться 7

Program Lap;

Uses Crt;

Var a:integer;

Begin

Clrscr;

Write(‘k=’);

Readln(k);

If k mod 7 =0 then writeln(‘TRUE’)

Else writeln(‘FALSE’);

readln;

end.

б) уравнение ax²+bx+c=0 (a≠0) не имеет вещественных корней:

Program Lap;

Uses Crt;

Var a,b,c,delta:real;

Begin

Clrscr;

Write('a=');

readln(a);

Write('b=');

readln(b);

Write('c=');

Readln(c);

delta:=sqr(b)-4*a*c;

If delta < 0 then writeln('No real solution')

else Writeln(‘Have real solution’);

readln;

end.

в) точка (x,y) лежит все круга радиуса r с центром в точке (1,0)

Program Lap2_2_3;

uses crt;

Var x,y,r: real;

begin

   clrscr;

   write('x=');

   readln(x);

   Write('y=');

   readln(y);

   write(‘r=’)

   readln(r);

           if sqr(x-1)+sqr(y)<=sqr(r) then writeln('TRUE')

           else writeln('FALSE');

readln;

end.