РефератыИнформатикаПрПрограммирование Рascal

Программирование Рascal

Вариант 2


Задания


1. Дано c, d.


Вычислить . Если , то вычислить и отпечатать . Если , напечатать «y=0», иначе вычислить


2. Дано a. Вычислить значение функции



где изменяется в интервале от 0,8 до 2 с шагом 0,1. Вывести на печать значения функции .


3. В заданном одномерном массиве определить


количество положительных элементов, равных первому положительному элементу. Если такие элементы в массиве есть, то вычислить сумму положительных элементов, рассматривая массив с конца. Если таких элементов нет, то напечатать об этом сообщение.


1
Блок-схема


Программа


program v2_1;


uses crt;


var


c,d,x,y,z:real;


BEGIN


clrscr;


writeln('vvedite c');


readln(c);


writeln('vvedite d');


readln(d);


y:=exp(d)+sin(c/(1+sqrt(d*d+1)))/cos(c/(1+sqrt(d*d+1)));


if y>0 then


begin


z:=c*y+d*y+c*d;


writeln('z= ',z:5:2);


end;


if y=0 then


writeln('y=0');


if y<0 then


begin


x:=arctan(y/sqrt(1-y*y))+sin(d/2)/cos(d/2);


writeln('x= ',x:5:2);


end;


readln;


END.


Тестовый пример




2
Блок-схема



Программа


program v2_2;


uses crt;


var


x,y,a:real;


BEGIN


clrscr;


writeln('vvedite a');


readln(a);


x:=0.8;

p>

while x<=2 do


begin


if x<1.3 then


y:=Pi*x*x*x-7/(x*x);


if x=1.3 then


y:=a*x*x*x+7*sqrt(x);


if x>1.3 then


y:=ln(x)/ln(10)+7/sqrt(x);


if y>0 then


writeln('y= ',y:5:2);


x:=x+0.1;


end;


readln;


END.


Тестовый пример




3
Блок-схема



Программа


program v2_3;


uses crt;


var


r:array [1..60] of integer;


i,n,k,l,m,sum :integer;


BEGIN


clrscr;


writeln('vvedite N<=60');


readln(n);


m:=0;


k:=0;


for i:=1 to n do


begin


writeln('vvedite ',i,' element');


readln(r[i]);


if (r[i]=l)and(m=1) then


k:=k+1;


if (r[i]>0)and(m=0) then


begin


l:=r[i];


m:=1;


end;


end;


if k=0 then


writeln('net elementov ravnyh 1 polozhitelnomy elementu')


else


begin


sum:=0;


for i:=n downto 1 do


begin


if r[i]>0 then


sum:=sum+r[i];


end;


writeln('summa polozhitelnyh elementov ravna ',sum);


end;


readln;


END.


Тестовый пример



Сохранить в соц. сетях:
Обсуждение:
comments powered by Disqus

Название реферата: Программирование Рascal

Слов:417
Символов:4815
Размер:9.40 Кб.