0 / 0 / 0
Регистрация: 23.11.2009
Сообщений: 28
1

Блок-схемы

25.11.2009, 08:33. Показов 694. Ответов 8
Метки нет (Все метки)

помогите составить блок-схемы к этим программам!

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
39
40
uses crt;
var
i,j,n,k,l:integer;
a:array[1..100] of integer;
b:array[1..100] of integer;
begin
writeln('vvedite n');
readln(n);
randomize;
for i:=1 to n do begin
a[i]:=random(10);
write(a[i]:4);
end;
writeln;
b[1]:=a[1];
l:=2;
for i:=2 to n do begin
k:=0;
for j:=1 to l-1 do begin
if  b[j]=a[i] then k:=k+1;
end;
if k=0 then begin b[l]:=a[i];
l:=l+1;
end;
end;
for j:=1 to l-1 do
write(b[j]:4);
readln;
end.
sum:=0;
for i:=1 to n do
 sum:=sum+a[mini,i];
for i:=1 to n do
 begin
   write(a[i,j]:6:2);
   writeln;
 end;
writeln('Sum= ',sum:10:3);
readln;
end.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
var
i,j,mm,m,n,nn:integer;
a:array[1..100,1..100] of integer;
begin
writeln('vvedite n');
readln(n);
for i:=1 to n do begin
for j:=1 to n do begin
if i=j then
a[i,j]:=n-i+1
else a[i,j]:=0;
write(a[i,j]:2)
end;
writeln;
end;
readln;
end.

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
39
40
41
uses crt;
function Kor_3(t:real):real;{вычисляем корень третьей степени}
begin
if t<0 then Kor_3:=-exp(abs(ln(t))/3){для отрицательных}
else if t=0 then Kor_3:=0{для ноля}
else Kor_3:=exp(ln(t)/3);{для положительных}
end;
var x,xn,xk,a,dx,y,s,p:real;
    k:integer;
begin
clrscr;
write('Начало интервала xn=');
readln(xn);
repeat
write('Конец интервала, больше начала xk=');
readln(xk);
until xk>xn;
repeat
write('Шаг табуляции, меньше длины имрервала dx= ');
readln(dx);
until dx<(xk-xn);
write('a=');readln(a);
s:=0;
p:=1;
k:=0;
x:=xn-dx;
while x<=xk do
 begin
  x:=x+dx;
  if (x<0) then y:=0
  else
   begin
    y:=sqr(Kor_3(sqrt(x)+a)+a-Kor_3(a*x*x));
    k:=k+1;
    s:=s+y;
    p:=p*y;
   end;
 end;
writeln('Сумма=',s:0:2,'  произведение=',p:0:2,'  количество=',k);
readln
end.

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
39
40
41
42
43
44
45
46
47
uses crt;
const k=5;
      g=6;
var m:array[1..k,1..g] of byte;
   i,j,sm,mn,imn:byte;
begin
clrscr;
writeln('Введите данные таблицы по 5 курсам, на каждом 6 групп, в группах 20-30 чел.:');
for i:=1 to k do
for j:=1 to g do
 begin
  repeat
   write('курс ',i,' группа ',j,' = ');
   readln(m[i,j]);
  until m[i,j] in [20..30];
 end;
clrscr;
writeln('Таблица:');
writeln;
write('группа');
for i:=1 to g do
write(i:4);
writeln;
writeln('курс  ');;
for i:=1 to k do
 begin
  write(i:3,'   ');
  for j:=1 to g do
  write(m[i,j]:4);
  writeln;
 end;
writeln;
mn:=180;imn:=1;
for i:=1 to k do
 begin
  sm:=0;
  for j:=1 to g do
  sm:=sm+m[i,j];
  if sm<mn then
   begin
    mn:=sm;
    imn:=i;
  end;
 end;
writeln('Меньше всего студентов обучается на ',imn,' курсе. ',mn,' чел.');
readln
end.
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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
uses crt;
var a1,a2,b1,b2,c1,c2,c3:byte;
begin
clrscr;
repeat
writeln('Введите цифры первого числа(числа от 10 до 99):');
readln(a2,a1);
until(a2 in [1..9])and(a1 in [1..9]);
repeat
writeln('Введите цифры второго числа(числа от 10 до 99):');
readln(b2,b1);
until(b2 in [1..9])and(b1 in [1..9]);
if a2*10+a1>b2*10+b1 then
 writeln('Число А уменьшаемое, число В вычитаемое')
else if a2*10+a1<2*10+b1 then
 writeln('Число B уменьшаемое, число A вычитаемое')
else writeln('Числа А и В равны');
c1:=(a1+b1)mod 10;
c2:=(a2+b2+(a1+b1)div 10) mod 10;
c3:=(a2+b2+(a1+b1)div 10) div 10;
write('Цифры суммы чисел ',c3,' ',c2,' ',c1);
readln
end.
 
 
uses crt;
const n=13;//это максимально, что входит на экран
var a,b,c:array[1..n,1..n] of real;
    i,j,p:byte;
begin
clrscr;
randomize;
writeln('Матрица А:');
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     a[i,j]:=5*random;
     write(a[i,j]:4:1);
    end;
   writeln;
 end;
writeln;
writeln('Press Enter...');
readln;
writeln('Матрица B:');
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     b[i,j]:=5*random;
     write(b[i,j]:4:1);
    end;
   writeln;
 end;
writeln;
writeln('Press Enter...');
readln;
for p:=1 to n do
for j:=1 to n do
 begin
  c[p,j]:=0;
  for i:=1 to n do
  c[p,j]:=c[p,j]+a[p,i]*b[i,j];
 end;
writeln('Матрица C:');
for i:=1 to n do
 begin
   for j:=1 to n do
   write(c[i,j]:6:1);
   writeln;
 end;
 
readln
end.
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
uses crt;
var a:array[1..50,1..50] of real;
     n,i,j,mini,minj:byte;
     sum:real;
begin
clrscr;
writeln('n ');
readln(n);
mini:=1;
minj:=1;
for i:=1 to n do
 for j:=1 to n do
   begin
     writeln('a[',i,',',j,']= ');
     readln(a[i,j]);
     if a[mini,minj]>a[i,j] then
       begin
         mini:=i;
         minj:=j;
       end;
   end;
 
sum:=0;
for i:=1 to n do
 sum:=sum+a[mini,i];
 
for i:=1 to n do
 begin
   write(a[i,j]:6:2);
   writeln;
 end;
writeln('Sum= ',sum:10:3);
readln;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.11.2009, 08:33
Ответы с готовыми решениями:

блок-схемы
помогите сделать блок схемы по данным кодам в паскале: 1.uses crt; var...

блок схемы
Всем доброго времени суток. Посоветуйте пожалуйста программу, которая могла бы составить блок-схему...

Блок-схемы
Напишите пожалуйста блок-схему к задаче : var s:string; i,k:integer; begin readln(s); for i:=1...

блок схемы!
приветик! ребят помогите пожалуста построит блок схемы а то я сама чёта не помню как :( program...

8
Программист 1С
859 / 647 / 187
Регистрация: 03.03.2009
Сообщений: 1,154
25.11.2009, 10:22 2
Blondinochka, А не многовато ли?
0
0 / 0 / 0
Регистрация: 23.11.2009
Сообщений: 28
25.11.2009, 10:53  [ТС] 3
ну сколько сможете,сделайте пожалуйста
0
Программист 1С
859 / 647 / 187
Регистрация: 03.03.2009
Сообщений: 1,154
25.11.2009, 10:57 4
Blondinochka, ждите!сделаю - выложу все!
0
0 / 0 / 0
Регистрация: 23.11.2009
Сообщений: 28
25.11.2009, 10:57  [ТС] 5
хорошо,заранее большое спасибо!!!!!!
0
Программист 1С
859 / 647 / 187
Регистрация: 03.03.2009
Сообщений: 1,154
25.11.2009, 11:22 6
Blondinochka, Вот держите ко 2,3,4 задач!
Вложения
Тип файла: rar 2,3,4.rar (22.7 Кб, 20 просмотров)
1
Программист 1С
859 / 647 / 187
Регистрация: 03.03.2009
Сообщений: 1,154
25.11.2009, 11:23 7
5,6,7
Незабудьте переделать к более наглядному виду - которому вас учат...
Сейчас к первой задаче сделаю.
Вложения
Тип файла: rar 5,6,7.rar (21.8 Кб, 13 просмотров)
1
0 / 0 / 0
Регистрация: 23.11.2009
Сообщений: 28
25.11.2009, 11:47  [ТС] 8
огромное спасибо,все доделаю!

Добавлено через 14 минут
жду первую задачу
0
Программист 1С
859 / 647 / 187
Регистрация: 03.03.2009
Сообщений: 1,154
25.11.2009, 12:07 9
Blondinochka, Переделать обязательно...под вид которому учили - это только наброски.
Вложения
Тип файла: rar №1.rar (26.4 Кб, 23 просмотров)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.11.2009, 12:07

Блок схемы
Маленькая просьба, помогите с блок схемами к следующим задачам: 1) uses crt; type film=record...

Блок-схемы
Товарищи, помогите с блок-схемами, никак у меня не выходит их составлять. По идеи по блок-схеме...

блок-схемы
моготи если можно нарисовать блок схеми к прогам а то я не очень то умею ето делать!!!!! program...

блок-схемы
Помогите пожалуйста написать блок-схему к задаче с оператором case:Единицы массы пронумерованы...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.