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

  • Просмотров 4426
  • Скачиваний 476
  • Размер файла 24
    Кб

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

операции. 1. a = (x+y/(5+x))/|y-sinx+x|+5arctgx 2. b= etgu+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.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.    Постановка задачи Организовать ввод/вывод данных заданных типов, предусмотрите выводы с

соответствующими заголовками. целые числа Вещественные числа формат формат 1 2 3 4 5 6 7 8 9 10 N в а р и а н т а количество стандартный ш и р и н а п о л я количество Стандартный ш ирина поля знаков после . символов печать булевской переменной 13 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('логическая