Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.05.2018, 19:23   #1
Julilav
 
Регистрация: 02.04.2018
Сообщений: 4
По умолчанию Помогите ответить на эти вопросы!

26. Результатом выполнения процедуры является вывод …
Код:
procedure pr3(a:mas);
    var i,j:integer;
    begin for i:=1 to m do
        begin
          for j:=1 to n do
          case a[i,j] of
            -1:write('*');
             0:write(' ');
              else write(a[i,j]:2);
           end;
         writeln;
        end;
       end;
1. одномерного массива
2. массива строк
3. двумерного массива
4. строки символов
5. массива символов
27. Процедура реализует …
Код:
procedure hod(i,j,l:integer);
   var k:integer;
    begin
     if (i=i2)and(j=j2)then exit 
      else
      begin
       for k:=1 to 4 do
        if a[i+b[k],j+c[k]]=0 then
   	begin
    	a[i+b[k],j+c[k]]:=l; hod(i+b[k],j+c[k],l+1); a[i+b[k],j+c[k]]:=0;
     end;
    end;
end;
1. поиск пути в лабиринте
2. поиск пути в графе
3. преобразование элементов двумерного массива
4. обработку элементов одномерного массива
5. обработку массива строк
28. Процедура является реализацией …
Код:
procedure hod(i,j,l:integer);
   var k:integer;
    begin
     if (i=i2)and(j=j2)then exit 
      else
      begin
       for k:=1 to 4 do
        if a[i+b[k],j+c[k]]=0 then
   	begin
    	a[i+b[k],j+c[k]]:=l; hod(i+b[k],j+c[k],l+1); a[i+b[k],j+c[k]]:=0;
     end;
    end;
end;
2. поиска пути в лабиринте
1. рекурсивного поиска пути в лабиринте
2. преобразования элементов двумерного массива
3. обработки элементов одномерного массива
4. обработки массива строк
29. Параметрами процедуры являются …
Код:
procedure hod(i,j,l:integer);
   var k:integer;
    begin
     if (i=i2)and(j=j2)then exit 
      else
      begin
       for k:=1 to 4 do
        if a[i+b[k],j+c[k]]=0 then
   	begin
    	a[i+b[k],j+c[k]]:=l; hod(i+b[k],j+c[k],l+1); a[i+b[k],j+c[k]]:=0;
     end;
    end;
end;
1. i, j, l
2. k
3. a, b, c
4. i, j
5. a, b
30. Глобальные переменные процедуры …
Код:
procedure hod(i,j,l:integer);
   var k:integer;
    begin
     if (i=i2)and(j=j2)then exit 
      else
      begin
       for k:=1 to 4 do
        if a[i+b[k],j+c[k]]=0 then
   	begin
    	a[i+b[k],j+c[k]]:=l; hod(i+b[k],j+c[k],l+1); a[i+b[k],j+c[k]]:=0;
     end;
    end;
end;
1. a, b
2. i, j, k
3. I, j, l
4. a. b, c
5. a, b, k




16.Результатом выполнения фрагмента алгоритма является:
Код:
a:=[];for i:=1 to n do 
 begin
   read(c);a:=a+[c];   
 end;
1. заполнение одномерного массива элементов
2. формирование двумерного массива элементов
3. формирование множества элементов
4. формирование строки символов
5. ввод и формирование массива символов
37. Указанный фрагмент программы …
Код:
type Spisok=record
   fam:string[15]  
   b:аrrау[1..5] of byte; 
   srb:real; 
end;
1. описывает множество под именем spisok
2. описывает запись под именем spisok
3. описывает массив под именем spisok
4. формирует массив b
5. заполняет массивы b,fam
38. В указанном фрагменте программы fam,b,srb являются…
Код:
type Spisok=record
   fam:string[15]  
   b:аrrау[1..5] of byte; 
   srb:real; 
end;
1. именами массивов
2. именами полей записи
3. именами записи
4. именами элементов массива
5. значениями полей записи
39. В указанном фрагменте программы spisok является…
Код:
type Spisok=record
   fam:string[15]  
   b:аrrау[1..5] of byte; 
   srb:real; 
end;
1. именами массивов
2. именами полей записи
3. именем записи
4. именами элементов массива
5. значениями полей записи

40. Результатом выполнения фрагмента программы …
Код:
for j:=1 to 5 do
readln(klass[i].b[j]);
1. ввод элементов поля b записи klass
2. ввод элементов поля klass
3. вывод элементов поля b записи klass
4. вывод элементов поля klass записи b
5. ввод элементов массива klass
41. В результате выполнения фрагмента программы …
Код:
for i:=1 to m do
with klass[i] do
srb:=(b[1]+b[2]+b[3]+b[4]+b[5])/5;
1. будет вычислена величина srb
2. заполнено поле srb массива записей
3. вычислено среднее значение элементов массива
4. вычислено значение полупериметра многоугольника
5. удаляется среднее значение из массива
42. Результатом выполнения фрагмента программы является …
Код:
sbmax:=0;
for i:=1 to m do
if klass[i].srb>=sbmax then
    sbmax:=klass[i].srb;
1. максимальное значение элементов поля srb записи klass
2. минимальное значение элементов поля srb записи klass
3. вычисление величины srb
4. сравнение элементов поля srb записи klass
5. обнуление элементов поля srb
43. Результатом выполнения фрагмента программы является …
Код:
for i:=1 to m do
if klass[i].srb=sbmax then
with klass[i] do
writeln(fam:20,' - ',srb:6:3);
1. вывод элементов записи со средним баллом равным sbmax
2. вывод фамилий записи klass со средним баллом =sbmax
3. вычисление среднего балла заданного массива записей
4. дополнение к записи поля fam
5. удаление из записи klass поля fam
16. Результатом выполнения фрагмента программы является:
Код:
Var c: char;  
 Begin   
 Assign(f,'Test.txt');Reset(f);
     While not(Eof(f)) do
      begin
        Read(f,c);
        Write(c)
      end;
      Close(f);
1. вывод на экран содержимого текстового файла Test.txt
2. создание на диске нового текстового файла Test.txt
3. поиск конца текстового файла Test.txt
4. вывод в текстовый файл Test.txt символов, введенных с клавиатуры
5. выдача сообщения об ошибке
17. Результатом выполнения фрагмента программы является …
Код:
  Var  f:text; c:Char;
  begin
    Assign(f,'Test.txt'); Rewrite(f);
    repeat
      Read(с);
      Write(f,c)
    Until c = ‘0’;
    CLose(f);
1. вывод на экран текстового файла Test.txt
2. создание на диске нового текстового файла Test.txt
3. поиск конца текстового файла Test.txt
4. вывод в текстовый файл Test.txt символов, введенных с клавиатуры
5. выдача сообщения об ошибке
19. Результатом выполнения фрагмента программы является …
Код:
Assign(f,'Test.dat'); Assign(f1,'Test1.dat');
    Reset(f); Rewrite(f1);
    While Not(Eof(f)) do
      begin
        Read(f,x);
        If х='И' then k:=k+1; 
      end;
    write(f1,k);CLose(f1)
  end.
1. запись содержимого файла Test.dat в файл Test1.dat
2. запись в выходной файл Test1.dat всех букв ‘И’ из файла Test.dat
3. создание файла Test1.dat, хранящего количество букв ‘И’ из входного файла
4. поиск в файле и вывод на экран всех слов, начинающихся на букву "И"
5. выдача сообщения об ошибке
20. Результатом выполнения фрагмента программы является:
Код:
 N:=0;
         Repeat
           N:=n+1;
           Read(f,a[n];
         Until eof(f);
1. считывание входных данных с клавиатуры и хранение их в массиве
2. считывание данных из входного файла в массив
3. считывание данных из массива и запись их в файл
4. формирование массива данных по указанному правилу
5. преобразование элементов массива по указанному свойству
21. Результатом выполнения фрагмента программы является:
Код:
Readln(f,n);
         For i:=1 to n do Read(f,a[i];
1. считывание входных данных с клавиатуры и хранение их в массиве
2. считывание данных из входного файла в двумерный массив
3. считывание данных из массива и запись их в файл
4. формирование массива данных по указанному правилу
5. считывание данных из входного файла в одномерный массив
22. Результатом выполнения фрагмента программы является:
Код:
Readln(f,n);
         For i:=1 to n 
           For j:=1 to n do Read(f,a[i,j];
1. считывание входных данных с клавиатуры и хранение их в массиве
2. считывание данных из входного файла в двумерный массив
3. считывание данных из массива и запись их в файл
4. формирование массива данных по указанному правилу
5. считывание данных из входного файла в двумерный массив

Последний раз редактировалось Вадим Мошев; 25.05.2018 в 19:37.
Julilav вне форума Ответить с цитированием
Старый 25.05.2018, 19:27   #2
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

Ты там ЕГЭ штоль сдаёшь?
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 26.05.2018, 12:07   #3
Julilav
 
Регистрация: 02.04.2018
Сообщений: 4
По умолчанию

Цитата:
Сообщение от min@y™ Посмотреть сообщение
Ты там ЕГЭ штоль сдаёшь?
экзамен
Julilav вне форума Ответить с цитированием
Старый 26.05.2018, 12:23   #4
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,534
По умолчанию

"
Где это видано, где это слыхано -
Папа решает, а мальчик сдаёт.
"
© какой-то детский фильм

Во Фриланс - и сумму прописью.
digitalis вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите ответить на вопросы qweqaz123 Помощь студентам 1 19.12.2017 10:42
Помогите ответить на вопросы экзаменационные, НЕ МОГУ СДАТЬ !!!SOS!!! alex123lexa Помощь студентам 1 23.05.2017 11:55
Не могу ответить на эти 5 вопросов!! Вообще ни в какую!( thedoctor Помощь студентам 1 30.12.2013 07:55