Форум программистов, компьютерный форум CyberForum.ru
CyberForum.ru - форум программистов и сисадминов > >
Восстановить пароль Регистрация
 
plastid_Aka-plastid
Новичок
0 / 0 / 0
Регистрация: 02.04.2009
Сообщений: 6
12.05.2009, 17:12     Процедуры   #1
Помогите обьединить с помошью процедуры
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program zadacha1;
uses crt;
var x:array[1..10] of integer;
i:integer;
begin
clrscr;
randomize;
for i:=1 to 10 do begin
x[i]:=random(10);
write(x[i],' ');
end;
readln;
for i:=1 to 8 do begin
x[i]:=x[i+2];
write(x[i],' ');
end;
readkey;
end.
и
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program zadacha2;
uses crt;
var x:array[1..10] of integer;
n,a,i:integer;
begin
clrscr;
randomize;
for i:=1 to 10 do begin
x[i]:=random(10); write(x[i]); end; readln;
writeln('vvedite elementi');
readln(a);
{for i:=1 to 10 do
readln(x[i]);}
for i:=1 to 10 do
if x[i]=a then writeln('nomer elementa',i)
else x[i]:=0;
readkey;
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
program zadacha3;
uses crt;
const size=10;
var c,a,b:array[1..size,1..size] of real;
       i,j:integer;
begin 
for i:=1 to 4 do
begin 
for j:=1 to 4 do
read(a[i,j]);
writeln;
end;
i:=1;
repeat
for j:=1 to 4 do
begin
b[i,j]:=a[4+1-i,j];
c[i,j]:=a[3+2-i,j];
end;
i:=i+1;
until i>4;
for i:=1 to 4 do
begin
for j:=1 to 4 do
write(c[i,j]:2:0,' ');
writeln;
end;
readkey;
end.
и
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program zadacha1;
uses crt;
var  a:array[1..10]of integer;
    k,b,l,m,j,ko:integer;
procedure z1;
begin
clrscr;
writeln('vvedi n');
readln(m);
writeln('vvedi k');
readln(l);
clrscr;
ko:=0;
for j:=1 to m do
read(a[j]);
for j:=1 to m do
if a[j]=l then ko:=ko+1;
writeln('kolichestvo=', ko);
readkey;
end.
Обьединить с помошью процедуры
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program zadacha5;
uses crt;
var s1:string;
k,i,b:integer;
x:char;
begin
clrscr;
writeln('vvedite tekst do tochki');
readln(s1);
b:=pos('.',s1);
s1:=copy(s1,1,b-1)+' ';
k:=0;
repeat
if s1[1]<>' ' then x:=s1[1];
i:=pos(' ',s1);
if i>1 then if x=s1[i-1] then k:=k+1;
delete(s1,1,i);
until i=0;
writeln('kol-vo slov kotorie i nachinautsya i konchautsya 1 i toi je bukvoi=',k);
readkey;
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
program zadacha6;
uses crt;
var count,i,o,j:integer;
h,st,buf:string;
begin
clrscr;
count:=;
buf:=' ';
h:=' ';
o=0;
repeat
buf:=' ';
if(st[1]=' ')or (length(st)=0) then
while (st[1]=' ')do delete(s1,1,1)
else begin
o=0;
while(st[1]<>' ')and(st[1]<>'.') and (length(st)>0) do begin
if(st[1]<>' ')and(st[1]<>'.') then inc(o);
if o=1 then begin h:=copy(st,1);
delete(st,1,1); end;
buf:=buf+st[1];
delete(st,1,1);
end;
end;
end;
j:=length(buf);
insert(h,buf,j+1);
j:=length(buf);
if j>1 then writeln(buf)
until st[1]='.';
readkey;
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
program zadacha7;
uses crt;
var s1:string; 
k,j,i,l:integer;
m:set of char;
buf:char;
begin
clrscr;
m:=['z','d','b','g','v','c','r','j'];
writeln('vvedite tekst do tochki');
read(s1);
for i:=1 to pos('.',s1)-1 do
for j:=pos(',',s1)-1 downto j+1 do
if s1[j]<s1[j-1] then begin
buf:=s1[j];
s1[j]:=s1[j-1];
s1[j-1]:=buf;
end;
for k:=1 to pos('.',s1) do
if (s1[k] in m) then
write(s1[k]);
readkey;
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
program zadacha8;
uses crt;
type pam=record
fio:string[12];
p:char;
d:integer; g:string;
end;
var t:array[1..2] of pam;
i:integer;
b,m:char; g:string;
begin
clrscr;
for i:=1 to 2 do
begin
writeln('vvedite imya');
readln(t[i].fio);
writeln('vvedite pol');
readln(t[i].p);
writeln('vvedite mesyac rojdeniya');
readln(t[i].d);
writeln('vvedite gorod gde rodilsya chelovek');
readln(t[i].g);
end;
for i:=1 to 2 do begin
if (t[i].d=4) and (t[i].p='b') then begin writeln('zovut:',t[i].fio,' ','rodilas v:',t[i].g);
end;
end;
readkey;
end.
AdAgent
Объявления
12.05.2009, 17:12    Процедуры
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.05.2009, 17:12    Процедуры

Посмотрите здесь:

Pascal Процедуры

Turbo Pascal Использование имени процедуры в качестве параметра другой процедуры

Turbo Pascal процедуры

Free Pascal Функции и процедуры. При помощи процедуры записать слова задом наперед

Pascal Процедуры и функции. Процедуры с числовыми параметрами

Turbo Pascal Использование имени процедуры в качестве параметра другой процедуры:

Pascal Процедуры и функции. Для каждого варианта в обязательном порядке предусмотреть использование процедуры и функции. Процедура и функция должны выполня

Turbo Pascal Процедуры

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

Turbo Pascal Использование имени процедуры в качестве параметра другой процедуры

После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему
Опции темы

Текущее время: 10:57. Часовой пояс GMT +4.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.