Шафеева

АЛГОРИТМИЗАЦИЯ И ПРОГРАММИРОВАНИЕ

Turbo Pascal 7.0

Составитель Ольга Павловна Шафеева

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

Оператор присваивания, процедуры ввода вывода.

Задание 1. Вычислить значение функции при x1=1; x2=2; a=1,5; b=2; c=-0,7

program l1_1;
const a=1.5; b=2; c=-0.7;
var w,x1,x2:real;
begin
x1:=1;
w:=a*exp(-sqrt(x1))*cos(b*x1)+(sqr(c)*sqr(c)*c);
writeln(‘Pri x1=1 W=’,w:2:3);
x2:=2;
w:=a*exp(-sqrt(x2))*cos(b*x2)+(sqr(c)*sqr(c)*c);
writeln(‘Pri x2=2 W=’,w:2:3);
readln;
end.

Задание 2 (программа 1_2)

  1. Идет k секунда суток. Определить, сколько целых часов (h) и целых минут (m) и секунд (s) прошло к этому моменту.

program lab1_2;
var k:integer; h,m,s:integer;
begin
writeln(‘Vvedite kolichestvo secund’);
readln(k);
h:=trunc(k/3600);
m:=trunc((k-(h*3600))/60);
s:=k-(h*3600)-(m*60);
writeln(‘h=’,h,’ m=’,m,’ s=’,s);
readln;
end.

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

Программирование разветвленных алгоритмов.

Операторы передачи управления

Задание 1. Вычислить значение функции в зависимости от интервала, в который попадает вводимый с клавиатуры аргумент.

program l2_1;
const a=-0.5; b=2;
var t,z:real;
begin
writeln(‘Vvedite t v intervale [0,3]’);
readln(t);
if (t>=0) and (t<=3) then begin
if (1<=t) and (t<=2) then z:=a*sqr(t)*ln(t) else
if t<1 then z:=1 else
z:=exp(a*t)*cos(b*t);
writeln(‘z=’,z:2:3);
end else writeln(‘Vvedeno nevernoe chislo!!!’);
readln;
end.

Задание 2. Определить остаток от деления на восемь введенного числа х и написать восьмеричную цифру прописью.

program l2_2;
var x,i,n,t,k:longint;
begin
writeln(‘Vvedite 8-ricnoe chislo’);
readln(x);
k:=x mod 8;
writeln;
writeln(‘Остаток от деления  ‘,x,’ ­  8=’,k);
n:=10000000;
if (x<10000000) or (x>99999999) then writeln(‘Ohibka vvoda!!!’) else
begin
while x>0 do
begin
t:=trunc(x/n);
x:=x-(t*n);
n:=trunc(n/10);
case t of
1:write(‘один’);
2:write(‘два’);
3:write(‘три ‘);
4:write(‘четыре ‘);
5:write(‘пять ‘);
6:write(‘шесть ‘);
7:write(‘семь’);
8:write(‘восемь’);
9:write(‘девять ‘);
0:write(‘­ноль ‘);
end;
end;
end;
readln;
end.

 

 

Авторизация
*
*
Генерация пароля