newcooller
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Вот такие задачки остались нерешонными до конца модуля...никак немогу решить (, а нодо как можно скорее сдать...Помогите чем сможете 1. На файлы: О каждом из студентов известны фамилии и 4 оценки. Определить средний балл каждого студента и вывести соответствующий документ.(Нужно что бы фамилии и оценки вводились и записывались в файл, файл потом открывался, производился подсчёт среднего балла и выводился результат.) Я решил эту задачу но без использования фАЙЛОВ ))) немогу никак переделать. program sred_bal; uses crt; const nmax=50; type Tstud=record fam:string[15]; ocn:array[1..4]of byte; srb:real; end; var sp:array[1..nmax] of Tstud; n,i,k,j,t:byte; begin clrscr; repeat write('Введите кол-во студентов ='); readln(n); until (n>0)and(n<=nmax); writeln('Введите данные о ',n,' студентах:'); for i:=1 to n do begin writeln('Студент',i); write('Фамилия: ');readln(sp[i].fam); writeln(' Оценки:'); sp[i].srb:=0; for j:=1 to 4 do begin write(j:7,'='); readln(sp[i].ocn[j]); sp[i].srb:=sp[i].srb+sp[i].ocn[j]/4; end; end; clrscr; writeln; writeln(' >>>Общий список студентов<<<'); writeln; writeln('':4,'Фамилия Средний балл'); writeln; for i:=1 to n do writeln('':5,sp[i].fam,'':7,sp[i].srb:0:2); readln end. 2. На строки и записи. В ряде содержатся слова разделённые пробелами. Создать массив из этих слов. Тоже пытался решать но решил неправильно )) program Mas_slov; uses crt; const nmax=50; type Slova=record sl:string[15]; end; var sp:array[1..nmax] of Slova; n,i,k,j,t:byte; begin clrscr; repeat write('Количество слов (Максимум 50) = '); readln(n); until (n>0)and(n<=nmax); writeln('Введите ',n,' слов(*а):'); for i:=1 to n do begin writeln('Слово ',i); readln(sp[i].sl); end; clrscr; writeln; writeln(' >>>Массив слов<<<'); writeln; for i:=1 to n do writeln('':5,sp[i].sl); readln end. Строка не должна быть ограничена как у меня...и ввод строки конечно же у меня не правильный...неполучается что то подругому никак (( 3. Использования модуля CRT Организовать вывод какого-нибудь символа по расходящейся от центра заданного квадратного окна прямоугольной спирали. Программа должна прекращать работу после нажатия на клавишу ТАВ. Ну тут вообще полный ноль...как только не пробывал решать....нечего путнего не поучилось. Добавлено: 1-я задача решена...остались 2-я и 3-я... Добавлено: и 2-я решена ))) осталась только 3-я |