Sniper
96 / 64 / 4
Регистрация: 28.01.2010
Сообщений: 326
1

Нужны блок-схемы

02.06.2010, 12:38. Показов 808. Ответов 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
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.06.2010, 12:38
Ответы с готовыми решениями:

блок схемы нужны))
привет помощь мне требуется)) нужно блок схемы на две задачки: №1 Данны два символьных массива....

Нужны блок-схемы
Приветствую. нужны помощь построении блок схем.... program z2; var s:string; ...

нужны программы и блок-схемы
1. задано nточек своими координатами. найти номера и координать точек, наиболее удаленных друг от...

Нужны блок-схемы к приложенному коду
Не получается сделать блок-схему по коду (2 способа - 2 схемы): uses crt; const nmax=100; var...

2
Идеи становятся силой...
121 / 121 / 64
Регистрация: 08.12.2009
Сообщений: 445
02.06.2010, 13:10 2
посмотри на форуме тут выкладывали программу для построения блок схем
0
Sniper
96 / 64 / 4
Регистрация: 28.01.2010
Сообщений: 326
02.06.2010, 14:14  [ТС] 3
Цитата Сообщение от Hidalgo08 Посмотреть сообщение
посмотри на форуме тут выкладывали программу для построения блок схем
Поищу. Если не трудно помогите сделать хотя бы несколько. Зарание благодарен
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.06.2010, 14:14
Помогаю со студенческими работами здесь

[Pascal] Нужны три Блок-Схемы по кодам
Просто помогите в очередной раз составить блок-схемы к уже переделанным кодам плз. program...

Нужны блок схемы (7- программ)
program altinwi; var i, diapazon: integer; a:array of integer; begin diapazon := 100; ...

Нужны блок схемы срочно....буду очень признателен
Program 3; Var n,l :integer ; Begin Writein (‘введите единицу длинны ‘); Writeln (‘введите...

Нужны различные блок-схемы, функциональные схемы жестких дисков и их работы.
Срочно нужны различные блок-схемы, функциональные схемы жестких дисков и их работы. Заранее большое...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru