Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Лаб.раб.1_4_Pascal.doc
Скачиваний:
18
Добавлен:
19.05.2015
Размер:
340.99 Кб
Скачать

Основы алгоритмизации и программирования Лабораторная работа №1. Алгоритмы линейной структуры

Цель работы. Выработка навыков составления алгоритмов линейной структуры.

Пример. Вычислить: , если значения переменных a, t, b вводятся с клавиатуры.

Блок-схема алгоритма

Программа

Pascal

С

Program zad_1;

Var a,b,t,t2,x,y:real;

Begin

Writeln('BBOD a,b,t');

Read(a,b,t);

t2:=t*t;

x:=a*t2+b*t*sqr(sqr(sin(a*t)));

x:=x/sqrt(sin(t2)+a*a*a);

y:=arctan(x+exp(t))*ln(a*a+t);

writeln('x=',x:7:3);

writeln('y=',y:7:3);

end.

#include <stdio.h>

#include <math.h>

int main(){

float a, b, t, t2, x, y;

puts("BBOD a,b,t");

scanf("%f%f%f", &a,&b,&t);

t2=t*t;

x=a*t2+b*t*pow(sin(a*t),4);

x/=sqrt(sin(t2)+a*a*a);

y=atan(x+exp(t))*log(a*a+t);

printf("x=%7.3f\ny=%7.3f\n",x,y);

return 0;

}

Задания для индивидуальной работы.

  1. Даны катеты прямоугольного треугольника. Найти его гипотенузу, периметр и площадь.

  2. Дана сторона равностороннего треугольника. Найти его периметр и площадь.

  3. Вычислить расстояние между двумя точками, заданными своими координатами (x1, y1) и (x2, y2).

  4. Треугольник задан координатами своих вершин. Найти длины его сторон, периметр и площадь.

  5. Найти площадь равнобочной трапеции с основаниями a и b и углом α при большем основании a.

  6. Круг ограничен окружностью заданной длины. Найти его площадь и диаметр.

  7. Найти площадь сектора ограниченного дугой в α радиан и радиусом R.

  8. Дана длина ребра куба. Найти площадь грани, площадь полной поверхности и объем куба.

  9. Даны три действительных положительных числа. Найти среднее арифметическое и среднее геометрическое этих чисел.

  10. Даны x, y, z. Вычислить a, b, если

    а)

    б)

    в)

    г)

  11. Найти сумму и произведение цифр

    1. Двузначного числа

    2. трехзначного числа

Лабораторная работа №2. Алгоритмы ветвящейся структуры

Цель работы. Bыработка навыков составления алгоритмов разветвленной структуры.

Пример. Дано х. Вычислить

Блок-схема

Программа

Pascal

С

Program zad_2;

Var x,y:real;

Begin

Writeln('BBOD x');

Read(x);

If x<-3 then

y:=x*x+sin(2*x+pi/6)

else

if x>=5 then

y:=ln(x*x+3*x)

else

y:=sqrt(sqr(sin(x))+abs(x));

writeln('x=',x:7:3,' y=',y:7:3);

end.

#include <stdio.h>

#include <math.h>

int main(){

float x, y, a;

puts("BBOD x");

scanf("%f", &x);

if (x<-3) y=x*x+sin(2*x+M_PI/6);

else

if (x>=5) y=log(x*x+3*x);

else

y=sqrt(sin(x)*sin(x)+fabs(a));

printf("x=%7.3f\ny=%7.3f\n",x,y);

return 0;

}