|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
14.09.2017, 18:53 | #1 |
Новичок
Джуниор
Регистрация: 14.09.2017
Сообщений: 2
|
СРОЧНО! Нужна помощь по паскалю
1
Выберите верное утверждение. Модификация реализации при прежнем интерфейсе может отразиться на программах, использующих модули. Процедуры ввода-вывода содержатся в стандартном модуле system. Количество сток и столбцов на экране в текстовом режиме пользователь может менять с помощью специальной процедуры из модуля crt. 2 Какие преимущества имеет неформальный способ описания алгоритмов? Прост и понятен Не требует знаний формальных описаний алгоритмов Естественен Легко понимается компьютером 3 Даны описания переменных: var x, y, z: real; i, j, k: integer; Какие из следующих выражений синтаксически правильны (имеется в виду совместимость типов)? trunc(x+y) div x i mod (round(j+y)) i+j–k i div z + x 4 type ref = ^integer; var p, q: ref; Пусть p^=2 и q^=3. Что будет выдано на печать в результате выполнения следующих операторов? p^:=q^; if p=q then p:=nil else if p^=q^ then q:=p; if p=q then q^:=5; writeln(p^); 5 Определите, какими будут значения переменных p и d после выполнения операторов: p:=false; d:=0; k:=9; case 2*k mod 10 of 3, 2, 7, 5: d:=k; 1:; 4, 8: begin p:=true; if p then d:=3 end; 9, 6: begin if not p then d:=2 end end; В ответ введите сначала значение переменной p, а потом через пробел значение переменной d. 6 var x: array [1..40] of char; y: array [3..42] of char; Задача. Переписать элементы массива y в массив x. Какие из следующих программ решают эту задачу? ... y:=x; ... ... {i имеет тип integer} for i:=3 to 42 do x[i-2]:=y[i]; ... ... {i имеет тип integer} for i:=1 to 40 do x[i]:=y[i+2]; ... 7 Укажите строки с ошибками в описании рекурсивной функции. function f(n: integer): integer; begin f:=0; if n>0 then f:=f(n-1)+f end; 8 Какое логическое выражение эквивалентно математическому утверждению: «a и b имеют одинаковые логические значения»? a or b a and b or not a and not b a and b 9 Укажите ЛОЖНОЕ утверждение. Все файлы, открытые в результате работы программы, должны быть закрыты при завершении программы процедурой close. На самом деле, нет необходимости закрытия файлов во всех ветвях программы, в том числе в различных аварийных ситуациях. Операционная система сама закроет файл. При выполнении оператора close закрывается физический файл на диске, и фиксируются изменения, связанные с использованием данного файла. 10 Дан фрагмент программы (все переменные – integer): q:=0; r:=x; while r>=y do begin r:=r-y; q:=q+1 end; Выполните этот фрагмент с заданными x=10, y=5. Чему равно q после выполнения? 11 Что будет напечатано? write(pos('ра', 'абракадабра')); 12 Какие из следующих конструкций являются множествами (в смысле языка Паскаль)? [9,6,9,0] [[], 5] [15..1, 4..18] ['*', '*'] [0..0.1] 13 procedure P(x, y, z: integer); begin y:=x+z end; procedure Q(x: integer; var y: integer); begin y:=x+1 end; procedure R(var x, y: integer); begin y:=x+1 end; Для каждой из процедур определите, какие из ее параметров являются параметрами-значениями. В ответ введите суммарное количество параметров-значений для этих трех процедур. Пример ввода ответа: 3 14 Что вычисляет следующая программа, если мы вводим n натуральных чисел a1, a2, …, an? var n, a, k, i: integer; begin writeln('Введите количество натуральных чисел'); readln(n); k:=0; writeln('Введите ', n, ' натуральных чисел'); for i:=1 to n do begin readln(a); if sqr(trunc(sqrt(a)))=a then if trunc(sqrt(a)) mod 2 <>0 then k:=k+1; end; writeln(k); end. Количество полных квадратов среди a1, a2, …, an. Количество удвоенных нечетных чисел среди a1, a2, …, an. Количество квадратов нечетных чисел среди a1, a2, …, an. Количество квадратов четных чисел среди a1, a2, …, an. Количество удвоенных полных квадратов среди a1, a2, …, an. 15 type time = record h {час}: 0..23; m {минута}, s {секунда}: 0..59 end; Описана процедура next(t, t1), присваивающая параметру t1 время, на 1 секунду меньшее времени t (учитывается смена суток). В какой строке достаточно сделать небольшие изменения, чтобы эта программа правильно решала задачу? procedure next(t, t1: time); begin t1:=t; with t1 do if s>0 then s:=s-1 else begin s:=59; if m>0 then m:=m-1 else begin m:=59; h:=(h-1) mod 24 end end end; |
14.09.2017, 19:00 | #2 |
Старожил
Регистрация: 12.01.2011
Сообщений: 19,500
|
Вы не перепутали "помощь" и "сделайте за меня"?
Назовите нормально тему, покажите свои наработки, конкретные вопросы и т.п. Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Срочно нужна помощь по паскалю до 2 июля! Решить 2 задачи. | vladislav57rus | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 28.06.2015 17:13 |
СРОЧно нужна помощь(одномерный массив)СРОЧНО, МОГУ заплатить. | warsong | Фриланс | 12 | 11.01.2010 20:30 |
Срочно нужна помощь по паскалю | Саша91-09 | Помощь студентам | 5 | 05.05.2009 10:10 |
Нужна помощь по паскалю!! | 4meen | Помощь студентам | 5 | 03.12.2007 12:09 |