|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
опять оч нужна помощь ну никак не осилить(((
вот задание: (уже 4-ый день не могу написать прогу(((()
на плоскости случайным образом заданы своими координатами 30 точек. Ранг точки равен количеству точек, которые расположены не выше и не ниже справа от данной точки.Написать прогу которая подсчитывает количество точек каждого ранга. ну никак не написать напишите если кто может на Паскале (в учебниках также смотрел но ниче не нашел....) и совет можете дать плз каким образом вычислить длину слова в тексте, который введен с клавиатуры, и как найти количество слов у которых определенное количество символов Последний раз редактировалось MushGUN, 14.12.2008 в 19:51. |
#2
|
|||
|
|||
Если нужны точки левее (с меньшим X) и ниже (c бОльшим Y), то вот код (правда, не проверял).
Код:
type RangPoint = record p: TPoint; rang: Integer; end; var Points: array[1..30] of RangPoint; procedure TForm1.FormCreate(Sender: TObject); var i, j: Integer; begin Randomize; for i:= 1 to 30 do Points[i].p:= Point(Random(100), Random(100)); for i:= 1 to 30 do begin Points[i].rang:= 0; for j:= 1 to 30 do if (Points[j].p.X < Points[i].p.X) and (Points[j].p.Y > Points[i].p.X) then Inc(Points[i].rang); end; end; |
#3
|
|||
|
|||
большое спасибо
|
#4
|
|||
|
|||
Никогда не думал, что задам такой вопрос!
Короче, я читаю текстовой файл. Там у меня записано C:\VA\1.exe так вот у меня эта строка содержится в переменной name:string (задача) а мне нужно присвоить переменной put:string путь к файлу (в данном случае путь выглядит так: C:\VA\) |
#5
|
|||
|
|||
Код:
put := ExtractFilePath(name); |