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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 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
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Вы не перепутали "помощь" и "сделайте за меня"?

Назовите нормально тему, покажите свои наработки, конкретные вопросы и т.п.

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума
Закрытая тема


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Срочно нужна помощь по паскалю до 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