Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Калькулятор перевода числа в различные системы счисления Калькулятор просто переводит число из одной СС в другую. Прога не моя, знаю, что делают функции но КАК они это делают... Вобщем, объясните кто может. uses crt; var first,second:integer; TD:string; {функция перевода Dec числа в любую сс} function FromDec(n,r:longint):string; var https://www.cyberforum.ru/ pascalabc/ thread281916.html	Блок схемы Pascal ABC Помогите с блок схемами к задачам:http://file.qip.ru/file/__dnt7KY/ГОтовые_идз_3.html
Pascal ABC Первые шаги в массиве https://www.cyberforum.ru/ pascalabc/ thread281865.html Нужно составить программу,в которой всем элементам массива присваивается вводимый текст.	Pascal ABC Использование пирамидальной сортировки одномерного массива. Вот оригинальный текст задачи: Дан одномерный массив. Отсортировать все четные элементы по возрастанию, нечетные оставить без изменения. Относительного расположения четных и нечетных элементов не менять. Использовать пирамидальную сортировку, реализовав метод в виде подпрограммы. https://www.cyberforum.ru/ pascalabc/ thread281864.html
Pascal ABC Типизированные файлы ввести файл F из 13 элементов. определить в нем сумму модулей отрицательных элементов. Подскажите как решить эту задачу.	Pascal ABC Функции в Delphi Найти площадь треугольника зная координаты вершин. Но! Нельзя использовать стандартные вещественные функции, такие как: sqrt, sin, cos. https://www.cyberforum.ru/ pascalabc/ thread281718.html
Pascal ABC Составте программу Координаты точки Q задаются формулой: Х,(Т) = АТ + В Yq(T) = СТ + D Найти момент времени t>0, в который данная точка будет находиться ближе всего к точке (X, Y). Ограничения: -1000< А, В, С, D, X, Y < 1000 Формат ввода: В единственной строке вводятся числа А, В, С, D, X, Y через пробел. Формат вывода: вывести единственное число - момент времени с точностью 5 знаков после запятой. https://www.cyberforum.ru/ pascalabc/ thread281666.html	с чего начать Pascal ABC Дан файл f, содержащий сведения об экспортируемых товарах: указывается наименование товара, страна, импортирующая товар, и объём поставляемой партии в штуках. Найти страны, в которых экспортируется данный товар, и общий объём его экспорта.
Pascal ABC Движение лепестков крутились по часовой стрелке https://www.cyberforum.ru/ pascalabc/ thread281599.html Мне надо что бы это ромашка, точнее ее лепестки крутились по часовой стрелке! Как сделать не пойму: uses Turtle,GraphABC; const N=14; R=300; Rmin=50; d=50; procedure Lepestok (Rmin,R,p: real); procedure Vspom(sign: integer);	Pascal ABC Составить программу, заменяющую в предложении слог "ма" на слог "ко" https://www.cyberforum.ru/ pascalabc/ thread281587.html Условие: составить программу, заменяющую в предложении слог "ма" на слог "ко". Решение: Program primer_1; var a,b,c,d: string; n,i: integer; begin cls; b:='ма'; c:='ко';
Pascal ABC Массив Можно ли как нибудь сделать так чтобы элементу массива присваивалось случайное слово из заданных заранее? Например есть слова: стакан картошка молоток, и чтобы первый элемент стал равен одному из этих слов, второй и третий тоже?	Pascal ABC Вычислить сумму чисел https://www.cyberforum.ru/ pascalabc/ thread281529.html Вычислить сумму чисел в выделенном фрагменте двумерного массива A(n,m), размерность которого ввести с помощью диалогового окна.

shpicachik

2 / 2 / 1

Регистрация: 22.04.2011

Сообщений: 19

Ошибка ввода\вывода 104, файле не открыт для ввода (строка 0) - Pascal ABC - Ответ 1579983

23.04.2011, 15:02. Показов 4962. Ответов 4

Метки (Все метки)

Author24 — интернет-сервис помощи студентам

Всё работает, но пишет: "ошибка ввода\вывода 104, файле не открыт для ввода (строка 0).

Pascal

Program pyat;
uses crt;
var k,i,n:integer;
f1:text;
s,st:string;
z:char;
b:set of char;
begin
assign   (f1, 'file1.txt');
writeln('Задйте первую букву слов:');
readln(z);
writeln('Введите текст: :');
readln(s);
b:=[z];
k:=0;
for i:=1 to length(s) do
begin
if (s[i] in b) and (s[i-1]=' ') then
k:=k+1;
end;
if s[1]=z then k:=k+1;
rewrite  (f1);
writeln(f1,'Количество слов, начинающихся на зданную букву, равно: ',k);
close(f1);
reset (f1); { открыть файл для чтения }
while not eof (f1) do { пока не конец файла  f1}
begin
readln (f1, st);    {читаем строку из файла f1 }
writeln(st);
close(f1);
end;
end.

Вернуться к обсуждению:
Ошибка ввода\вывода 104, файле не открыт для ввода (строка 0) Pascal ABC

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

23.04.2011, 15:02

Готовые ответы и решения:

Ошибка ввода/вывода 104 - файл не открыт для ввода
var a:array of integer; n,j,i,k: integer; f:text; begin ...

Ошибка ввода вывода 103: файл не открыт
Люди добрые выручите,завтра сдавать работу а я обнаружил ошибку при работе одной из процедур.Ошибка...

Ошибка 104 (файл не открыт для ввода)
что делать с этой ошибкой? вот сама прога: var s:string; a,b,c,d:char; f1,f2:text; i:integer;...

Ошибка Ввода вывода(104)
Когда в конце использую readln чтобы не закрывать консоль то - Error 104. Почему так ? :scratch:...

	23.04.2011, 15:02

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

23.04.2011, 15:02

Помогаю со студенческими работами здесь

Ошибка, файл не открыт для ввода
Procedure InpData(Var Group:Groups; Var N:TGroup); Var I:Integer; FF,GG,PP,NN,RR:Text;...

Ошибка,файл не открыт для ввода
Ошибка,файл не открыт для вводаFUNCTION F(NAME:STRING):INTEGER; var f1:Text; var...

Ошибка,файл не открыт для ввода
var min,ch,code,res,i,i1,i2,max,ch1:integer; begin max:=0; i:=0; min:=0; ch1:=30001;...

Файл не открыт для ввода - почему?
Procedure write_numbers; var f :text; i,j :integer; begin assign(f,'num.txt'); ...

Наверх