Делфи

[Bom1234]

1. Подчеркнуть и объяснить ошибки в данном фрагменте программы
Var k : integer; N:real;
Begin
N:=StrToFloat(edtInput. Caption);
K:= N Div 100*(N Div 10 Mod 10)* (N Mod 10);
lblOutput. Text:= StrToInt(K);
End;
2. Требовалось написать программу, при выполнении которой с клавиатуры считывается координата точки на прямой (x – действительное число) и определяется принадлежность этой точки одному из выделенных отрезков В,D,F (включая границы).

Перечислите области, которые обрабатываются неправильно, и приведите исправленный код.
begin
х:=StrtoInt(Edit1.text);
if (x>=-5) or (x<=l)
then
if (x>=-3) and (x<=3)
then
if (x>=-l) and (x<=5)
then Edit2.text:='при¬над¬ле¬жит'
else Edit2.text:=('не при¬над¬ле¬жит')
3. Цикл с предусловием выполняется так:
a) выполняется тело цикла, изменяется параметр цикла, проверяется условие продолжения выполнения цикла;
b) изменяется параметр цикла, проверяется условие продолжения выполнения цикла, выполняется тело цикла;
c) проверяется условие продолжения выполнения цикла, выполняется тело цикла;
d) тело цикла выполняется N раз (N — натуральное);
e) определяется, сколько раз должен быть выполнен цикл, и далее цикл с предусловием сводится к циклу с параметром.
4. Определить значение переменной S после выполнения следующих операторов
s:= 0; i:= 0; while i < 5 do i:=i+1; s:=s+1/i;
5. Тело цикла в программе
a := 1; b := 1;
While a + b < 5 Do
begin a := a + 1; b := b + 2 end;
выполнится
1) 1 раз; 2) 2 раза; 3) 3 раза; 4) ни разу; 5) бесконечное число раз.

6. Дан фрагмент программы:
var i,k: integer;
a: array[1..10] of integer;
begin
k:=0;
for i:=1 to 10 do
a[i]:=10-i+1;
i:=1;
while i<=10 do
begin
if a[i] div 3<=1
then k:=k+1;
i:=i+1;
end;
lblOutput.Caption:=IntToStr(k);
end;
Значение k равно:

7. Значения двух массивов A[1..100] и B[1..100] задаются с помощью следующего фрагмента программы:
for i:=1 tо 100 do
A[i] := 50 – i;
for i:=1 tо 100 do
B[i] := A[i] + 49;
Сколько элементов массива B будут иметь отрицательные значения?
1) 1 2) 10 3) 50 4) 100

[Bom1234]

1. Подчеркнуть и объяснить ошибки в данном фрагменте программы
Var N, k : integer;
Begin
N:=StrToFloat(edtInput. Caption);
K:= N Div 100*(N Div 10 Mod 10)* (N Mod 10);
lblOutput. Text:= StrToInt(K);
End;
2. Требовалось написать программу, при выполнении которой с клавиатуры считывается координата точки на прямой (x – действительное число) и определяется принадлежность этой точки одному из выделенных отрезков В и D (включая границы).

Перечислите области, которые обрабатываются неправильно, и приведите исправленный код.
х:=StrtoInt(Edit1.text);
if x>=-3 then
if x<=9 then
if x>1 then Edit2.text:='не принадлежит'
else Edit2.text:='принадлежит'


3. Цикл с постусловием выполняется так:
a) выполняется тело цикла, изменяется параметр цикла, проверяется условие продолжения выполнения цикла;
b) изменяется параметр цикла, проверяется условие продолжения выполнения цикла, выполняется тело цикла;
c) проверяется условие продолжения выполнения цикла, выполняется тело цикла;
d) тело цикла выполняется N раз (N — натуральное);
e) определяется, сколько раз должен быть выполнен цикл, и далее цикл с предусловием сводится к циклу с параметром.

4. Сколько раз исполнится фрагмент программы?
For i := 1 To -1 Do k:=k*i;

5. Определите значения переменных a и b после выполнения операторов
a := 1; b := 1;
While (a + b) < 8 Do
a := a + 1;
b := b + 2;

6. Дан фрагмент программы:
var i,k: integer;
a: array[1..10] of integer;
begin
k:=0;
for i:=1 to 10 do
a[i]:=10-i+1;
i:=10;
repeat
if a[i] mod 3<=1
then k:=k+1;
i:=i-1;
until i<1;
lblOutput.Caption:=IntToStr(k);
end;
Значение k равно:



7. Значения двух массивов A[1..100] и B[1..100] задаются с помощью следующего фрагмента программы:
for n:=1 to 100 do
A[n] := (n-80)*(n-80);
for n:=1 to 100 do
B[101-n] := A[n];
Какой элемент массива B будет наибольшим?
1) B[1] 2) B[21] 3) B[80] 4) B[100]

[Аватар]

Название темы не соответствует правилам

[Вадим Мошев]

А ещё оформление кода не соответствует правилам http://www.programmersforum.ru/showp...23&postcount=3
_______

А вообще круто, пришёл такой на форум, ни здрасте, ни до свидания, вывалил тест и ушёл... закономерный результат получен...