Помогите, пожалуйста, выполнит задания, связанные с Turbo Pascal: 1) Определить, что будет напечатано
5-9 класс
|
в результате работы следующего фрагмента программы:
var k,s:integer;
begin
s:=0;
k:=1;
while k<11 do begin
s:=s+k;
k:=K+1;
end;
write(s);
end.
1.1 Запишите этот же фрагмент с помощью оператора Repeat...until
2) Значения двух массивов A[1..100] и B[1..100] задаются с помощью следующего фрагмента программы:
for n:=1 to 100 do
A[n]:=n-10;
for n:=1 to 100 do
B[n]:=A[n]*n;
Сколько элементов массива B будут иметь положительные значения?
а)10 б)50 в)90 г)100
1. Программа суммирует числа от 1 до 10, следовательно в ответе будет сумма:
1 + 2 + 3 + 4 + 5 + 6 + 7 + 8 + 9 + 10 = 55.
1.1.
var k,s:integer;
begin
s:=0;
k:=1;
repeat
s:=s+k;
k:=K+1;
until k >10;
write(s);
end.
2. в первом цикле
for n:=1 to 100 do
A[n]:=n-10;
вычисляются элементы массива А по формуле A[n]:=n-10, первые 10 из них будут отрицательные.
во втором цикле
for n:=1 to 100 do
B[n]:=A[n]*n;
вычисляются элементы массива В по формуле B[n]:=A[n]*n, а т.к. первые 10 элементов массива А отрицательные числа, то и 10 первых элементов массива В будут отрицательными, а т.к. в массиве В 100 элементов, то положительных будет 90.
Другие вопросы из категории
отдельные символы. Переписать с сохранением порядка следования элементы
первого файла во второй а элементы второго файла в первый. использовать
вспомогательный файл. (написать в паскале надо программу)
двумя битами?
2)что такое электронные словари?
3)какие дополнительные проблемы возникают при переводе текстов?
4)что отличает систему перевода текста от электронного словаря?
5)почему отсканированный текст нельзя сразу обрабатывать текстовым редактором?
6)что такое распознавание текста?
Читайте также
в результате работы следующего фрагмента программы:
var k,s:integer;
begin
s:=0;
k:=1;
while k<11 do begin
s:=s+k;
k:=K+1;
end;
write(s);
end.
1.1 Запишите этот же фрагмент с помощью оператора Repeat...until
2) Значения двух массивов A[1..100] и B[1..100] задаются с помощью следующего фрагмента программы:
for n:=1 to 100 do
A[n]:=n-10;
for n:=1 to 100 do
B[n]:=A[n]*n;
Сколько элементов массива B будут иметь положительные значения?
а)10 б)50 в)90 г)100
1. Сколько раз выполнится тело цикла и какие значения будут
присвоены переменной I?
I:=1;
While I<=10 do
I:=I+1;
2. Что появится на экране в результате работы этих программ?
а) Program primer1;
Var X:real; I:integer;
Begin I:=1; X:=0;
While I<=5 do begin
X:=X/2+I*I;
I:=I+1;
End;
Write(X);
End.
b) Program primer2;
Var X,I,N:integer;
Begin
Write ('введите число');
Readln(X);
I:=1;
While I<=X do begin
If X mod I=0 then N:=N+1;
I:=I+1;
End;
Write(N,I);
End.
(если X=12)
значения выражений?
2) Выполнить алгоритм при x=345:
Начало
ввод x
a=x div 100
b=x div 10 mod 10
c=(a+b)/2
вывод a
вывод b
вывод c
конец
3) Что появится на экране после выполнения фрагмента программы:
a:=7;
b:=5;
a:=a-b;
Writeln(b-a*2);
Writeln('a=',a,'b=',b);
4) Дана сторона квадрата, найти его периметр.
5) Дано трёхзначное число. В нём зачеркнули последнюю справа цифру и приписали её в начале. Найти полученное число.
*Задачи 4 и 5 решить на языке программирования, используя математические функции.
второе "повідомлення".
помогите пожалуйста :)