Перейти к содержанию

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


Рекомендуемые сообщения

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

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

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

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

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

Ссылка на комментарий

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

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

Ссылка на комментарий
  • 2 недели спустя...

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

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

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

Ссылка на комментарий
  • 2 недели спустя...

хелп

.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. Даны сведения об импортируемых товарах: наименование товара, страна-изготовитель и объем поставляемой партии в штуках:

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

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

Ссылка на комментарий

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

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

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

Ссылка на комментарий

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.

Сойдет :D ?

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

Ссылка на комментарий

sean ну ты крутой

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

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

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

Ссылка на комментарий

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

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

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

Вот решение:

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.

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

Ссылка на комментарий

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

вот задание:

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

Ссылка на комментарий

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 сам наверное в множества переделаешь

Ссылка на комментарий

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

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

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

Ссылка на комментарий

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

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

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

2004. - 176 с.

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

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

Ссылка на комментарий

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

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.

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

Ссылка на комментарий
  • 2 недели спустя...
  • 2 недели спустя...

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

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

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

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

Ссылка на комментарий
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.

Ссылка на комментарий

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

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

Ссылка на комментарий

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

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(B);

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

end;

writeln('summa = ',sum);

readkey;

end.

Ссылка на комментарий

Пожалуйста, войдите, чтобы комментировать

Вы сможете оставить комментарий после входа в



Войти
  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...