Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Вывод элементов массива с четными значениями и четными индексами http://www.cyberforum.ru/pascalabc/thread709826.html
составьте программу ввода с клавиатуры элементов массива a и вывода на экран элементов с четными значениями и четными индексами.
Pascal ABC Одномерный массив. Вывести на экран элементы, значения которых являются квадратами целых чисел.
составьте программу ввода с клавиатуры элементов массива a и вывода на экран элементов, значения которых являются квадратами целых чисел
Pascal ABC нарисовать рисунок
Помогите пожалуйста сделать в паскале этот дом! Заранее огромное спасибо!!! P.S крыша-это не тругольник, а 2 линии.
Pascal ABC Напечатать дни, когда было превышено среднемесячное количество осадков Известны сведения о количестве осадков (в мм) за каждый день марта текущего года. Напечатать дни, когда было превышено среднемесячное количество осадков Помогите решить. пожалуйста http://www.cyberforum.ru/pascalabc/thread709789.html
Pascal ABC Процедуры и функции. Найти значение выражения. http://www.cyberforum.ru/pascalabc/thread709709.html
Найти значение выражения y=a4x4+a5x5+a2x-2+a3x-3, где аi и x вводятся с клавиатуры. Вычисление степени оформить в виде процедуры и функции через умножение
Вычислить сумму положительных значений функций Pascal ABC
1)Вычислить сумму положительных значений функций и количество отрицательных. 2) Вычислить сумму квадратов и произведение всех значений функций для каких выполняется у<-3.2 or y>0.4 . Также сложить...
В массиве найти все числа, вторая цифра которых больше первой и вычислить сумму всех чётных из них Pascal ABC
пытаюсь решить одну задачку, но пока только часть получилась , не могу доделать ,помогите решить.:( Вот задача:"В массиве, заполненном 20-ю случайными чётными числами в пределах от 1 до 30, найти...
Pascal ABC Удалить из строки все цифры Удалить из строки все цифры. help me please http://www.cyberforum.ru/pascalabc/thread709653.html
Pascal ABC Цикл со счетчиком, цикл с предусловием и постусловием http://www.cyberforum.ru/pascalabc/thread709628.html
Напечатать таблицу стоимости 50,100,150...1000г сыра (стоимость 1 кг сыра вводится с клавиатуры)
Pascal ABC Все члены последовательности с четными номерами, предшествующие максимальному, умножить на максимальный Даны целые числа a1,a2,…,an. Все члены последовательности с четными номерами, предшествующие первому по порядку члену со значением max(a1..an) , умножить на max(a1..an) http://www.cyberforum.ru/pascalabc/thread709621.html
lilil
0 / 0 / 0
Регистрация: 26.11.2012
Сообщений: 3
0

Ошибка ввода/вывода 104 - файл не открыт для ввода

26.11.2012, 18:21. Просмотров 1370. Ответов 2
Метки (Все метки)

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
var
 a:array[1..4,1..4] of integer;
 n,j,i,k: integer;
 f:text;
 begin
 assign(f,'C:\Users\Алла\Desktop\Универ\матрица.txt');
 reset(f);
 readln(f,n);
 for i:=1 to n do begin
 for j:=1 to n do
 read(f,a[i,j]);
 if not((a[i,j]=0)or (a[i,j]=1) or (a[i,j]=5) or (a[i,j]=11))
 then
    writeln('недопустимые исходные данные')
 else
 begin
 readln(f);
 end;
 close(f);
 k:=0;
 for i:=1 to n-1 do
 for j:=1 to n-1 do
 if (a[i,j]+a[i+1,j]+a[i,j+1]+a[i+1,j+1])=17 then
 k:=k+1;
 writeln('количество искомых "четверок": ',k);
 end;
 end.

совсем не понимаю в чем проблема(

Вернуться к обсуждению:
Ошибка ввода/вывода 104 - файл не открыт для ввода
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.11.2012, 18:21
Готовые ответы и решения:

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

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

Ошибка ввода/вывода 2: Не удается найти указанный файл
Program baza; Uses CRT; label rew; type spisok=record fam:string; imya:string; ...

Ошибка ввода/вывода 2: Не удается найти указанный файл
program dred9; USES CRT; TYPE rec=record n_rejsa:string; marsh:string; typeplane:string;...

Ошибка ввода/вывода 2: не удается найти указанный файл
Написал программу, файлы input.txt и output.txt создал(хранятся в одной папке с программой), Pascal...

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