Реферат: Отчет по практике по Turbo Pascal - текст реферата. Скачать бесплатно.
Банк рефератов, курсовых и дипломных работ. Много и бесплатно. # | Правила оформления работ | Добавить в избранное
 
 
   
Меню Меню Меню Меню Меню
   
Napishem.com Napishem.com Napishem.com

Реферат

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

Банк рефератов / Программирование

Рубрики  Рубрики реферат банка

закрыть
Категория: Реферат
Язык реферата: Русский
Дата добавления:   
 
Скачать
Архив Zip, 35 kb, скачать бесплатно
Заказать
Узнать стоимость написания уникального реферата

Узнайте стоимость написания уникальной работы

Практическое задание № 1 Записать выражение на языке Паскаль . Исполь зование стандартных функций . Оператор присваивания. Цель задания 1. Освоение простейших ко нструкций языка Паскаль. 2. Получение навыков рабо ты с числами . Использование стандартных функц ий , арифметических операций для записи матема тических выражений на языке Паскаль. 3. Получение практических навыков работы над ошибками . Освоение синтакс иса языка Паскаль. Поставка задачи Записать математическое выражение на языке Паскаль , и составить программу вычисления значения оператора присваивания . Опи сать поря док действий , над выражением исходя из приоритетности вычислений стандартных функций и арифметических операции. 1. a = (x+y/(5+x))/|y-sinx+x|+5arctgx 2. b= e tgu+1 lnarcsinv 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.0959950475 E +01 b =-6.7000345276 E -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. Получение практических навыков работы в интерактивном (диалоговом ) режиме. Постановка задачи Организовать ввод /вывод данных заданных типов , предусмотри те выводы с соо тветствующими заголовками. ц елые числа Вещественные числа формат формат 1 2 3 4 5 6 7 8 9 10 N в а р и а н т а количество стандартный ш и р и н а п о л я количество С тандартный ш ирина поля знаков после . символов печать булевской переменной 1 3 3 c 3 6 C 5 2 4 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 символьные переменные : S 1= q S 2= w S 3= e S 4= r печать символьных переменных с шириной поля 5: q w e r логическая переменная равна FALSE 3 Практическое задан ие № 3 Разветвляющие структуры . Оператор IF с GO TO , THEN , ELSE Цель задания 1. Получение на выков в использовании условного оператора при написании программ. 2. Разбор и знакомство с задачами , для решения которых используется условный оператор. Постановка з адачи Организуйте ввод и вывод пяти целых положительных чисел a , b , c , p , q . О пределив остаток К от деления на 9 величин ы М , равной вычислите значение функции y = arctg 4,7 x /( x 2 - secx )- x cosx ,при к =0 y =2 sinx ,при к =1 y = cos (| ax 2 + b |-1) ,при к =2 Листинг программы program zadanie _3; uses crt; var a,b,c,p,q,k,m:integer; x,y:real; begi n 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. Протокол работы Введите исходные данные : 2 3 76 3 76 4 a =2, b =3, c =76, p =3, q =76, x = 4.000 К =1, значение переменной Y равн о 0.592 В данной программе было использовано четыре оператора IF в сокращенной форме. При работе над данной программой о шибок допущено не было. Практическое здание № 4 Решение задач , описываемых а лгоритмами циклической структур ы с использованием одномерных массивов. Цель задания 1. Получение практических навыков работы с одномерным массивом. 2. Закрепление навыков в организации ввода /вывода значений одномерног о массива. 3. Получение практическ их навыков работы в интерактивном (диа логовом ) режиме. 4. Работа с диагностичес кими сообщениями транслятора при выполнении п рограмм с одномерным массивом. Постановка задачи Организуйте в вод /вывод одномерного массива , предусмотрите вывод соответствующими заголовками. В массиве z i , 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 n do 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 zadanie _5; 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 n do for i:=1 to n do begin clrscr; gotoxy(1,1); write(' элемент - ',j,',',i,':'); readln(a[j,i]); end; clrscr; writeln; writeln (' Исходная матрица :'); for i:=1 to n do begin d:=d+2; for j:=1 to n do begin b[j,i]:=d+a[j,i]; gotoxy(i*6,j+3); writeln(a[j,i]:3:1) end; end; writeln; writeln('преобразованная матрица :'); for i:=1 to n do for j:=1 to n do 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 Решение задач , описываемых алгори тмами циклической структур ы с использованием двумерных массивов . Регуля рные типы. Цель задания 1. Получение практических навыков работы операторами графики. 2. Получение навыков постро ения графических объектов и перемещение на плоскости. 3. Работа с диагн ос тическими сообщениями транслятора при выполнении программ с графическими объектами. Постановка задачи Построить систе му координат с началом в центре координат . Переместить фигуру согласно рисунку и за красить указанную область. program zadanie_6; uses graph, crt; var GraphDriver, GraphMode, ErrorCode, X0, Y0 : Integer; Begin 0 GraphDriver := Detect; InitGraph(GraphDriver, GraphMode, '..\bp\bgi'); ErrorCode := GraphResult; if ErrorCode <> grOk then begin WriteL n('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 Решение задач , описываемых алгоритмами циклической структуры с использованием дву мерных массивов . Регу лярные типы. Заключение Список литературы Заключение Практические заняти я используются для тщательного изучения содер жательно-методических принципов построения программы школьного курса информатики и учебных по собий , содержан ия и структуры прикладного программного обеспече ния школьного предмета информатики , обсуждения методики изучения отдел ьных тем курса с различными вариантами те х нического и методического обеспечения , в том числе сопровож даемого самостоятельными программ н ыми разработками сту дентов ; разработ ки и обсуждения материалов для внеклассной работы по информатике и вычислительной тех нике в средней школе
1Архитектура и строительство
2Астрономия, авиация, космонавтика
 
3Безопасность жизнедеятельности
4Биология
 
5Военная кафедра, гражданская оборона
 
6География, экономическая география
7Геология и геодезия
8Государственное регулирование и налоги
 
9Естествознание
 
10Журналистика
 
11Законодательство и право
12Адвокатура
13Административное право
14Арбитражное процессуальное право
15Банковское право
16Государство и право
17Гражданское право и процесс
18Жилищное право
19Законодательство зарубежных стран
20Земельное право
21Конституционное право
22Конституционное право зарубежных стран
23Международное право
24Муниципальное право
25Налоговое право
26Римское право
27Семейное право
28Таможенное право
29Трудовое право
30Уголовное право и процесс
31Финансовое право
32Хозяйственное право
33Экологическое право
34Юриспруденция
 
35Иностранные языки
36Информатика, информационные технологии
37Базы данных
38Компьютерные сети
39Программирование
40Искусство и культура
41Краеведение
42Культурология
43Музыка
44История
45Биографии
46Историческая личность
47Литература
 
48Маркетинг и реклама
49Математика
50Медицина и здоровье
51Менеджмент
52Антикризисное управление
53Делопроизводство и документооборот
54Логистика
 
55Педагогика
56Политология
57Правоохранительные органы
58Криминалистика и криминология
59Прочее
60Психология
61Юридическая психология
 
62Радиоэлектроника
63Религия
 
64Сельское хозяйство и землепользование
65Социология
66Страхование
 
67Технологии
68Материаловедение
69Машиностроение
70Металлургия
71Транспорт
72Туризм
 
73Физика
74Физкультура и спорт
75Философия
 
76Химия
 
77Экология, охрана природы
78Экономика и финансы
79Анализ хозяйственной деятельности
80Банковское дело и кредитование
81Биржевое дело
82Бухгалтерский учет и аудит
83История экономических учений
84Международные отношения
85Предпринимательство, бизнес, микроэкономика
86Финансы
87Ценные бумаги и фондовый рынок
88Экономика предприятия
89Экономико-математическое моделирование
90Экономическая теория

 Анекдоты - это почти как рефераты, только короткие и смешные Следующий
Не люблю в фильмах слащавых хэппиэндов, мне нравится когда всё как в жизни... Поэтому принципиально не смотрю порнуху.
Anekdot.ru

Узнайте стоимость курсовой, диплома, реферата на заказ.

Обратите внимание, реферат по программированию "Отчет по практике по Turbo Pascal", также как и все другие рефераты, курсовые, дипломные и другие работы вы можете скачать бесплатно.

Смотрите также:


Банк рефератов - РефератБанк.ру
© РефератБанк, 2002 - 2016
Рейтинг@Mail.ru