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-я |
