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

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


programzadanie_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 width=«120» height=«44» src=«ref-1_400060453-341.coolpic» v:shapes="_x0000_i1026">вычислите значение функции
            y=arctg4,7x/(x2-secx)-xcosx, при к=0

            y=2sinx, при к=1

            y=cos(|ax2+b|-1), при к=2
    продолжение
--PAGE_BREAK--