|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
21.04.2007, 15:17 | #1 |
Регистрация: 21.04.2007
Сообщений: 6
|
Сортировка массива строк
Последняя осталась! Не осилю никак!!!
Дана строка, состоящая из 9 слов. За последним словом точка. Напечатать последовательность тех же слов, но в порядке, обратном алфавитному. И еще, Распечатать анкетные данные студентов, получивших не более двух оценок 4, а остальные оценки 5. program laba8; uses crt; type student=record f:string[20]; gr:real; o:array[1..4] of integer; end; var list:array[1..3] of student; i,j:integer; s:real; begin clrscr; for i:=1 to 3 do begin writeln('Vvedite familiu i god rozhdenia ',i,'-go studenta'); readln(list[i].f,list[i].gr); for j:=1 to 4 do begin write('Ocenka',j,' '); read(list[i].o[j]); end; end; for i:=1 to 3 do begin s:=0; for j:=1 to 4 do if ((list[i].o[j])=4) or ((list[i].o[j])=5) then s:=s+list[i].o[j]; if s>17 then writeln(list[i].f,' ',list[i].gr:4:0); end; repeat until keypressed; end. почему-то при вводе фамилии 2-го студента тайп масмач пишет?? |
21.04.2007, 15:29 | #2 | |
Форумчанин
Регистрация: 26.01.2007
Сообщений: 278
|
Цитата:
|
|
21.04.2007, 16:02 | #3 |
Регистрация: 21.04.2007
Сообщений: 6
|
Понятно, что где-то тут. Но в чем именно косяк?? данные на первого студента нормально вводятся!!
|
21.04.2007, 16:04 | #4 |
Регистрация: 21.04.2007
Сообщений: 6
|
Ну помогите решить то задачку:
Дана строка, состоящая из 9 слов. За последним словом точка. Напечатать последовательность тех же слов, но в порядке, обратном алфавитному. |
23.04.2007, 10:43 | #5 |
Регистрация: 21.04.2007
Сообщений: 6
|
Что, никто не знает? С остальными со всеми разобрался.
Осталась только эта!! Дана строка, состоящая из 9 слов. За последним словом точка. Напечатать последовательность тех же слов, но в порядке, обратном алфавитному. |
23.04.2007, 12:45 | #6 |
Форумчанин
Регистрация: 16.04.2007
Сообщений: 298
|
Как разделяются слова? Разделителем или пробелом?
Не надо ничего усложнять. Все достаточно тривиально.
|
23.04.2007, 15:37 | #7 |
Регистрация: 21.04.2007
Сообщений: 6
|
разделяются побелами. слова разделил, загнал в масссив осталось отсортировать. КАК СОРТИРОВАНТЬ МАССИВ, СОСТОЯЩИЙ из String?
|
23.04.2007, 16:10 | #8 |
Форумчанин
Регистрация: 16.04.2007
Сообщений: 298
|
А зачем тебе массив. Загоняешь в TStringList и делаешь в нем Sort и все.
Не надо ничего усложнять. Все достаточно тривиально.
|
23.04.2007, 17:02 | #9 | |
_________
Пользователь
Регистрация: 27.03.2007
Сообщений: 69
|
Цитата:
Код:
|
|
24.04.2007, 00:34 | #10 |
Регистрация: 21.04.2007
Сообщений: 6
|
RSLoader, спасибо, так и сделал :-) Тема закрытта.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Сортировка строк двухмерного массива | EfiopianDIMON | Общие вопросы C/C++ | 9 | 26.05.2009 22:52 |
Сортировка строк в TStringGrid | dimon000 | Общие вопросы Delphi | 6 | 03.07.2008 12:59 |
Сортировка строк 2-мерного массива | Mayday_007 | Помощь студентам | 1 | 04.04.2008 09:26 |
Сортировка строк | sheva75 | Microsoft Office Excel | 3 | 06.02.2008 05:00 |