Форум программистов, компьютерный форум, киберфорум
Наши страницы
Алгоритмы
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.77/13: Рейтинг темы: голосов - 13, средняя оценка - 4.77
Sagadatklass777
0 / 0 / 0
Регистрация: 15.04.2010
Сообщений: 27
1

блок схема

20.04.2010, 21:26. Просмотров 2350. Ответов 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
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
  Program pr1;
uses crt;
Type
 sorevnovania=record
 fam_sportsmena:string;
 kol_ochkov_v: integer;
 kol_ochkov_b: integer;
 kol_ochkov_f: integer;
 kol_ochkov_la: integer;
 s: integer;
 end;
 Var
  tab: array [1..30] of sorevnovania;
  i,min,max,a: Integer;
  Begin
  clrscr;
  for i:=1 to 3 do
  Begin
  write ('vvedite familiu sportsmena: ');
  Readln(tab[i].fam_sportsmena);
  write ('vvedite kolichestvo ochkov po v: ');
  Readln(tab[i].kol_ochkov_v);
  write ('vvedite  kolichestvo ochkov po b: ');
  Readln(tab[i].kol_ochkov_b);
  write ('vvedite  kolichestvo ochkov po f: ');
  Readln(tab[i].kol_ochkov_f);
  write ('vvedite  kolichestvo ochkov po la: ');
  Readln(tab[i].kol_ochkov_la);
  writeln;
  end;
  writeln;
  writeln ('  fam sportsmena:     voll:      basket:       fot:     la:      summa:');
  writeln;
  For i:=1 to 3 do
  begin
  tab[i].s:= tab[i].kol_ochkov_v + tab[i].kol_ochkov_b+tab[i].kol_ochkov_f+tab[i].kol_ochkov_la;
  Write (tab[i].fam_sportsmena:10);
  write (tab[i].kol_ochkov_v:20);
  write (tab[i].kol_ochkov_b:10);
  write (tab[i].kol_ochkov_f:10);
  write (tab[i].kol_ochkov_la:10);
  write (tab[i].s:10);
  writeln;
  end;
  writeln;
  begin
  max:= tab[1].s;
  min:=tab[1].s;
  for i:=2 to 3 do
  begin
  if max<tab[i].s then max:= tab[i].s;
  if min>tab[i].s then min:= tab[i].s;
  if (min>a) and (max>a) then a:=tab[i].s;
  end;
  writeln ('I mesto','   ',max);
  Writeln ('IImesto','   ',a);
  writeln ('III mesto','   ',min);
  end;
  end.
  end.
  end.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.04.2010, 21:26
Ответы с готовыми решениями:

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

Блок-схема
Помогите составить блок схему по данному коду bool dfs(v: int): if (used) return...

Блок-схема
unit Main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,...

Блок схема
Народ, девчонка попросила меня помочь ей сделать лабораторку, половину сделал, а вот на этом...

БЛОК-СХЕМА
Нужна блок-схема нижеприведенной программы, помогите! #include &lt;stdio.h&gt; #include &lt;stdlib.h&gt;...

1
diam
405 / 78 / 7
Регистрация: 06.12.2009
Сообщений: 296
21.04.2010, 08:26 2
в прицепе
1
Миниатюры
блок схема  
Вложения
Тип файла: doc site26.pas.doc (39.5 Кб, 61 просмотров)
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.04.2010, 08:26

Блок-схема
Оператор условия имеют такую структуру: if (выражение) оператор else if (выражение) оператор...

Блок-схема C++
Доброго времени суток. Помогите составить блок-схему для кода. #include &lt;iostream&gt; #include...

Блок - схема
Помогите построить блок - схему


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

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

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