Sektor

Спасибо большое Владимир!я очень вам блогодарен

Sektor

Спасибо Вам Владимир!я очень благодарен Вам!!!

Sektor

а остальные не посмотрите???плиз

Vladimir_S

Посмотрю, как выберу время. Пара вопросов:
1. В задаче 2 - какой формат таблицы? Она что - в файле? Есть ли разделители столбцов?
2. В задаче 3 - обязательно ли с подпрограммой? Вполне можно и без нее обойтись.

Vladimir_S

Например, так. Только она без подпрограмм - как-то неохота мне их туда запихивать.

CONST
N=8;
Max:INTEGER=100;
VAR
Min,i,j,Jmin:INTEGER;
A,B:ARRAY[1..N] of INTEGER;
BEGIN
Randomize;
FOR i:=1 TO N DO
BEGIN
A[i]:=Random(Max)-(Max div 2);
Write(A[i]:4);
END;
Writeln;
FOR i:=1 TO N DO
BEGIN
Min:=Max;
FOR j:=1 TO N DO
IF A[j]<Min THEN
BEGIN
B[i]:=A[j];
Jmin:=j;
Min:=A[j];
END;
A[Jmin]:=Max;
END;
FOR i:=1 TO N DO Write(B[i]:4);
Writeln;
Readln;
END.

Революционерка

А не могли бы вы посмотреть вот такую еще задачку. Тоже в C.
Дан текст из нескольких строк. Составить слово из последних букв слов k-ой строки.
Заранее спасибо)

Vladimir_S

Могу только на Паскале в такие игры поиграть. Надо?
P.S. Ведь собирался пару лет назад С выучить, да так и не собрался.

csbwalker

Есть пара вопросов:
Слово - имеется ввиду просто взять набор букв и их подряд записать, или слово в том смысле, что по какому-то словарю сделать поиск слова (т.е. из русского языка), состоящего из этого набора букв?
Исходный текст нужно брать из файла?

Eniok

На плоскости задано множество окружностей (способ задания - координаты центра и радиус). Две окружности А и В назовем связанными, если они пересекаются либо существует третья окружность С заданного множества, связанная с А и В. Выбрать максимальное подмножество попарно не связанных друг с другом окружностей.

Си байлдер... Можно другую разновидность си)

Революционерка

csbwalker
Да, просто взять набор букв))Текст надо с клавиатуры вводить)