сортировка из файла

[west.by]

ребят как прочитать из тимемо инфу сохраниться-прочитать сохраненное и умножить в зависимости от содержимого на коэффициент-опять сохраниться?
число лано в тистринге-оно меняется

если от 4-5 и 1 умножаем на (0,5*тстриринг+тстринг)
если 3.8-4.6 И 1 то тстринг (0,25*тстриринг+тстринг)
если 3.8-4.6 И 1 то ''-"
0-3,8 "-"
если от 4-5 и0 то тстринг
пример
5 X 4,5 1
5 Y 3 0
7 Z 4 1
1 H 2 0

в результате на тимемо2 должно выйти следующее

5 X (0,5*тстриринг+тстринг)
5 Y -
7 Z (0,5*тстриринг+тстринг)
1 H -

и потом сохраниться в этот же файл не удаляя неосортированные массивы

[savva]

эм,парень напиши вопрос по человечески

и пиши не "тстринг,тстринге,тистринге" и так далее,а по нормальному
Tstring.

[west.by]

Запись в файл инфы с tmemo через пробелы/
считывания из файла определенной инфы и последующий вывод/
операция с определенными числами в частности преобразование и подсчитывание среднего от 5 чисел записанных также через пробел....

как это проще всего реализовать используя tmemo на input и оutput

[savva]

ну насколько я помню Tmemo в делфи,многострочный редактор.значит Tmemo массив строк.
значит
загружать в Tmemo из файла:Memo1.Lines.LoadFromFile("D:\ ....\txt.txt");
записывать из Tmemo в файл:Memo1.Lines.SaveToFile("D:\... ..\txt.txt");

а вообще не плохо бы просто добавить форму LoadFromFile и создать сверху TPanel и засунуть в неё меню.

"Запись в файл инфы с tmemo через пробелы/" приведи пример пожалуйста.

Чтобы обращаться ко всему тексту то Memo1.Text.

"ребят как прочитать из тимемо инфу сохраниться-прочитать сохраненное и умножить в зависимости от содержимого на коэффициент-опять сохраниться?"

а нельзя сразу умножить а потом сохранить?

[west.by]

Аналогичная задача про стипендию у студентов
дано 5 предметов
Если студент а получает 5 штук пятерок и учасвует в конференции(1или0) то его стипендия равна стип + стип*0,5
если от 4-5 и 1 умножаем на (0,5*тстриринг+тстринг)
если 3.8-4.6 И 1 то тстринг (0,25*тстриринг+тстринг)
если 3.8-4.6 И 1 то ''нет начислений"
0-3,8 "нет начислений"
если от 4-5 и0 то тстринг


тстринг на форме-там вводит число -начальную стипендию.

у меня похожая но со складом и коплектухой...

ЗЫ: просто чтобы не считать эти числа-проще ядумаю средни йбалл сразу посчитать-и дальше по алгоритмам

[west.by]

Сообщение от savva

н

"Запись в файл инфы с tmemo через пробелы/" приведи пример пожалуйста.

Чтобы обращаться ко всему тексту то Memo1.Text.

пример
5 X 4,5 1
5 Y 3 0
7 Z 4 1
1 H 2 0

в результате на тимемо2 должно выйти следующее

5 X (0,5*тстриринг+тстринг)
5 Y нет бабла
7 Z (0,5*тстриринг+тстринг)
1 H нет бабла

[savva]

Извини,просто я не понимаю этого преобразования.

5 X 4,5 1 ->>5 X (0,5*тстриринг+тстринг)

тстриринг-??
тстринг-??

что у тебя вообще за задание?

[savva]

Извини,просто я не понимаю этого преобразования.

5 X 4,5 1 ->>5 X (0,5*тстриринг+тстринг)

тстриринг-??
тстринг-??

что у тебя вообще за задание?

[west.by]

Вот аналогичное задание
Студенты.успеваемость в группе
Оператор вводит
Номер группы
Фамилию
Оценки по 5 предметам
Участие в конференции 0 или 1
Результатом действие программы должно быть
стипендия минимальные параметр которой-не должен храниться в проге-в обложке создаем его как величину вводимую с клавиатуры

Методика расчета бабла студентам
средний балл по пяти предметам
участие в конференции
К цифрам
тон кто имеет ср.балл
от 4-5 иучавствовал в конференции получает коэффициент 0,5 (бабло+бабло*0,5)
если от 4-5 и 1 умножаем на (0,5*тстриринг+тстринг)
если 3.8-4.6 И 1 то тстринг (0,25*тстриринг+тстринг)
если 3.8-4.6 И 1 то ''нет начислений"
0-3,8 "нет начислений"

PS:Ну сейчас-то вы точно должны понять если надо мной не издевались....

[savva]

да,теперь я понял.
я просто не понимал смысла тстриринг и тстринг.

писал бы сразу так.
ещё 1 вопросик что значит:
Участие в конференции 0 или 1-количество студентов?

ну смотри на паскале
делаешь тип записи
type stud=record
fname:string;
a:array[0..5] of integer;
konf:boolean;//принимал участие =true не принимал false;
end;
потом
пишешь
writeln('Введит фамилию участника ');
readln(Stud.fname);
ну и так далее;
далее средний балл как найти.
var srball:integer;//средний балл
srball:=0;
Stud.a-это массив оценок заполняется так
for i=0 to 5 do //(до 5 потому что 5 оценок)
readln(Stud.a[i]);
srball:=srball+Stud.a[i];
end;
srball:=srball/5;
далее
if (srball=>4) then
если от 4-5 и 1 умножаем на (0,5*тстриринг+тстринг)
else
if(srball=>3,8 and srball<4) then
если 3.8-4.6 И 1 то тстринг (0,25*тстриринг+тстринг)
если 3.8-4.6 И 1 то ''нет начислений"
не понял чем отличаются
if srball<3.8 then
0-3,8 "нет начислений"

все набросал тебе то что нужно,там разберешься.