Нужны блок-схемы
02.06.2010, 12:38. Показов 864. Ответов 2
Здраствуйте. Нужны блок-схемы. Так как у меня нет возможности их сделать(отсуствует MS Visio). Зарание благодарен.
Задание 1:
Код:
| Pascal | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
| program Project1;
uses crt;
var
Z:boolean;
m,n,r,Asin,rez,Acos,Chiselnik, Logariphm,pow1,pow2,koren,P_viraz,znamennik:real;
const a=0.5; x=0.000034; b=1.65;
XX= 1.5;Y= 2.5;AA=True;BB=True;C=False;
BEGIN
Asin:=arctan(x/Sqrt(1-Sqr(x)));
Acos:= (3.14/2)-Asin;
Chiselnik:=Exp(-x)+Ln(abs(Acos))+arctan(x)-1.2*(sqr(cos(x)));
Logariphm:=Ln(b)/Ln(10);
pow1:=exp(ln(0.3)*-15);
pow2:=exp(ln(3.5)*-5);
m:=x+sqr(a)-pow1;
r:= Exp(Ln(abs(m))/3);
if a<0 then
Koren:=-r else Koren:= r;
Znamennik:=(sqrt(a*x))*(a*Exp(a*x)+pow2*(a*x))-Koren+Logariphm;
begin
clrscr;
Writeln('Zadanie 1, variant 11:');
writeln;
rez:= Chiselnik/Znamennik;
Write('Y:= ');
writeln(rez:3:17);
Z:= ((AA and BB) Or (XX<=1.3) and (Y>=1.5)) or AA and not BB;
Writeln('Z = ',Z);
readln;
end;
end. |
|
Задание 2:
Найти количество элементов массива А = (1.2,5,7,9.3,6.9, -8, -1.5,2.5,2.8), удовлетворяющих условие С ≤ А_и <D, если С =- 3,5; D = 6. Сформировать из этих элементов массив F.
Код:
| Pascal | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
| program Project2;
uses crt;
Const
c=-3.5; n=9; d=6;
A: array [1..9] of real = (1.2,5,7,9.3,6.9,-8,-1.5,2.5,2.8);
var
F: array[1..9] of real;
i,j:integer;
begin
clrscr;
Writeln('Массив A = ');
for i := 1 to n do
Writeln(A[i]:10:1);
i:=1;
for j := 1 to n do
begin
if (A[j]>=c) and (A[j]<d) then
begin
F[i]:= A[j];
i:=i+1;
end;
if i-1 = n then break;
end;
writeln(Количество елементов за условием = ', i-1);
writeln(Массив F = ');
for j := 1 to i - 1 do
writeln(F[j]:10:1);
readln;
end. |
|
Задание 3.1:
1. Найти сумму N элементов ряда
2. Найти массив сумм S элементов ряда для каждого значения заданной последовательности Х. Каждую сумму искать с точностью до ε.
Код:
| Pascal | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
| program Z3_1;
uses crt;
const n = 10;
x = 0.7;
var s : real;
i : integer;
znak: real;
Begin
ClrScr;
writeln('Завдання 3_1. Варiант 11');
writeln('Знайти суму N елементiв ряду');
writeln('');
s:=1+x;
for i:=2 to n do
begin
znak:= -1;
znak:= znak*i;
s:=s+(znak)*(Exp(2*i*4*Ln(x)))/2*i+1;
end;
writeln('Сума елементiв S = ',s:10:8);
writeln('');
write('ENTER - выход');
readln;
End. |
|
Задание 3.2:
| Pascal | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
| program z3_2;
uses crt;
const xn = 0.5;
xk = 1.5;
hx = 0.2;
e = 1e-4;
n=10;
var s : array[1..10] of real;
x : real;
y : real;
i, j : integer;
k : integer;
znak : integer;
Begin
ClrScr;
x:=xn;
k:=1;
while x<=xk+e do
begin
s[k]:=1+x;
for i:= 1 to n do
begin
znak:= -1;
znak:= znak*znak;
y:=(znak)*((Exp(2*i*4*Ln(x)))/2*i+1);
s[k]:=s[k]+y;
if Abs(y)<e then break;
end;
writeln('k = ',k:2,' x = ',x:4:1,' S = ',s[k]:2:2);
k:=k+1;
x:=x+hx;
end;
writeln('');
write('ENTER - выход');
readln;
End. |
|
Задание 4:
1. Выходные величины представить в виде внешнего текстового файла, вывести их из файла в переменные, а затем вывести на экран в формате.
2. Ввести в выходной массив из текстового файла. Вывести его на экран в естественном виде. Выполнить задание. Результаты вывести в другой текстовый файл.
1. r = 34.5, d = 0.854, m = 0.8 ∙ 〖10〗 ^ 7, n = 15, l =- 60000, a = 'TO', b = 'DOWN', g = 'STOP'
2. Сформировать массив В из элементов массива А, меньших Е
Код 4.1:
| Pascal | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
| program lab4_1;
uses crt;
const k = 5;
var
r : real;
d : real;
m : real;
n : integer;
l : real;
a : string[2];
b : string[4];
g : string[4];
f:text;i: integer;
Begin
ClrScr;
writeln('Завдання 4_1 варіант 11');
writeln('Зчитування та виведення на екран текстового файлу');
writeln('');
Assign(f,'data2.txt');
Reset(f);
read(f,r,d,m,n,l);
readln(f);
readln(f,a,b,g);
Close(f);
write('r = ',r:1:1,' d = ',d:0:3,' m = ',m:1:0,' n = ',n,' l = ',l:1:0,' a = ',a,' b = ',b,' g = ',g);
writeln;
write('Для выхода нажмите ENTER!');
readln;
End. |
|
Код 4.2:
| Pascal | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
| program kurs4_2;
uses crt;
const m=2;n=4;E=4.5;
var
A: array[1..4,1..2] of real;
B: array[1..4,1..2] of real;
i,j:integer;
f: text;
f1:text;
begin
clrscr;
assign(f,'data.txt');reset(f);
assign(f1,'rez.txt');rewrite(f1);
writeln('Масив А = ');
for i:=1 to 4 do
begin
for j:=1 to 2 do
begin
read(f, A[i,j]);
writeln(A[i,j]:1:1,'; ');
end;end;
Writeln('Масив В ‚ = ');
for i:= 1 to 4 do
begin
for j:= 1 to 2 do begin
if A[i,j]<E then begin
B[i,j]:=A[i,j];
writeln(B[i,j]:1:1,'; ');
end;
end;
end;
for i:=1 to 4 do begin
for j:= 1 to 2 do begin
write(f1,B[i,j]);
end;end;
close(f);
readln;
end. |
|
Задание 5:
Создать с помощью редактора текстовый файл символов. Прочитать все символы и создать из них массивы российских и латинских букв. На основе полученных массивов создать множества российских и латинских букв. Выдать результат в два текстовых файлов rus.dat и lat.dat в виде: «массив - символы, множество - символы»
Код:
| Pascal | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
| program kurs7_1;
uses crt;
var
f1: text;
f2: file of char;
f3: file of char;
i:integer;aa,bb:char;
A : set of char;
B : set of char;
Ai: array [1..10] of char;
Bi: array [1..10] of char;
begin
clrscr;
assign(f1, 'data.txt');
assign(f2, 'rus.dat');
assign(f3, 'lat.dat');
reset(f1);rewrite(f2);rewrite(f3);
for i:=1 to 10 do begin
read(f1, Ai[i]);
end;
for i:= 10 to 20 do begin
read(f1,Bi[i]);
end;
writeln('rus.dat = ');
for i:=1 to 10 do begin
A:=A+[Ai[i]];
write(f2, Ai[i]);
write(Ai[i]);
end;
write('lat.dat = ');
for i:= 10 to 20 do begin
B:=B+[Bi[i]];
write(f3, Bi[i]);
write(Bi[i]);
end;
readln;
end. |
|
Задание 6:
Выполнить задачи, динамично распределив память используемых в программе одномерных массивов.
Исходные данные ввести из текстового файла.
Нужны действия оформить в виде подпрограмм.
Полученные результаты вывести в текстовый файл
Вычислить Y (n) = sin (x) если m (i) = 0 или cos (x) + m (i) если m (i) ≠ 0,) где х = 1,02 ∙ 〖10〗 ^ 4 , m (i) - массив, элементы которого является остаток от деления целых компонентов массива N (n) = (156,18,72,10,95,100) на целое число K = 9, n = 6.
Код:
| Pascal | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
| program Z9;
uses crt;
type
Ni= array [1..1] of integer;
m= array[1..1] of integer;
var
x:real;k,n: integer;
i: integer;
f1:text;
Nn:^Ni;Mi: ^m;
Yn:real;
procedure init;
begin
clrscr;
assign(f1,'data.txt');
reset(f1);
read(f1, x,n,k);
readln(f1);
for i:= 1 to n do begin
getmem(Nn, n*sizeof(integer));
getmem(Mi, n*sizeof(integer));
read(f1, Nn^[i]);
Mi^[i]:=Nn^[i] mod k;
write('Mi = ',Mi^[i],'-----');
if Mi^[i] <>0 then begin Yn:= cos(x)+ Mi^[i];end;
if Mi^[i]=0 then begin Yn:=sin(x);end;
writeln('Yn = ',Yn:5:2);
end;
writeln;
end;
BEGIN
clrscr;
init;
readln;
end. |
|
0
|
(
Сообщение от Hidalgo08
