Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
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
Yandex
Объявления
12.05.2009, 17:12
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
Turbo Pascal Использование имени процедуры в качестве параметра другой процедуры
Help! Для массива С из n элементов составить процедуру, которая находит значения m наименьших его элементов (Z1, Z2,...,Zn, а также сумму наименьших элементов. Поочередно применяя разработанную...
Turbo Pascal ThyArtIsMurder 24.03.2014 22:34
Turbo Pascal Использование имени процедуры в качестве параметра другой процедуры
Составить программу по заданному условию. Первая часть условия является заданием на разработку процедуры для любой функции f или пары функций (f1, f2). Условие второй части задания предполагает...
Turbo Pascal Germetik 23.12.2013 19:43
Pascal процедуры Написать программу с использованием процедуры. Привести результаты расчетов
Вычислить суммы и количество элементов, находящихся в интервале от А до В для матриц x (10,8) и y (10,12). Использовать процедуру. паскаль БПВ
Pascal (Паскаль) sergey_lata 23.12.2013 12:35
Pascal ABC Использование имени процедуры в качестве параметра другой процедуры
Помогите пожалуйста решить задачу по теме «Использование имени процедуры в качестве параметра другой процедуры» Для заданного массива Т составить процедуру, переставляющую в конец массива элементы,...
Pascal ABC Impulsl 05.12.2013 00:04
Turbo Pascal Использование имени процедуры в качестве параметра другой процедуры:
Использование имени процедуры в качестве параметра другой процедуры: Составить программу по заданному условию. Первая часть условия является заданием на разработку процедур для любой функции f1, f2....
Turbo Pascal Немтинова 08.10.2013 12:19
Free Pascal Функции и процедуры. При помощи процедуры записать слова задом наперед
Дана строка S, состоящая из не менее 5 слов. При помощи процедуры записать слова задом наперед. Порядок слов сохранить. Помогите,пожалуйста
Free Pascal SAM 20.05.2012 12:16
Turbo Pascal Использование имени процедуры в качестве параметра другой процедуры.
Для двух заданных целочисленных массивов К и М разной длины составить процедуру, формирующую третий массив L из элементов массива М, не совпадающих ни с одним из элементов массива К. ...
Turbo Pascal nx18 25.04.2012 18:54
Turbo Pascal Использование имени процедуры в качестве параметра другой процедуры
Предложите, пожалуйста, пример решения след. задачи с использованием вышеуказанного условия: Составить процедуру, которая для заданного массива С из n элементов формирует массив из элементов, для...
Turbo Pascal Alexey355 23.04.2011 04:58
Опции темы

Текущее время: 18:11. Часовой пояс GMT +4.

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