Тест по информатике

@SumQwerty · Регистрация: 12.12.2011

Author24 — интернет-сервис помощи студентам

Уделите пять минуток пожалуйста
Решите пожалуйста этот не сложный тест по информатике)))
1.

2.

Заранее благодарен!

Добавлено через 21 минуту
Вот архив с более чётким качеством фоток: http://zalil.ru/32253857
Помогите пожалуйста, тому кто поможет напишу афигеный отзыв

magirus · 12.12.2011, 20:17

Комментарий модератора

размещайте задания на форуме.

@SumQwerty · 13.12.2011, 02:10 **[ТС]**

Сам с трудом разобрался) Жду решения

Задание

2. Опиши сегменты памяти компьютера при работе с подпрограммами.

3. Подчеркните признаки, которым должны соответствовать формальные и фактические параметры при вызове подпрограмм: имя программы, типы передаваемых параметров, оператор цикла, количество передаваемых параметров, порядок следования, параметры-значения, параметры- переменные

4. Определи стрелками соответствие между 1 и 2 колонками:

Глобальные переменные объявляются в разделе var основной программы
Локальные переменные указываются в заголовке подпрограммы в качестве аргументов
Формальные параметры указываются при вызове из основной программы
Фактические параметры объявляются в разделе var в подпрограмме
Параметры-значения var v1,v2,v3: integer;
Параметры- переменные v1,v2,v3: real;

5. Даны объявления:

Pascal

Var k, m, n, : integer;
      a, b, c, : real;
Procedure p( i : integer, var j : integer, x: real; var y : real );
      Begin
          .....
      End;

Какие из следующих вызовов верны? Ответ обоснуйте.
a) p(m, k, 6.1, b);
b) p(k, n, c, 7.12);

6. Дополните строки, влекущие побочный эффект. Что будет выведено на экран?

Pascal

Program pobochnie ;
Var x, y : integer ;
Procedure proc ;
Begin x := +1; y:= +1; End;
Begin
x := 0; y := 1;
Proc; writeln( x, ' ' ,y );
Proc; writeln( x, ' ' ,y );
End.

7. Озаглавить рекурсивную программу по смыслу задачи, запиши условие остановки процесса повторения, укажи результат.

Pascal

Program ......................... ;
Const A : array[1..5] of integer = (5, 8, -5, 3, 7);
var I : integer;
 
function S ( I : integer ) : integer ;
begin
if ..................... then S := 0
                         else s := s ( i-I ) + a [ i ] ;
end;
begin
writeln (S(4));
end.

8. Напишите рекурсивную подпрограмму, которая вычисляет сумму S(n) = 1 + 1/3 + 1/5 + ... + 1/ (2n-1)

9. Что будет на экране в результате выполнения следующей программы?
Объясни различия.

Pascal

Program dinam;
uses crt;
var p,q : ^integer;
begin
clrscr;
 
new(p); new(q);
p^:=5; q^:=3; p^:=q^; writeln(p^,' ',q^);
if p=q then p^:=p^+1;
writeln(p^);
dispose(p); Dispose(q);
 
new(p); new(q);
p^:=5; q^:=3; p^:=q^; writeln(p^,' ',q^);
if p^=q^ then p^:=p^+1;
writeln(p^);
dispose(p); Dispose(q);
end.

10. составьте программу, которая обнуляет отрицательные элементы, расположенные на дополнительной диагонали и выводит их количество, используя подпрограммы.

@SumQwerty 0 / 0 / 1 Регистрация: 12.12.2011 Сообщений: 3
		1
	Тест по информатике 12.12.2011, 12:26. Показов 3119. Ответов 2 Метки нет (Все метки) Уделите пять минуток пожалуйста Решите пожалуйста этот не сложный тест по информатике))) 1. 2. Заранее благодарен! Добавлено через 21 минуту Вот архив с более чётким качеством фоток: http://zalil.ru/32253857 Помогите пожалуйста, тому кто поможет напишу афигеный отзыв 0

	13.12.2011, 02:10

Тест по информатике

Решение