Название: Программирование Рascal
Вид работы: реферат
Рубрика: Информатика
Размер файла: 107.84 Kb
Скачать файл: referat.me-133207.docx
Краткое описание работы: Вариант 2 Задания Дано c, d. Вычислить . Если , то вычислить и отпечатать . Если , напечатать «y=0», иначе вычислить Дано a. Вычислить значение функции изменяется в интервале от 0,8 до 2 с шагом 0,1. Вывести на печать значения функции
Программирование Р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;
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.
Тестовый пример
Похожие работы
-
Составление программ ленейной структуры
ТЕМА 1 (вариант 8) Вычислить значение выражения : , если g = 9,81 ; Т = 5 ; V =12,5 ; Х = 2,43 Програмный код Option Explicit Private Sub cmdStart_Click() Dim V0 As Single, T As Single, g As Single, x As Single, J As Single
-
Отчет по учебной практике по Информатике и компьютерной технике
Министерство образования и науки Украины Национальный Горный Университет Институт экономики Кафедра ЭКИТ Отчет по учебной практике по дисциплине:
-
Особенности работы с MS Excel СУБД MS Access программирование на языке Бейсик
Оглавление Графический режим в языке программирования Бейсик 2 Задача 2. Освоение приемов работы с электронными таблицами MS Excel 7 Графический режим в языке программирования Бейсик
-
Основы программирования и алгоритмизации 2
Министерство образования и науки РоссийскойФедерации Кафедра информатики Курсовая работа Основы программирования и алгоритмизации г.Челябинск
-
Turbo Pascal
Рязанская государственная радиотехническая академия Кафедра Вычислительной и Прикладной математики Пояснительная записка К курсовой работе по дисциплине
-
Действия с векторами
Урок геометрии: «Действия с векторами» Волгина Наталья Александровна МОУ «СОШ №4» г.Называевска « Учиться можно только весело…Чтобы переваривать знания, надо поглощать их с аппетитом»
-
Программа решения трансцендентного уравнения на языке Pascal
Министерство науки и образования РТ Казанский Государственный Технический Университет имени А.Н. Туполева Отчёт по расчетно-графической работ Выполнил студент гр. 3108
-
Задачи по программированию
СОДЕРЖАНИЕ ЗАДАНИЕ 1 Даны числа X и Y.Вычислить Z= f(T,P) (Линейный алгоритм) T= x+ ; P=e 1.1. Блок-схема 1.2. Текст программы и результат Sub zadanie1()
-
Контрольная работа по Информатике 9
Задание № 1 Вычислить функцию, используя стандартные функции (значения аргументов установить самостоятельно). Решение: =КОРЕНЬ(D4). =СТЕПЕНЬ(D4;2)+СТЕПЕНЬ(E4;2)-50+КОРЕНЬ(50)+D4-8.071+КОРЕНЬ(8.071).
-
Циклические вычислительные процессы
Отчет по лабораторной работе №1. Тема: «Циклические вычислительные процессы». Дисциплина: «Языки программирования и методы трансляции». Цель: Ознакомление с методами работы организации циклических вычислений при использовании языка программирования С.