Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Toby
0 / 0 / 2
Регистрация: 31.05.2010
Сообщений: 6
#1

составить блок-схему - Pascal

02.06.2010, 01:11. Просмотров 384. Ответов 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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
unit MODUL;
interface
type
mas1=array [1..4] of real;
                    {задание записи}
biblioteka=record
avtor:string[11];
name:string [8];
god:string[5];
kolichestvo:string[5];
end;
 
mas=array [1..4]of biblioteka;
var
kniga:array [1..4] of biblioteka;
a:integer;
fail3,fail2:text;
mas2:array [1..4] of string;
kol:mas ;
 
procedure Vvod;
procedure sort(var a:mas1);
procedure vivod;
procedure vfail;
 
implementation
               {считывание в запись с файла}
procedure Vvod;
var a:integer;
begin
 assign(fail3,'C:\Documents and Settings\Маркус\Рабочий стол\TP_7_RusLg\tp7\BIN\курсовая\vxod.pas');
 reset(fail3);
    for a:=1 to 4 do with kol[a] do begin
     read(fail3,kniga[a].avtor); 
     read(fail3,kniga[a].name); 
     read(fail3,kniga[a].god); 
     readln(fail3,kniga[a].kolichestvo);
    end;
    close(fail3);
end;
 
                {вывод записи на экран}
procedure vivod;
var a:integer;
begin
    writeln;
    writeln('  avtor':11,'  ','name':8,'  ','god':5,'  ','kolichestvo':5);  
    writeln;
    for a:=1 to 4 do with kol[a] do begin
    write(' ',kniga[a].avtor:11 - length (avtor));
    write( kniga[a].name:8 - length (name));
    write(' ',kniga[a].god:5 - length (god));
    writeln(' ',kniga[a].kolichestvo:5 - length (kolichestvo));
    end;
end;
               {сортировка}
procedure sort;
var i,j:integer;
x: biblioteka;
begin
for i:=2 to 4 do
 begin
 x:=kniga[i];
 j:=i-1;
 while (x.avtor<kniga[j].avtor) and (j>0) do
  begin
  kniga[j+1]:=kniga[j];
  j:=j-1;
  end;
  kniga[j+1]:=x;
end;
end;
                 {запись в файл}
procedure vfail ;
var a:integer;
begin
 assign(fail2,'C:\Documents and Settings\Маркус\Рабочий стол\TP_7_RusLg\tp7\BIN\курсовая\vixod dan.txt');
 rewrite(fail2);
    writeln;
    writeln(fail2,'  avtor':11,'  ','name':8,'  ','god':5,'  ','kolichestvo':5);
     writeln(fail2);
    for a:=1 to 4 do with kol[a] do begin
    write(fail2,'   ',kniga[a].avtor:11 - length (avtor));
    write(fail2,'  ',kniga[a].name:8 - length (name));
    write(fail2,'  ',kniga[a].god:5 - length (god));
    writeln(fail2,'  ',kniga[a].kolichestvo:5 - length (kolichestvo));
    end;
 close(fail2);
end;
 
 
end.
Pascal
1
2
3
4
5
6
7
8
uses crt,MODUL;
begin
clrscr;
Vvod;
sortirovka;
vivod;
vfail;
end.
Добавлено через 20 минут
Помогите пожалуйста(((
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.06.2010, 01:11
Я подобрал для вас темы с готовыми решениями и ответами на вопрос составить блок-схему (Pascal):

Составить блок схему вычисления значения функции, а затем составить программу
Составить блок схему вычисления значения функции, а затем составить программу

Составить блок-схему
помогите и мне пожалуйста блок -схему правильно составить Program v18z8;...

Составить блок схему
uses crt; var s1 , s2 , s3 : string; set1 , set2 , set3 : set of char; ...

Составить блок схему
program test; uses crt; const n=10; var a:array of integer; b,c:arrayof...

Составить блок схему
var h , a , b : real; procedure printLine; begin ...

Составить блок-схему
БЛОК-СХЕМА? Var i:integer; s:string; Const prop=; Begin Write...

1
diam
403 / 76 / 7
Регистрация: 06.12.2009
Сообщений: 296
02.06.2010, 08:19 #2
в прицепе в картинках и в ворде
0
Вложения
Тип файла: zip noName.pas_.zip (117.7 Кб, 18 просмотров)
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.06.2010, 08:19
Привет! Вот еще темы с решениями:

Составить блок схему
Даны натуральное число n, действительная матрица A n x n. Найти Среднее...

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

Составить блок-схему
Привет. Помоги пожалуйста создать блок схему по этой программе! (Язык Pascal) ...

Составить блок-схему
uses crt; var a,b,c,d,k,p,n:longint; function NOD(a,b:longint):longint;...


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

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

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