Задачи на Pascal/Delphi (РЕШЕНИЕ)

[ReKrYt]

помогите плз!!!буду очень благодарен!!

Дана матрица размером MхN. Упорядочить ее столбцы по воз-

растанию элементов k-й строки.

[L0K1]

помогите плз!!!буду очень благодарен!!

Дана матрица размером MхN. Упорядочить ее столбцы по воз-

растанию элементов k-й строки.

1. I'm sorry but my os, dont have cyrilical =(

2. Kakou aJIropuTM, kaka9| CJIo}I{HoCTb??

[V_I_L]

Brain Tease - предлагает пользователю набор математических задач с использованием базовых вычислительных операций (сложение, вычитание, умножение, деление). Brain Tease предлагает решить небольшие упражнения, предназначенные для быстрого решения без применения калькулятора. За ограниченное время нужно дать как можно больше правильных ответов.

Вести таблицу рекордов.

[Sickness]

подскажите пожалста замену стандартному компоненту dbGrid в Делфи.

Скачал из сети замечательную штуку,называется XDBGrid,тока она зараза,триальная((

может есть у кого расширенный компонент dbGrid? поделитесь пожалста!

[X-tender]

подскажите пожалста замену стандартному компоненту dbGrid в Делфи.

Посмотри nextgrid от bergsoft...

[Breanhard]

хелп

.1 Дан текст, содержащий не более 10 слов из строчных русских букв, между соседними словами – запятая, за последним словом – точка. Составить программы, в которых напечатать в алфавитном порядке: все звонкие согласные буквы, которые встречаются только в двух словах.

2

Const n=30;

Type Vershina = Record

name: string[15];

vysota: 4000..8000;

end;

spisok = Array [1..n] of vershina;

Описать процедуру HIGHEST (sp), печатающую название самой высокой вершины из списка sp.

3. Даны сведения об импортируемых товарах: наименование товара, страна-изготовитель и объем поставляемой партии в штуках:

а) выдать на экран список стран, которые импортируют наиболее распространенный товар;

б) упорядочить все сведения о товарах из страны с заданным названием в алфавитном порядке наименования товаров.

[-makos-]

Просьба решить задачи язык паскаль

1)Дан массив, состоящий из n натуральных чисел. Образовать новый массив, элементами которого будут элементы исходного, оканчивающиеся на цифру к

2) Дан целочисленный массив A[n], среди элементов есть одинаковые. Создать массив из различных элементов A[n].

[Jinchuuriki]

1)

var

i,n,k : integer; {ну или k пусть byte будет}

a: array [1..n] of integer;

begin

readln (k);

for i:=1 to n do

begin

a:=a * 10 + k;

write(a,' ');

end;

end.

Сойдет ?

2)

var a,b: array [1..n] of integer;

i,j :integer;

f: boolean;

begin

{в этом разделе введешь массив a}

for i:=1 to n do

begin

f:=false;

for j:=1 to n do

begin

if a=a[j] then f:=true;

end;

if f=false then b:=a;

end;

end.

*20

[Al Snow]

sean ну ты крутой

в первом случае у тебя будет тот же массив но с приписанной цифрой k на конце (ну ладно понимаю не понял условие)

во втором случае будет всегда пустой массив

и не мажся что написал это пьяный

[Jinchuuriki]

А я и не мажусь. Да и несобирался я так прям программировать. Но в первом случае правда не понял условие. А во втором вообще ниче значительного нет. За такие задачи ругать нельзя .

не if f=false then b:=a; , а if f=TRUE then b:=a;

Аааа.. я догнал условие

Вот решение:

1)

var

i,n,k : integer; {ну или k пусть byte будет}

a: array [1..n] of integer;

begin

readln (k);

for i:=1 to n do

begin

if (a mod 10 = k) then write(a,' ');

end;

end.

Вместо вывода сделай присваивание другому массиву. ооооо... теперь я крутой

[Breanhard]

а может ктонить мое решит плз ваааа

[Digitex]

Помогите пожалуйста! Лабу на паскале незнаю как сделать! Тема Множества

вот задание:

Вычислить сумму тех элементов квадратной матрицы порядка N, номера строк и столбцов которых принадлежат соответственно непустым множествам номеров строк S1 и столбцов S2.

[JSTQ]

program digitex;

uses crt;

var i,j,k,l,m,n:byte;

a:array[1..20,1..20] of byte;

s1,s2:array[1..10] of byte;

s3: array[0..100] of byte;

begin

repeat

clrscr;

writeln('Vvedite poryadok matrici');

write('N= ');

readln(n);

if n>20 then writeln('Poryadok slishcom bolshoi!');

until n <= 20;

writeln('Vvedite mnojestvo nomerov strok');

for i:= 1 to round(n/2) do

read(s1);

writeln('');

writeln('Vvedite mnojestvo nomerov stolbcov');

for i:= 1 to round(n/2) do

read(s2);

for i:= 1 to n do

begin

writeln('');

for j:= 1 to n do

begin

a[i,j]:= random(10);

write(a[i,j]);

end;

end;

m:=0;

for i:= 1 to n do

for j:= 1 to n do

for k:= 1 to round(n/2) do

for l:= 1 to round(n/2) do

if (i=s1[k]) and (j=s2[l]) then

begin

inc(m);

s3[m]:=a[i,j];

k:=round(n/2);

l:=round(n/2);

end;

writeln('');

writeln('Elementi, nomera kotorih prinadlezhat mnojestvam');

for i:= 1 to m do

begin

s3[0]:=s3[0]+s3;

write(s3,' ');

end;

writeln('');

writeln('Ih summa');

write(s3[0]);

readkey;

end.

s1 и s2 сам наверное в множества переделаешь

[me_]

удалено (неактуально)

[-makos-]

Просьба решить:

1)Дана сторока, содержащая произвольный текст. Выяснить, чего в нем больше: русских букв или цифр

2)Дана сторока, содержащая текст на русском языке. Подсчитать количество слов, начинающихся и заканчивающихся на одну и ту же букву

[Sanji-ND]

кто тут есть с Техноложки, учащийся по

Лабораторный практикум по программированию на языке Паскаль: Учебное пособие. / Под

общ. ред. Л.В.Найхановой и Н.Ц. Бильгаевой. - 3-е изд. доп. и перераб., - Улан-Удэ,

2004. - 176 с.

Тема: “Сложный тип данных – множества”, 4-го варианта, помогите!!!

ftp://ftp.burnet.ru/incoming/users/SND/Mtduksi5.pdf

[Nesh]

Просьба решить:

1)Дана сторока, содержащая произвольный текст. Выяснить, чего в нем больше: русских букв или цифр

program pr1;

uses crt;

var a : set of char; {Задали два множества, для того, чтобы проверять}

b : set of char; {что описано в строке, буква или цифра}

s : string;

kc, kb,i : byte; {kb - кол-во букв, kc - количество цифр}

begin

clrscr;

writeln('Введите строку');

read(s);

a := ['А'..'я']; {присвоили русские буквы множеству а}

b :=['0'..'9']; {присвоили цифры в типе char}

kb := 0;

kc := 0;

for i := 1 to length(s) do

begin

if s in a then inc(kb); {тут думаю понятно, что проверяем принадлежность}

if s in b then inc(kc); {буквы или цифры множеству, и увелич. счетчики}

end;

writeln('Количество букв 'kb,' количество цифр',kc)

{условия думаю сами поставите}

readkey;

end.

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

[Jaw]

Нужна срочная!!! помошь по созданию БД напишите кто нить в аську кто в этом шарит!!!

[enDoffzenait]

Помогите мне, пожааалуста. мне на паскале нужно:

1) Задан вещественый массив Х из семи элементов. Найти его минимальный и максимальный элементы.

2)Задана последовательность N целых чисел. Вычислите сумму элементов массива, порядковые номера которых совпадают со значением этого элемента.

с такими пояснялками как у Nesh если можна))

[superman]

1) Задан вещественый массив Х из семи элементов. Найти его минимальный и максимальный элементы.

var A:array[1..7] of real;
minA,maxA:real;
i:integer;

begin
 writeln('Vvedite 7 elementov:');
 for i:=1 to 7 do read(A[i]);
 minA:=A[1];
 maxA:=A[1];
 for i:=2 to 7 do begin
  if A[i] < minA then minA:=A[i]
  else if A[i] > maxA then maxA:=A[i];
 end;
 writeln('Minimalniy = ',minA);
 writeln('Maksimalniy = ',maxA);
end.

[enDoffzenait]

ух!! вот спасибо

[Синек]

Люди помогите плз! задача на delphi

Дана матрица размерности N на M. Упорядочить строки по возрастанию их характеристик (характеристика строки - сумма ее элементов)

[Lakers]

Синек,ничего еслт на Паскале?алгоритмы то похожи.

uses crt;

type masiv=array[1..20,1..20]of integer;

var a:masiv;

i,j,l,n,m:integer;

function sum(a:masiv;n,m:integer):integer;

var i,s:integer;

begin

s:=0;

for i:=1 to m do s:=s+a[n,i];

sum:=s;

end;

begin

clrscr;

write('vvedite N= ');readln(n);

write('vvedite M= ');readln(m);

for i:=1 to n do

for j:=1 to m do begin

write('a[',i,',',j,']= ');readln(a[i,j]);

end;

for i:=1 to n do

begin

for j:=1 to n do

write(a[i,j]:5);

writeln;

end;

writeln('otsortirovanay matrica');

for i:=1 to n-1 do

for j:=1 to n-i do

if sum(a,j,m)>sum(a,j+1,m) then

begin

for l:=1 to m do

begin

a[j,l]:=a[j,l] xor a[j+1,l];

a[j+1,l]:=a[j,l] xor a[j+1,l];

a[j,l]:=a[j,l] xor a[j+1,l];

end;

end;

for i:=1 to n do

begin

for j:=1 to n do

write(a[i,j]:5);

writeln;

end;

readln;

end.

Добавлено спустя 19 минут 45 секунд:

enDoffzenait писал(а):

2)Задана последовательность N целых чисел. Вычислите сумму элементов массива, порядковые номера которых совпадают со значением этого элемента.

если программа ещё нужна тут код

uses crt;

var i,sum,b:integer;

begin

clrscr;

write('N= ');readln(n);

for i:=1 to n do

begin

readln(;

if b=i then sum:=sum+i;

end;

writeln('summa = ',sum);

readkey;

end.

[Синек]

Lakers спасибо большое, а может сможешь на делфи сделать? оч надо именно на делфи, а переделать код под делфи наверн не смогу .

[toll]

Синек

А накуй тады учится ... если элементарную задачу .... НЕ СМОГУ...