Главная Коллекция "Revolution" Программирование, компьютеры и кибернетика Основы информатики

Основы информатики

Составление блок-схемы вычислительного процесса. Определение особенностей написания программы на языке Pascal. Рассмотрение листинга программы. Определение принадлежания точки к области. Анализ заполнения массива данных. Нахождение элемента матрицы.

Рубрика Программирование, компьютеры и кибернетика
Вид задача
Язык русский
Дата добавления 27.04.2016
Размер файла 531,1 K
рефераты на заказ со скидкой

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

Размещено на http://www.allbest.ru/

Задача 1

Условие задачи:

Составить блок-схему вычислительного процесса согласно заданию и написать программу на языке Pascal.

Вычислить значение выражения по формуле (все переменные принимают действительные значения). Значения переменных ввести с клавиатуры.

Блок-схема:

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

program pr_1;

uses crt;

var

x,y,z: real;

begin

write ('Введите x: ');

readln(x);

write ('Введите y: ');

readln(y);

if ((cos(12*y-4)=0) or (x+1<0)) then writeln('Происходит деление на ноль, либо вычисление корня из отрицательного числа') else

begin

z:=(1+sin(sqrt(x+1)))/(cos(12*y-4));

writeln('Результат: ',z:3:3);

end;

readkey;

end.

Тест программы:

Задача 2

Условие задачи:

Составить блок-схему вычислительного процесса согласно заданию и написать программу на языке Pascal.

Написать программу, которая выводит на экран первые четыре степени числа n.

Блок-схема:

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

program pr_2;

uses crt;

var

r,n: real;

i:integer;

begin

write ('Введите число n: ');

readln(n);

r:=1;

for i:=1 to 4 do begin

r:=r*n;

writeln(i,' степень числа ',n, ': ', r);

end;

readkey;

end.

Тест программы:

Задача 3

Условие задачи:

Составить блок-схему и программу для вычисления и вывода на печать значения функции.

Блок-схема:

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

program pr_3;

uses crt;

var

x,y: real;

begin

write ('Введите x: ');

readln(x);

if ((x>=9) and (x<=20)) then y:=(sqr(x)-9)/(sqrt(sqr(x)+x+9)) else begin

if (x<9) then y:=cos(x) else

y:=(9-sqr(x))/(sqr(x)+9*x+9);

end;

writeln('Результат: y=',y:3:3);

readkey;

end.

Тест программы:

Задача 4

Условие задачи:

Составить блок-схему и программу для решения задачи:

Даны два числа х и y, которые являются координатами точки М(х, y) на плоскости. Определить принадлежит ли точка М заштрихованной области, указанной на рисунке, и вывести соответствующее сообщение.

Блок-схема:

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

program pr_4;

uses crt;

var

x,y: real;

begin

write ('Введите x: ');

readln(x);

write ('Введите y: ');

readln(y);

if ((x>=0) and (x<=1) and (y>=0) and (y<=1) and (sqr(x)+sqr(y)<=1)) then

writeln('Точка принадлежит заштрихованной области') else

writeln('Точка не принадлежит заштрихованной области');

readkey;

end.

Тест программы:

Задача 5

Условие задачи:

Составить блок-схему и программу для решения задачи.

Вычислить значения выражения при заданном х.

Блок-схема:

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

program pr_5;

uses crt;

var

x,s: real;

i,a:integer;

begin

write ('Введите x: ');

readln(x);

a:=9;

for i:=1 to 8 do begin

s:=s+(a*x)/((a-8)*(a-7)*(a-6));

a:=a+2;

end;

writeln('Результат s=',s:3:3);

readkey;

end.

Тест программы:

Задача 6

Условие задачи:

Составить блок-схему и программу для вычисления значений функции y(x) на отрезке [a, b] с шагом h. Результат представить в виде таблицы, первый столбец которой - значение аргумента, второй - соответствующие значения функции.

Блок-схема:

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

program pr_6;

uses crt;

var

h,y,x: real;

a,b:integer;

begin

a:=0;

b:=19;

h:=0.2;

x:=a;

writeln(' x ',' | ',' y ');

while (x<=b) do begin

if (x<9) then y:=9-sqr(x) else y:=(sqr(x)-1)/(sqrt(sqr(x)+x+9));

writeln(x:3:3,' | ',y:3:3);

x:=x+h;

end;

readkey;

end.

Тест программы:

Задача 7

Условие задачи:

Составить блок-схему и программу для решения задачи.

Для массива X(15) записать на место отрицательных элементов массива нули.

Блок-схема:

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

program pr_7;

uses crt;

const n=15;

var

x:array [1..n] of real;

i:integer;

begin

for i:=1 to n do begin

write('x[',i,']=');

readln(x[i]);

end;

writeln;

for i:=1 to n do begin

if x[i]<0 then x[i]:=0;

end;

writeln;

for i:=1 to n do

writeln('x[',i,']=',x[i]);

readkey;

end.

Тест программы:

программа pascal матрица листинг

Задача 8

Условие задачи:

Составить блок-схему и программу для решения задачи.

Дана матрица A(N,N). Найти наименьший элемент матрицы и записать нули в строку и столбец, в которых он находится.

Блок-схема:

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

program pr_8;

uses crt;

const n=4;

var

a:array [1..n,1..n] of integer;

i,j,min,i1,j1:integer;

begin

for i:=1 to n do begin

for j:=1 to n do begin

a[i,j]:=random(200)-100;

write(a[i,j]:4,' ');

end;

writeln;

end;

min:=a[1,1];

i1:=1;

j1:=1;

for i:=1 to n do begin

for j:=1 to n do begin

if a[i,j]<min then begin min:=a[i,j]; i1:=i; j1:=j; end;

end;

end;

for i:=1 to n do

a[i,j1]:=0;

for j:=1 to n do

a[i1,j]:=0;

writeln;

for i:=1 to n do begin

for j:=1 to n do begin

write(a[i,j]:4,' ');

end;

writeln;

end;

readkey;

end.

Тест программы:

Размещено на Allbest.ru

...

Подобные документы

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.

© 2000 — 2023, ООО «Олбест» Все права защищены