omsk_mail
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Программисты форума помогите найти ошибки в коде.
Записи -- Построить массив записей о студентах. Каждая запись должна содержать фамилию, группу, срок обучения. Рассчитать для каждого студента, сколько месяцев осталось до окончания обучения
Код: program records;
uses crt;
type
Tinfo = record
Family: string[20];
Group: string[5];
Srok: integer;
end;
var
info: array [1..100] of Tinfo;
term: array [1..100] of Integer;
n, i, tmp, err: integer;
begin
clrscr;
write('Введите количество студентов: ');
readln(n);
Writeln('Через пробел введите фамилию студента, его группу и срок обучения в месяцах: ');
for i := 1 to n do
begin
with info[i] do
begin
write('Введите фамилию ',i, ' студента: ');
readln(family);
write('Введите группу ',i, ' студента: ');
readln(group);
write('Введите срок обучения ',i, ' студента: ');
read(srok);
end;
end;
for i := 1 to n do
begin
with info[i] do
begin
val(copy(group,1,1),tmp,err);
if err = 0 then
term[i] := srok - tmp * 12;
end;
end;
for i := 1 to n do
begin
writeln('Для студента ',info[i].family,' осталось учиться ',term[i],' месяцев');
end;
readln;
end. |
и вот этот
Ветвление -- Даны две точки: A(x1, y1) и B(x2, y2). Определить, какая из точек находится ближе к началу координат. Координаты точек вводятся с клавиатуры
Код: program koor;
uses crt;
var
x1,x2,y1,y2 : integer;
res1, res2 : real;
begin
ClrScr;
Write ('Введите через пробел координаты точки А:');
Read(x1);
Read(y1);
WriteLn;
Write ('Введите через пробел координаты точки B:');
Read(x2);
Read(y2);
WriteLn;
res1 := sqrt(sqr(x1)+sqr(y1));
res2 := sqrt(sqr(x2)+sqr(y2));
if res1 = res2 then
begin
writeln('Точки A и B симметричны отностительно начала координат');
ReadLn;
exit;
end;
if res1 < res2 then
writeln('Точка А находится ближе к началу координат.')
else
writeln('Точка B находится ближе к началу координат.');
Readln;
end. |
|
... но мы же не ищем лёгких путей 
) 
