Отчет по практике по Turbo Pascal — страница 2

переменная равна ',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 величины М, равной y=arctg4,7x/(x2-secx)-xcosx ,при к=0 y=2sinx ,при к=1 y=cos(|ax2+b|-1) ,при к=2 Листинг программы program zadanie_3; 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. Протокол работы Введите исходные данные: 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.    Постановка задачи Организуйте ввод/вывод одномерного массива, предусмотрите вывод

соответствующими заголовками. В массиве {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 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 Исходные данные