Информатика | 5 - 9 классы
Var n, x, i, s : integer ; input, output : text ; a : array [1.
10] of integer ; begin s : = 0 ; assign (input, 'input.
Txt') ; assign (output, 'output.
Txt') ; reset (input) ; rewrite (output) ; readln (input, n) ; for i : = 1 to n do begin read(input, a[i], x) ; if a[i] = 1 then s : = s + x ; end ; write(output, s) ; close(input) ; close (output) ; end.
Когда скинула на проверку, написали, что Программа выполнила недопустимую операцию.
Найдите ошибку, пожалуйста.
Program Pr1 ; uses crt ; var fl1, fl2 : text ; i, n, v, a, b : integer ; Begin clrscr ; assign(fl1, 'input?
Program Pr1 ; uses crt ; var fl1, fl2 : text ; i, n, v, a, b : integer ; Begin clrscr ; assign(fl1, 'input.
Txt') ; assign(fl2, 'output.
Txt') ; reset(fl1) ; readln(fl1, n) ; v : = 0 ; for i : = 1 to 1000000 do begin if i> ; = 10 then begin a : = i div 10 ; b : = i mod 10 ; if (a mod 2< ; > ; 0) and (b mod 2< ; > ; 0) then v : = v 1 ; end else if i mod 2< ; > ; 0 then v : = v 1 ; if v = n then break ; end ; rewrite(fl2) ; writeln(fl2, v) ; close(fl1) ; close(fl2) ; end.
Ребят в этом алгоритме есть ошибка найдите её плз.
Создайте программу в Паскале формирования исходного одномерного целочисленного массива случайным образом в файле input?
Создайте программу в Паскале формирования исходного одномерного целочисленного массива случайным образом в файле input.
Txt. Отсортированный исходный массив по возрастанию и по убыванию записывается в виде двух таблиц в файл output.
Txt.
В файле input?
В файле input.
Txt записаны строки сколько их неизвестно заменить все слова короче на в общем и записать результат в файл output.
Txt на языке ПАСКАЛЬ.
Дано натуральное трехзначное число N ?
Дано натуральное трехзначное число N .
Определить сумму и произведение его цифр.
Имя входного файла Input.
Txt, имя выходного файла output.
Txt.
Проверьте программу?
Проверьте программу!
Program f4 ;
var f1, f2 : text ; s : string ;
begin Assign(f1, 't1.
Txt') ; Assign(f2, 't2.
Txt') ; Reset(f1) ; Rewrite(f2) ; while not eof(f1) do begin readln(f1, s) ; writeln(f2, s) ; end ; close(f1) ; close(f2) ;
end.
Задача на паскалеПрочитать из файла (input?
Задача на паскале
Прочитать из файла (input.
Dat) список имён.
В файл (output.
Dat) перенести только уникальные имена.
Почему pascal не может найти файл, пишет что файл не найден, хотя он есть?
Почему pascal не может найти файл, пишет что файл не найден, хотя он есть!
Вот программа
Program ex1 ;
var : a, b, sum : integer ; f1, f2 : text ;
begin assign(f1, 'input.
Txt') ; assign(f2, 'output.
Txt') ; reset(f1) ; read(f1, a, b) ; sum : = a + b ; rewrite(f2) ; write(f2, sum) ; close(f1) ; close(f2) ;
end.
Нужна помощь в отредактировании программы Паскаль?
Нужна помощь в отредактировании программы Паскаль.
Нужно, чтобы выводилось максимальное среди двузначных элементов массива.
Максимальное программа выводит, но где и как прописать, что элементы массива только двузначные?
Program maxdvuz ;
var i, n, i1 : integer ;
a : array[1.
1000] of integer ;
amax : real ;
begin
assign (input, 'input.
Txt') ;
assign (output, 'output.
Txt') ;
reset (input) ;
rewrite (output) ;
readln(n) ;
for i : = 1 to n do read (a[i]) ;
amax : = a[1] ;
for i : = 1 to n do
begin
if a[i]> ; amax then
begin
amax : = a[i] ;
i1 : = i ;
end ;
end ;
writeln(amax : 0 : 0) ;
close (input) ;
close (output) ;
end.
Даны два файла : input?
Даны два файла : input.
Txt и output.
Txt. В input.
Txt дана последовательность чисел : 1, 6, 11, 16, 21.
В Output.
Txt отобразить размах ряда (т.
Е разность между наибольшим и наименьшим числом).
Pascal.
В файле input?
В файле input.
Txt записаны числа, сколько их - неизвестно.
Определить и записать в файл output.
Txt количество чисел с одинаковыми цифрами (11, 22.
).
Вопрос Var n, x, i, s : integer ; input, output : text ; a : array [1?, расположенный на этой странице сайта, относится к категории Информатика и соответствует программе для 5 - 9 классов. Если ответ не удовлетворяет в полной мере, найдите с помощью автоматического поиска похожие вопросы, из этой же категории, или сформулируйте вопрос по-своему. Для этого ключевые фразы введите в строку поиска, нажав на кнопку, расположенную вверху страницы. Воспользуйтесь также подсказками посетителей, оставившими комментарии под вопросом.
Компиляцию твоя программа проходит успешно.