Irina Bakaev
?>

Уменя паскаль abc пишу прогу, вот моя program abc; var f: file of char; c: char; r: integer; begin assign (f, 'c: \users\дети\desktop\абв.txt'); {$i-} reset (f); {$i+} r: = ioresult; if r < > 0 then writeln ('такого файла нет') else while not eof (f) do begin read (f, c); writeln (c); end; close (f); readln end. я не знаю в чём проблема на распечатке написано (примеры) так а пишет типо неизвестное имя ioresult

Информатика

Ответы

buriginast5
Const
    file_path = 'C:\Users\дети\Desktop\абв.txt';

var
    f: file of char;
    c: char;

begin
    if not FileExists(file_path) then
        writeln('такого файла нет')
    else
    begin
        assign(f, file_path);
        reset(f);
        while not eof(f) do
        begin
            read(f, c);
            writeln(c);
        end;
        close(f);
    end;
    
    readln();
end.

Не знаю подойдет ли это к вашей версии паскаля
Делалось на PascalABC.Net 3.1.0.1200
emaykova785

ответ: 1 - 3, 2 - 1, 3 - 1, 4: 1 -б, 2-в, 3-а, 5 - 2, 6 - 10, 7 - 1, 8: 3,4,2,1; 9 - 1

Объяснение:

1. Объект – это любая часть окружающего мира (предмет, процесс, явление), которая воспринимается человеком как единое целое.

2.Множество – это какое-то количество объектов, которые объединены одним именем.

3. Из каких частей состоит имя файла? - Имя файла состоит из двух частей: название и расширение, которые отделяются друг от друга точкой.

4.Соотнесите типы файлов с их расширениями.

Расширения графических файлов .bmp, .jpg, .gif.

Расширения текстовых файлов .doc, .txt, .rtf.

Расширения звуковых файлов  .wav, .mp3, .mid.

5.Укажите неверное выражение. -  1 Кбайт = 1000 байта

6.Сколько байт в слове ИНФОРМАЦИЯ? ответ: 10 байт

7.Что такое алгоритм? -  Конечная последовательность точных правил, приводящая от исходных данных к требуемому результату за конечное число шагов.

8.Установите верный порядок действий в алгоритме утра школьника. (Укажите порядок следования всех 4 вариантов ответа)

Проснуться-  Сделать зарядку - Умыться - Позавтракать.

9.Дайте определение понятию "Алгоритм с ветвлениями" - алгоритм, в котором в зависимости от некоторого условия выполняется либо одна, либо другая последовательность команд.

10.Что получится в результате действий исполнителя Чертежник по следующему алгоритму(нарисуй рисунок):

сместиться в точку (1, 1)

опустить перо

сместиться в точку (1, 3)

сместиться в точку (5, 1)

сместиться в точку (5, 3)

сместиться в точку (1, 1)

поднять перо

На изображении


1.Объект – это … 1. все вокруг 2. все то, что выполняет какие-либо действия. 3. любая часть окружающ
Bella

а) a:=1;

for i:=1 to 3 do

a:= a + 1;

ответ: _3_ раза, а =__4__

б) a:= 1;

for i:=3 to 1 do

a:= a + 1;

ответ: _0_ раз, а =__1__

в) a:= 1;

for i:=1 downto 3 do

a:= a + i;

ответ: _0_ раз, а =__1__

г) a:= 1;

for i:=3 downto 1 do

a:= a + i;

ответ: _3_ раз, а =__7__

Объяснение:

for счетчик := начальное значение to конечное значение do  

    тело цикла;

начальное значение <= конечное значение

for счетчик := начальное значение downto конечное значение do  

    тело цикла;

начальное значение >= конечное значение

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Уменя паскаль abc пишу прогу, вот моя program abc; var f: file of char; c: char; r: integer; begin assign (f, 'c: \users\дети\desktop\абв.txt'); {$i-} reset (f); {$i+} r: = ioresult; if r < > 0 then writeln ('такого файла нет') else while not eof (f) do begin read (f, c); writeln (c); end; close (f); readln end. я не знаю в чём проблема на распечатке написано (примеры) так а пишет типо неизвестное имя ioresult
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

steger
ИринаАлександровна
mayskiyandrey90
lirene
radatailless
set907
kabinet17
vladimirkirv
pak1998378
ooomedray4
marvindkc
Коваль1974
vikabobkova2010
Minchenkova
Джулия