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

Переделайте пожалуйста данную программу

23.10.2009, 01:39. Просмотров 395. Ответов 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
program lab;
var a:array[1..100] of integer;
    f:text;
    n,i,j,x:integer;
    s:string;
begin
 
randomize;
assign(f,'massiv.txt');
rewrite(f);
write('n=');
readln(n);
writeln(f,'Ishodnyj massiv:');
for i:=1 to n do
 begin
  a[i]:=random(50);
  write(' ',a[i]);
  write(f,' ',a[i]);
 end;
writeln;
reset(f);
readln(f,s);
n:=0;
while not eof(f) do
 begin
  n:=n+1;
  read(f,a[n]);
 end;
close(f);
writeln('massiv is file');
for i:=1 to n do
write(' ',a[i]);
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
append(f);
writeln(f,'');
writeln(f,'Massiv posle sortirovki:');
for i:=1 to n do
 begin
  write(' ',a[i]);
  write(f,' ',a[i]);
 end;
writeln;
close(f);
write('Massiv!');
readln
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.10.2009, 01:39
Ответы с готовыми решениями:

Переделайте пожалуйста готовую программу с С++ на язык Паскаль!
помогите с реализацией алгоритма сжатия Хаффмана. // ConsoleApplication6.cpp: определяет точку...

Пожалуйста, переделайте под Турбо Паскаль
function DecToBin(n:byte):string; const c:array of char= ('0','1'); var d:0..1; begin...

переделайте программу в подпрограмный
Помогите плиз переделайте программу из линейной в подпрограмный с использованием процедур и...

Переделайте эту программу через процедуру
type letters = array of integer; var a: letters; i: char; begin randomize; for...

1
Модератор
62260 / 46541 / 32085
Регистрация: 18.05.2008
Сообщений: 112,513
23.10.2009, 09:11 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
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
program lab;
uses crt;
type mas=array[1..100] of integer;
Procedure Create(var f:text;var ms:mas; var n:integer);
var i:integer;
begin
assign(f,'massiv.txt');
rewrite(f);
write('n=');
readln(n);
writeln('Ishodnyj massiv:');
writeln(f,'Ishodnyj massiv:');
for i:=1 to n do
 begin
  ms[i]:=random(50);
  write(' ',ms[i]);
  write(f,' ',ms[i]);
 end;
writeln;
end;
procedure ReadFile(var f:text;var ms:mas; var n:integer);
var i:integer;
    s:string;
begin
reset(f);
readln(f,s);
n:=0;
while not eof(f) do
 begin
  n:=n+1;
  read(f,ms[n]);
 end;
close(f);
writeln('massiv is file');
for i:=1 to n do
write(' ',ms[i]);
writeln;
end;
procedure Sort(var ms:mas;n:integer);
var i,j,x:integer;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if ms[i]>ms[j] then
 begin
  x:=ms[i];
  ms[i]:=ms[j];
  ms[j]:=x;
 end;
end;
procedure AppFile(var f:text;ms:mas;n:integer);
var i:integer;
begin
append(f);
writeln(f,'');
writeln('Massiv posle sortirovki:');
writeln(f,'Massiv posle sortirovki:');
for i:=1 to n do
 begin
  write(' ',ms[i]);
  write(f,' ',ms[i]);
 end;
writeln;
close(f);
write('Programma vypolnena!');
readln
end;
var a:mas;
    g:text;
    n:integer;
begin
clrscr;
randomize;
Create(g,a,n);
ReadFile(g,a,n);
Sort(a,n);
AppFile(g,a,n);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.10.2009, 09:11

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

Переделайте эту программу через функцию
type letters = array of integer; var a: letters; i, max: char; begin randomize; ...

Помогите пожалуйста написать процедуру, которая преобразует данную строку, убирая в ней лишние пробелы между словами
Помогите пожалуйста написать процедуру, которая преобразует данную строку, убирая в ней лишние...

Переделайте программу под фукции
В этой программе сделайте пожалуйста ввод ,сложение ,вывод через функцию var s1, s2, s3, c:...

Переделайте программу из TurboPascal в PascalABC.Net
Помогите пожалуйста!Переделайте программу из TurboPascal в PascalABC.Net Вот программа uses...


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

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

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