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

@dimafe6 · Регистрация: 28.01.2010

Студворк — интернет-сервис помощи студентам

Здраствуйте. Нужны блок-схемы. Так как у меня нет возможности их сделать(отсуствует 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.

@Hidalgo08 · 02.06.2010, 13:10

посмотри на форуме тут выкладывали программу для построения блок схем

@dimafe6 · 02.06.2010, 14:14 **[ТС]**

Сообщение от Hidalgo08

посмотри на форуме тут выкладывали программу для построения блок схем

Поищу. Если не трудно помогите сделать хотя бы несколько. Зарание благодарен

Новые блоги и статьи Все статьи Все блоги /
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .

@Hidalgo08 Идеи становятся силой... 121 / 121 / 64 Регистрация: 08.12.2009 Сообщений: 445
	02.06.2010, 13:10
	посмотри на форуме тут выкладывали программу для построения блок схем 0