С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
special one
0 / 0 / 1
Регистрация: 27.02.2012
Сообщений: 34
1

В чем ошибка?

22.12.2012, 17:08. Просмотров 171. Ответов 0
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
const n=4;
type bd=record
fio:string;
gr:string;
oc:integer;
end;
var 
mas:array [1..n] of bd;
i,j,k:integer;
f:text;
kol:word;
s,s1:string;
begin
assign(f,'1.txt');
reset(f);
while not eof(f) do
begin
inc(k);
with mas[k] do
readln(f,fio,gr,oc);
kol:=k;
close(f);
end;
for i:=1 to kol do
begin
with mas[k] do
writeln(' ',fio,' ',gr,' ',oc);
end;
end.
Пишет:файл не открыт
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.12.2012, 17:08
Ответы с готовыми решениями:

Ошибка "операнды имеют неприводимые типы" в чем ошибка?
Привет форумчане! Скажите в чем ошибка? при компилировании, выходит ошибка ...

В чем ошибка
Модуль unit zip1; interface procedure yyy(var s,t,y:real); function...

В чем ошибка
program labbb2; var M,C,A,B:real; begin writeLn('vedite M,C,A,B');...

В чем ошибка?
var s,s1:string; i,k,j,u:integer; begin repeat writeln('Введите...

Не знаю в чем ошибка
uses crt; type fio=record d:byte; m:byte; ...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.12.2012, 17:08

Не пойму в чем ошибка
program Zadanie1; var x,u,y,a: real; k:integer; Begin {ввод...

В чем ошибка random?
writeln('введите массив'); for i:=1 to n do begin a:=random(1000)-500;...

Строки. В чем ошибка?
Программа должна удалять 2 пробела в веденой строке на 1. Например ввод: 12 ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru