сервис вопросов и ответовЧто делает следующая программа? program Whatlslt; var f: file of integer; i: integer; begin reset( f ); while not e
10-11 класс|
|
of( f ) do begin read( f, i );
writeln( i );
end;
close(f);
end.
1) выводит в столбик числа, записанные в файле;
2) выводит в строку числа, записанные в файле;
3) записывает числа в новый файл;
4) дописывает числа в существующий файл.
Mamanastjcom
30 марта 2015 г., 21:56:25 (9 лет назад)
RingDingDon
30 марта 2015 г., 22:31:57 (9 лет назад)
ответ 1
ясно, что не 3 и 4, т.к. файл открывается на чтение(reset)
ответ не 2, т.к. при вызове writeln() происходит переход на следующую строку, т.е. числа будут записаны в столбик
Ответить
Другие вопросы из категории
Дано натуральнок K от 1 до 180.Написать программу для определения цифры, которая находится в k-той позиции последовательности 10111213...9899. Формат
входных данных Файл содержит число k-позиция искомой цифры. Формат выходных данных Выходной файл содержит искомую цифру. Пример входных и выходных файлов Task1.in Task1.out 4 1 8 3
Ребятушки,помогите,пожалуйста,очень прошу:*
Текст переводится из КОИ-8 в юникод.Объём этого текста,полученного уже в юникоде,равен 32 бит.Найти N.
В воскресенье 19 студентов побывали в планетарии, 10 – в цирке и 6 – на стадионе. Планетарий и цирк посетили 5 студентов; планетарий и стадион-3; цирк и
стадион -1. Сколько студентов в группе, если никто не успел посетить все три места, а три студента не посетили ни одного места? Напишите пожалуйста решение.
Читайте также
Олимпиадные задачи требуют ввод-вывод данных с использованием внешних файлов как это сделать? ИНФОРМАТИКА конспекты уроков 9-11 классы Чернов
А.А. с198
program pr;
uses crt;
var f:file of integer;
n:integer;
a:string;
begin
clrscr;
a:='c:\f1.txt';
assign(f,a);
rewrite(f);
writeln('n: ');
readln(n);
write(f,n);
close (f);
readln;
end.
после выполнения программы в файле f1.txt вместо значения n=5 появилось -256
что не так ?
Задание звучит : Дана последовательность целых чисел, за которой следует ноль. Определить, число соседств чисел с одинаковыми знаками.
Что нужно изменить в программе, чтобы выполнялось условие задачи.
Program exapmle2;
var x,y,k:integer;
begin
writeln('Эта программа определяет, число соседств чисел с одинаковыми знаками');
write('Введите число:');
read(x);
y:=x;
k:=0;
while y<>0 do
begin
if x*y<0 then inc(k);
if x*y>0 then inc(k);
y:=x;
read(y);
end;
writeln(' Число соседств ',k);
writeln('нажмите Enter для завершения работы программы');
readln;
end.
Помогите исправить ошибки Задание: составить программу на яз. Паскаль с использованием цикла с неизвестным числом повторений для вычислений значения
функции F(x)=sin(x)+tg(x) на отрезке [А, В] при изменении аргумента в точках хi = А+iН, где Н – шаг. А=1, В=2, Н=0,125.
Листинг программы:
Program Tabulir;
Var x, y: real;
Begin x:=1;
While x≤2 do begin
y:=sin(x)+tg(x);
writeln (x:9:1, y:16:3);
x:=x+0,125;
End.
Написать программу в паскале, которая после введенного с клавиатуры числа(в диапазоне от 1 до 99), обозначающий денежную единицу, дописывал слово
"Копейка". Например ,5 копеек,41 копейка и тд.
Вот мои попытки создать программу:
Program Kopeika;
Var a:integer;
begin
Writeln('Vvedite chislo');
Readln(a);
Case a of
'1,21,31,41,51,61,71,81,91': a:='Kopeika ';
'2..4,22..24,32..34,42..44,52..54,62..64,72..74,82..84,92..94': a:='Kopeiki ';
'5..20,25..30,35..40,45..50,55..60,65..70,75..80,85..90,95..99': a:=' Kopeek';
end;
Readln;
end.
Помогите найти ошибки в программе Program Oshibka;
Var a:b;c:Integer;
Begin
Writeln('Введите число ',a);
Readln('a')
b=5
c:=ab;
Writeln('произведение a и b'равно',S);
Readln(a);
End
Вы находитесь на странице вопроса "Что делает следующая программа? program Whatlslt; var f: file of integer; i: integer; begin reset( f ); while not e", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.