Форум: "Начинающим";
Текущий архив: 2006.11.26;
Скачать: [xml.tar.bz2];
ВнизПрога процедурного типа Найти похожие ветки
← →
ANEM © (2006-11-07 21:29) [0]Мы сейчас в институте проходим делфи,вот задали задачку,никак не могу понять,как решить.Подскажите,пожалуйста!
Составить процедуру,которая в символьной матрице S(l,q) определяет строки, не содержащие цифр и переписываетих в новую матрицу.Использовать процедуру для матриц Z(n,m) и C(i,j).Распечатать исходные и полученные матрицы.Если результирующая матрица пуста, то выдать соотв. текст.
← →
Virgo_Style © (2006-11-07 21:34) [1]Ничего не могу подсказать, сам не понял, чего хотят
← →
Percent (2006-11-07 21:35) [2]Молодцы!
← →
Орион © (2006-11-07 23:30) [3]фигасе у вас задачки в институте о.О :)
это... сколько WMZ?
← →
Anatoly Podgoretsky © (2006-11-07 23:33) [4]> ANEM (07.11.2006 21:29:00) [0]
Это задания, а условия?
← →
ANEM © (2006-11-08 00:07) [5]Мы сейчас начали проходиьт программы процедурного типа.Вот что нам давали на семинарах:
program lesson;
{$APPTYPE CONSOLE}
uses
SysUtils;
type
Tmas=array[1..30]of string;
Procedure vvod(var s:Tmas;var k:integer);
var
i:integer;
begin
writeln("vvedite razmer massiva");
readln(k);
writeln("vvedite ",k," strok");
for i:=1 to k do
readln(s[i]);
end;
{------------------}
procedure vivod(const s:Tmas;k:integer);
var
i:integer;
begin
writeln("massiv:");
for i:=1 to k do
writeln(s[i]);
readln;
end;
{--------------------}
Function minlen(var s:Tmas;k:integer):string;
var
i,n,min:integer;
begin
min:=length(s[1]);n:=1;
for i:=1 to k do
if length(s[i])<min then
begin
min:=length(s[i]);n:=i ;
end;
minlen:=s[n];
end;
{-------------------}
procedure sort(var s:Tmas;k:integer);
var
i,j:integer;buf:string;
begin
for i:=1 to k do
for J:=k downto i do
if s[j-1]>s[j] then
begin
buf:=s[j];
s[j]:=s[j-1];
s[j-1]:=buf;
end;
end;
{-------------------}
Function number(st:string;simbol:char):integer;
var
kol,i:integer;
begin
kol:=0;
for i:=1 to length(st) do
if st[i]=simbol then
kol:=kol+1;
number:=kol;
end;
{--------Program---------}
var
A:Tmas;n,k,k1:integer;s1:char;y:string;
begin
vvod(a,k);
vivod(a,k);
y:=minlen(a,k);
writeln("stroka minimalnoi dlyni");
writeln(y);
sort(a,k);
vivod(a,k);
n:=number(a[1],"2");
writeln("simvol 2 vxodit v 1 stroky ",n," raz");
writeln("vvedite simvol");
readln(s1);
writeln("vvedite nomer stroki");
readln(k1);
n:=number(a[k1],s1);
writeln(n);
readln;
end.
← →
Percent (2006-11-08 00:08) [6]Класс!
← →
default © (2006-11-08 00:15) [7]я понял задание
в чём затруднения?
← →
ANEM © (2006-11-09 11:08) [8]Затруднение в том,что я не знаю,как сформировать нужные массивы(с цифрами и без).
← →
Anatoly Podgoretsky © (2006-11-09 11:10) [9]Насчет WMZ ты понял или нет.
← →
iXT (2006-11-09 17:55) [10]2 Anatoly Podgoretsky © (09.11.06 11:10) [9]
WMZ - это сформированный массив, пардон, символьный массив, из одной строки и трех столбцов. Если к нему применить Z или C, то возможно получим массив WMR. :)
← →
Anatoly Podgoretsky © (2006-11-09 18:52) [11]> iXT (09.11.2006 17:55:10) [10]
Не получим, Z не конвертируется
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.11.26;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.05 c