задача, программа не правильно работает |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
задача, программа не правильно работает |
NikiTaMoz |
4.01.2015 12:31
Сообщение
#1
|
Группа: Пользователи Сообщений: 2 Пол: Мужской Репутация: 0 |
В группе определить средний балл после зимней сессии и абсолютную успеваемость. Распечатать ФИО студентов, направленных от завода.
Рассортировать студентов по возрастанию среднего балла. Данные Студентов должны вноситься рандомно. Моя программа: Код Pascal type stud=record fio: record f, im, och : string; end; oz: array[1..4] of byte; Ocenka: string; end; var grup: array [1..30] of stud; sdali: array [1..30] of stud; i,j,k,kolstud,n:integer; function RandomName :String; var j,i:integer; ch:char; begin ch:=chr(random(192, 223)); result:=ch; for i:=1 to random(3, 10) do begin ch:=chr(random(224, 255)); result:=result+ch; end; end; function RandomOcenka :String; begin result:=result+inttostr(random(1,5) )+inttostr(random(1,5))+inttostr(ra ndom(1,5)); //Оценки за сессию end; function PerviySimbol (s: string): String; begin delete(s, 2, length(s)-1); result:=s+'.'; end; begin kolstud:=random(15, 30); n:=1; for i:=1 to kolstud do begin grup[i].fio.f:=RandomName; grup[i].fio.im:=RandomName; grup[i].fio.och:=RandomName; grup[i].Ocenka:=RandomOcenka; k:=0; for j:=1 to 4 do begin grup[i].oz[j]:=random(2, 5); if grup[i].oz[j]=2 then inc(k); end; if k<>0 then writeln(grup[i].fio.f,' ', PerviySimbol(grup[i].fio.im), ' ',PerviySimbol(grup[i].fio.och),' ',grup[i].Ocenka,' ','от завода') else begin sdali[n]:=grup[i]; inc(n); end; end; end. Прошу проверить и доработать программу или написать свою |
Федосеев Павел |
4.01.2015 12:49
Сообщение
#2
|
Бывалый Группа: Пользователи Сообщений: 298 Пол: Мужской Реальное имя: Федосеев Павел Репутация: 8 |
Цитата Прошу проверить и доработать программу или написать свою Вот так и после учёбы на работе к коллегам... Результат однозначный - разница лишь в формулировках.Лучше говори, что не так с программой, зачем такие манипуляции с мозгом и клавиатурой? |
Текстовая версия | 30.09.2024 0:58 |