| ← Октябрь 2016 → | ||||||
|
1
|
2
|
|||||
|---|---|---|---|---|---|---|
|
3
|
4
|
5
|
6
|
7
|
8
|
9
|
|
10
|
11
|
12
|
13
|
14
|
16
|
|
|
17
|
18
|
19
|
20
|
21
|
22
|
23
|
|
24
|
25
|
26
|
27
|
28
|
30
|
|
|
31
|
||||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Дата отправки: 24.10.2016, 07:51 Консультирует REDDS (3-й класс): Здравствуйте, nata! Код (Pascal) :: выделить код Program programs;
var c,i, n, sum: integer;
begin
writeln('vvedite 4islo do kotorogo s4itat');
readln(c);
for i:= 2 to c do
begin
n:=i mod 2;
if n=0
then
begin
sum:=sum+i;
end;
end;
writeln('summa =',sum);
readln();
end. 2) Код (Pascal) :: выделить код Program programs;
var i,n,s:integer;
sr:real;
p:array of integer;
begin
Randomize;
Write('n = ');{вводим размерность массива}
Readln(n);
SetLength(p,n);{задаем размерность массива}
For i:=0 to n-1 do
begin
p[i]:=Random(21);Х{заполняем массив рандомно}
Write(p[i],' ');
end;
Writeln;
s:=0;
For i:=0 to n-1 do{считаем среднее арифметическое}
s:=s+p[i];
sr:=s/n;
Writeln(sr:5:2);
Readln;
end. 3) Код (Pascal) :: выделить код
program Project1;
var N,k:integer;
Function fact(N: integer) : longint;
Begin
If N= 0 then
fact:= 1
Else fact := fact(N-1) * N
End;
begin {начало основной программы}
writeln('vashe 4isklo– ');
readln(N);
k:= fact(N);
writeln ('factorial !=',k);
readln();
end.
Консультирует Евгений/Genia007/ (Профессионал): Здравствуйте, nata! Код (Pascal) :: выделить код programm sum_for
var
i, n, sum: integer;
begin
readln(n);
sum:= 0;
for i:= 1 to n do
if i mod 2 = 0 then
sum:= sum + i;
write(sum);
end;1 задание с циклом repeat: Код (Pascal) :: выделить код programm sum_repeat
var
i, n, sum: integer;
begin
readln(n);
sum:= 0;
i:= 1;
repeat
if i mod 2 = 0 then
sum:= sum + i;
i:= i + 1;
until
i > n;
write(sum);
end;1 задание с циклом while: Код (Pascal) :: выделить код programm sum_while
var
i, n, sum: integer;
begin
readln(n);
sum:= 0;
i:= 1;
while i <= n do
begin
if i mod 2 = 0 then
sum:= sum + i;
i:= i + 1;
end;
write(sum);
end;2 задание: Код (Pascal) :: выделить код programm massiv
uses Crt;
var
i, n, sum: integer;
a: array of integer;
s: real;
begin
readln(n);
setlength(a, n); {Устанавливаем длину массива}
sum:= 0;
randomize; {Инициализация генератора случайных чисел}
for i:= 1 to n do
begin
new(a[i]); {Новый элемент массива}
a[i]^:= random(100); {Генерация числа элемента массива}
sum:= sum + a[i]^; {Считаем сразу сумму элементов}
end;
for i:= 1 to n do
write(a[i]^, ' '); {Выводим массив}
writeln;
s:= sum / n; {Считаем среднеарифметической}
writeln(s);
dispose(a[i]); {Отчищаем память}
end.3 задание: Код (Pascal) :: выделить код program factorial;
var
n, i: integer;
function factor(x: integer): integer;
begin
if x = 0 then
factor:= 1
else
factor:= factor(x - 1) * x;
end;
begin
readln(n);
i:= factor(n);
writeln(i);
end.
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
