Организации линейных алгоритмов

  • 23 авг. 2011 г.
  • 289 Слова
Жигулевский Радиотехнический Техникум

Лабораторные работы
По дисциплине «Основы алгоритмизации и программирования»
15- вариант

Преподаватель: Яфаркина Н.Д
Студент гр.Д2Т11:Чистова О.С.

г.Жигулевск 2007

Лабораторная работа №1
Линейные программы

Цель работы: изучение основных приемов организации линейных алгоритмов.

Задание № 1. Вычислитьзначение функции
[pic]

program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var x,y,z:real;
begin
Writeln('vvedi 2 chisla');
Readln (x,y);
Z:=1+sin(sqrt(x+1))/cos(12*y-4);Writeln(‘z=’,z);
readln;
end.
Ответ: x=3,y=4,z=1.90943992819787E+0000

Задание №2. Вычислите выражение при заданных значениях

[pic],при[pic]

program Project2;
{$APPTYPE CONSOLE}
usesSysUtils,Math;
const z=0.82;
Var c,b,p:real;
begin
b:=arcsin(z);
c:=sqrt(sin(z)/cos(b));
p:=ln(c)+ln(b*z)/b*b+c*c+z*z;
writeln('значение функции');
readln;
end.Ответ:1.83443025233366E+0000

Задание №3. Решите текстовую задачу.
Известна длина окружности. Найти площадь круга, ограниченного этой окружностью.

program Project3;
{$APPTYPE CONSOLE}
usesSysUtils;
Var s,l,r:real;
begin
Writeln('введи длину и радиус');
readln(l,r);
s:=r*l;
writeln('значение функции',s);
readln;
end.
Ответ: l=26,r=6, s=1.50000000000000E+0002

Задание№ 4. Целочисленная арифметика
Дано трехзначное число А. Получить двухзначное число В, первая цифра которого равна сумме первой и последней цифры числа А, а вторая равна средней цифречисла А.

program Project4;
{$APPTYPE CONSOLE}
uses
SysUtils;
Var a,b,c,d,e:integer;
begin
writeln('введи число');
read(a);
c:=a mod 10;
d:=(a mod 100)div 10;
e:=a div 100;a:=c+d+e;
b:=(a+e)*10+d;
writeln('введи полученное число',b);
readln;
end.
Ответ:А=123, В=72

Вывод: изучили основные приемы организации линейных...
tracking img