Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 04.03.2010
Сообщений: 22
1

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

21.05.2010, 01:11. Показов 924. Ответов 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
program zad;
uses crt;
type m=array[1..60] of integer;
 
 
procedure vvod;
var
mas:array[1..60] of integer;
j,max,kol:integer;
begin
  randomize;
  textcolor(3);
  for j:=1 to 60 do
  begin
    mas[j]:=random(101)-50;
    write(mas[j]:4);
  end;
  max:=mas[1];
  for j:=1 to 60 do
  begin
    if mas[j]>=max then max:=mas[j];
  end;
  kol:=0;
  for j:=1 to 60 do
  begin
    if mas[j]<0 then kol:=kol+1;
  end;
 
  writeln('максимальный элемент равен ',max);
  writeln('колличество отрицательных элементов равно ',kol);
  textcolor(15);
  writeln('нажмите ENTER ');
  readln;
end;
 
begin
  clrscr;
  textcolor(10);
  writeln('массив a ');
  vvod;
  textcolor(10);
  writeln('массив b ');
  vvod;
  textcolor(10);
  writeln('массив c ');
  vvod;
  textcolor(10);
  writeln('массив d ');
  vvod;
 
 
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.05.2010, 01:11
Ответы с готовыми решениями:

Блок схема к готовой программе
Привет! помогите построить блок схему к следующей программе. Задача: Текстовый файл содержит...

Блок-схема к готовой программе
uses crt; var sq1,sq2: real; function Exist (a,b,c: real): boolean; begin Exist:=((b+c-a)&gt;0)...

Составьте блок-схему по готовой программе
Составьте блок-схему по готовой программе. PROGRAM summa; VAR A,S:REAL; BEGIN S:=0; ...

Составьте блок-схему по готовой программе
составить блок схему)))помогите IF a=b THEN z:=a+b ELSE Begin IF a&gt;0 THEN

__________________
1
843 / 82 / 7
Регистрация: 06.12.2009
Сообщений: 328
21.05.2010, 03:27 2
в прицепе
0
Миниатюры
Составить блок-схемы по готовой программе   Составить блок-схемы по готовой программе  
Вложения
Тип файла: doc noName.pas.xls.doc (39.5 Кб, 17 просмотров)
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.05.2010, 03:27

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

По готовой программе составить блок схему
const k=10; var a:array of integer; i,n,m:integer; begin writeln('Введите номер элемента');...

Нужна блок-схема к готовой программе
program lab4b; var a:array of integer; i,j,n,t1,t2:integer; begin writeln('Ishodnaya...

Составьте блок-схему по готовой программе
Составьте блок-схему по готовой программе, кто может помогите ,пожалуйста. var a:array of...

Составить блок-схему по готовой программе c++
ПОМОГИТЕ ПОЖАЛУЙСТА! // TIcTacToeeee.cpp: определяет точку входа для приложения. // #include...


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

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

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