Реферат: Отчет по практике по Turbo Pascal

Практическое задание №1

Записать выражение на языкеПаскаль. Использование стандартных функций. Оператор присваивания.

Цель задания

1.

2.

3.

Поставка задачи

Записать математическое выражение на языке Паскаль,и составить программу вычисления значения оператора присваивания. Описатьпорядок действий, над выражением исходя из приоритетности вычисленийстандартных функций и арифметических операции.

1. a = (x+y/(5+x))/|y-sinx+x|+5arctgx

2. b= etgu+1 lnarcsinv <img src="/cache/referats/11615/image002.gif" v:shapes="_x0000_i1025">

x=47,8

y=-5,5

u=2,3

v=0,8

Листингпрограммы

program zadanie_1;

uses crt;

var

x,y,u,v:real;

a,b:real;

begin

clrscr

;

x:=47.8;

y:=-5.5;

u:=2.3;

v:=0.8;

writeln('Протокол работы програмы');

writeln('вычислениезначений a и b');

a:=(x+y/(5+sqrt(x)))/abs(y-sin(x)+sqrt(x))+5*arctan(x);

b:=exp(sin(u)/cos(u)+1)*ln(arctan(v/sqrt(1-v*v)));

writeln('a=',a);

writeln('b=',b);

writeln('конец счета');

readln;

readln;

end.

Протокол работы програмы

вычислениезначений a и b

a= 3.0959950475E+01

b=-6.7000345276E-02

конецсчета

В данной программе былииспользованы следующие стандартные функции: sin(x), cos(x), abs(x), sqr(x),sqrt(x), arctan(x),exp(x),ln(x).

В частности через функции: arctan(x), sin(x), cos(x),были выражены такие тригонометрические функции как arcos(x), tg(x).

В ходе работы ошибок допущено не было.

Практическое задание №2Организация ввода/выводастандартных типов данных

Цель задания

1.

2.

3.

Постановка задачи

Организовать ввод/вывод данных заданных типов, предусмотрите выводы ссоответствующими заголовками.

целые числа

Вещественные числа

формат

количество

стандартный

количество

Стандартный

ирина

поля

знаков

после

символов

печать булевской переменной

FALSE

Листинг программы

program

zadanie_2;

uses crt;

const

log=false;

var

k,l,m:integer;

a,b,c,d,e,f:real;

s1,s2,s3,s4:char;

begin

clrscr

;

writeln('

Введите целые числа K,L,M:');

read(k,l,m);

writeln('':30,'целые числа');

writeln('','стандартнаяформа','':18,'заданная ширина поля');

writeln('',k,'',l,' ',m,'':30,'K=',k:3,' L=',l:3,' M=',m:3);

writeln;

writeln('':25,'Введитевещественные числа A,B,C,D,E,F:');

readln(a,b,c,d,e,f);

writeln('':20,'стандартная форма');

writeln('',a,'',b,' ',c,' ',d,' ',e,' ',f);

writeln('':18,'заданная ширина поля');

writeln('A=',a:5:2,' B=',b:5:2,' C=',c:5:2,' D=',d:5:2,' E=',e:5:2,' F=',f:5:2);

writeln;

writeln('

Введите символыS1,S2,S3,S4:');

readln(s1,s2,s3,s4);

writeln('символьные переменные:');

writeln('S1=',s1,' S2=',s2,' S3=',s3,' S4=',s4);

writeln('печать символьных переменных сшириной поля 5:');

writeln(s1:5,s2:5,s3:5,s4:5);

writeln('логическая переменная равна ',log);

readln;

readln;

end

.

Протокол работы

Введите целые числа K,L,M:

1

2

3

целые числа

стандартная форма заданная ширина поля

1 2 3 K= 1 L= 2 M= 3

Введитевещественные числа A,B,C,D,E,F:

234 4 5 6 7 8

стандартная форма

2.3400000000E+02 4.0000000000E+00 5.0000000000E+00 6.0000000000E+00 7.00000

00000E+00 8.0000000000E+00

заданная ширина поля

A=234.00 B= 4.00 C= 5.00 D= 6.00 E= 7.00 F= 8.00

Введите

символы S1,S2,S3,S4:

qwer

символьные переменные:

S1=q S2=w S3=e S4=r

печать символьных переменных с ширинойполя 5:

q w e r

логическая переменная равна FALSE

3Практическое задание №3

Разветвляющие структуры. ОператорIF сGO TO, THEN, ELSE

Цель задания

1.

2.

Постановка задачи

Организуйтеввод и вывод пяти целых положительных чисел a, b, c, p, q. Определив остаток К от деления на 9 величины М, равной <img src="/cache/referats/11615/image004.gif" v:shapes="_x0000_i1026">

y=arctg4,7x/(x2-secx)-xcosx, при к=0

y=2sinx, при к=1

y=cos(|ax2+b|-1), при к=2

Листинг программы

program

uses crt;

var

a,b,c,p,q,k,m:integer;

x,y:real;

begin

clrscr

;

writeln('

Протокол работы');

writeln('Введите исходные данные:');

readln(a,b,c,p,q,x);

writeln('a=', a,', b=',b,', c=',c,', p=',p,', q=',q,',x=',x:6:3);

m:=(a+b+c+p) div q;

k:=m mod 9;

if k=0 then

begin

y:=sqrt(arctan(4.7*x)/x*x-sin(x))-exp(cos(x)*cos(x)*ln(x));

writeln('К=0, значение переменной Y равно',y:6:3);

end;

if k=1 then

begin

y:=exp(sin(x)*ln(2));

writeln('К=1, значение переменной Y равно',y:6:3);

end;

if k=2 then

begin

y:=cos(abs(a*x*x+b)-1);

writeln('К=2, значение переменной Y равно',y:6:3);

end;

if k>2 then

writeln('Значение переменной Y неопредено т.к. К>2');

readln;

end

.

Протокол работы

Введите исходные данные:

a=2, b=3, c=76, p=3, q=76, x= 4.000

К=1, значение переменной Yравно 0.592

В данной программе былоиспользовано четыре оператора IFвсокращенной форме.

При работе над данной программой ошибокдопущено не было.

Практическое здание №4

Решение задач, описываемых алгоритмами циклическойструктуры с использованием одномерных массивов.

Цель задания

1.

2.

3.

4.

Постановка задачи

Организуйте ввод/вывод одномерного массива, предусмотрите вывод соответствующимизаголовками.

В массиве {zi}, i=1,2,…, 10 есть положительные и отрицательные элементы. Подсчитать количествоотрицательных и положительных элементов.

Решить задачу для двух наборов данных:

а. –5,25,17,18,20,-10,-9,-5,12,23;

б.15,20,15,4,-8,-5,-20,-43,-9,-25;

Листингпрограммы

program zadanie_4;

uses crt;

const

n=10;

var

z: array [1..n]of integer;

a,b,i:integer;

begin

clrscr

;

writeln('

Введите через пробел 10 чисел');

for i:=1 to ndo

begin

readln(z[i]);

if z[i]>0 then

a:=a+1;

if z[i]<0 then

b:=b+1;

end;

clrscr

;

writeln('Исходныеданные');

for i:=1 to n do

write(z[i]:4);

writeln;

writeln('Количествоположительных элементов массива Z[1..n] равно',a:4);

writeln('Количествоотрицательных элементов массива Z[1..n] равно',b:4);

readln

end

.

Протокол работы

А)Введите через пробел 10 чисел

-5

25

17

18

20

-10

-9

-5

12

23

Исходные данные

-5 25 17 18 20 -10 -9 -5 12 23

Количество положительных элементов массиваZ[1..n] равно 6

Количество отрицательных элементов массиваZ[1..n] равно 4

Б)Введите через пробел 10 чисел

15

20

15

4

-8

-5

-20

-43

-9

-25

Исходные данные

15 20 15 4 -8 -5 -20 -43 -9 -25

Количество положительных элементов массиваZ[1..n] равно 4

Количество отрицательных элементов массиваZ[1..n] равно 6

Практическое задание №5

Решение задач, описываемых алгоритмами циклическойструктуры с использованием двумерных массивов. Регулярные типы.

Цельзадания

1.

2.

3.

4.

Постановка задачи

Организуйте построчный ввод вещественной квадратной матрицы А 4-го порядка. Сформировать матрицу В 4-го порядка выполнив условие:

Начиная с первого элемента каждой строки А увеличитьпоследующий на 2, следующий на 4, на 6.

Листинг программы

program

uses crt;

const

n=4;

var

a: array[1..n,1..n] of real;

b: array[1..n,1..n] of real;

i,j,d:integer;

begin

clrscr

;

for j:=1 to ndo

for i:=1 to ndo

begin

clrscr; gotoxy(1,1);

write('

элемент — ',j,',',i,':'); readln(a[j,i]);

end;

clrscr;

writeln;

writeln('

Исходная матрица:');

for i:=1 to ndo

begin

d:=d+2;

for j:=1 to ndo

begin

b[j,i]:=d+a[j,i];

gotoxy(i*6,j+3);

writeln(a[j,i]:3:1)

end;

writeln;

writeln('преобразованная матрица:');

for i:=1 to n do

for j:=1 to ndo

begin

gotoxy(i*6,j+10);

writeln(b[j,i]:3:1)

end;

readln;

end.

Протокол работы

Исходная матрица:

34.0 4.0 5.0 34.0

45.0 43.0 54.0 34.0

5.0 6.0 4.0 5.0

6.0 7.8 56.0 5.0

преобразованнаяматрица:

36.0 8.0 11.0 42.0

47.0 47.0 60.0 42.0

7.0 10.0 10.0 13.0

8.0 11.8 62.0 13.0

Практическое задание №6

Цельзадания

Получение практических навыков работы операторами графики. Получение навыков построения графических объектов и перемещение на плоскости. Работа с диагностическими сообщениями транслятора при выполнении программ с графическими объектами.

Постановка задачи

Построить систему координат с началом в центре координат.Переместить фигуру согласно рисунку и закрасить указанную область.

program

zadanie_6;

uses graph, crt;

var

GraphDriver,

GraphMode,

ErrorCode,

X0,

Y0

: Integer;

Begin

0

GraphDriver :=Detect;

InitGraph(GraphDriver, GraphMode, '..bpbgi');

ErrorCode := GraphResult;

if ErrorCode <> grOk

then

begin

WriteLn('Graphics error:', GraphErrorMsg(ErrorCode));

Exit;

end;

X0 := GetMaxX div 2;

Y0 := GetMaxY div 2;

SetColor(White);

Bar(0, 0, GetMaxX, GetMaxY);

SetColor(black);

Line(X0, 50,X0, GetMaxY — 50);

Line(50, Y0, GetMaxX — 50, Y0);

Rectangle(X0 +80, Y0 — 80, X0 + 200, Y0 — 200);

Rectangle(X0 +105, Y0 — 105, X0 + 175, Y0 — 175);

Setfillstyle(1,black);

Floodfill(450,125,black);

OutTextXY(50, 400, 'Нажмите Enter для продолжения');

ReadKey;

Rectangle(X0 +80, Y0 + 80, X0 + 200, Y0 + 200);

Rectangle(X0 +105, Y0 + 105, X0+175,Y0+175);

SetFillStyle(1, Black);

FloodFill(450, 415, Black);

ReadKey;

CloseGraph;

End.

Протокол работы

Оглавление

Введение

Практическое задание №1

Записатьвыражение на языке Паскаль. Использование стандартных функций. Оператор присваивания.

Практическое задание №2Организация ввода/вывода стандартных типовданныхПрактическоезадание №3

Разветвляющие структуры. ОператорIF сGO TO, THEN, ELSE

Практическое здание №4

Решениезадач, описываемых алгоритмами циклической структуры с использованием одномерныхмассивов.

Практическое задание №5

Решениезадач, описываемых алгоритмами циклической структуры с использованием двумерныхмассивов. Регулярные типы.

Практическое задание №6

Решениезадач, описываемых алгоритмами циклической структуры с использованием двумерныхмассивов. Регулярные типы.

Заключение

Списоклитературы

Заключение

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

еще рефераты

Еще работы по программированию, базе данных

Реферат по программированию, базе данных

Лабораторные работы (в ХГТУ)

29 Августа 2013

Реферат по программированию, базе данных

Программирование на Object Pascal в среде Delphi

29 Августа 2013

Реферат по программированию, базе данных

Создание проекта с использованием программы GeniDAQ и контроллеров серии АДАМ-4000

29 Августа 2013

Реферат по программированию, базе данных

Создание приложения ODBC

29 Августа 2013