Pascal

Admiral · Отправлено: **23:47, 26-12-2006** | #11

Цитата:

Мля, программа для 10 класса

Это точно.
А если верить новым школьным программам, то класса 6-7.

[mzd] · Конфигурация компьютера

А давайте без флуда!

ShaddyR · Конфигурация компьютера

Цитата:

Mickey Mouse

тебе поможет. Бан до января за бурную фантазию.

MickeyMouse · Отправлено: **13:31, 27-12-2006** | #14

Это я как, понимаю ко мне обращение было.
Я преподаю программирование, но честно говоря писать полностью программу - не вижу в этом никакого смысла.
Если есть вопросы где - что не получается - то всегда пожалуйста: приводишь фрагмент кода своей программы, я укажу в чем ошибка...
А так получается - ты мне ее реши, а я ее сдам...

dmitryst · Конфигурация компьютера

MickeyMouse Дык, забанили его... Отмучался

ShaddyR · Конфигурация компьютера

MickeyMouse

Цитата:

Если есть вопросы где - что не получается - то всегда пожалуйста: приводишь фрагмент кода своей программы, я укажу в чем ошибка...

очень правильная позиция. Была б еще серьезная задача - сам бы, глядишь, поучаствовал. А простейшие вещи надо как минимум попытаться решить, а не халявничать.

XCodeR · Отправлено: **00:49, 28-12-2006** | #17

ППКС.....

а потом такие вот "специалисты" выпускаются........

Donald · Отправлено: **13:50, 27-10-2010** | #18

народ, помогите плиз исправить ошибку в коде

Цитата:

Program pp3;
type
rec=record
name:string[11];
stoim:integer;
izn:integer;
end;

t=array[1..10] of rec;
p=array[1..10] of real;

var
A:t;
B:p;
tInp,tOut:text;
c:char;
i:byte;
temp:file of rec;

procedure pr (var M:t; var N:p; i:integer);
begin
N[i]:=M[i].stoim-M[i].stoim/100*M[i].izn;
end;

begin
assign (tInp, 'dan.txt');
reset (tInp);

assign (tOut, 'res.txt');
rewrite (tOut);

assign (temp, 'temp.txt');
rewrite (temp);

for i:=1 to 10 do
begin
readln (tInp, A[i].name, A[i].stoim, c, A[i].izn);
write (temp, A[i]);
end;

close (temp);
reset (temp);

for i:=1 to 10 do
begin
read (temp, A[i]);
writeln (tOut, A[i].name, A[i].stoim, c, A[i].izn);
end;

writeln (tOut, '**************************');

for i:=1 to 10 do
begin
pr (A,B,i);
writeln (tOut, A[i].name:10, ' - ', B[i]:7:2, ' rub.');
end;

close (tInp);
close (tOut);
close (temp);

end.

вылетает ошибка ввода/вывода 106