Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » помогите решить плиз,завтра контрольная(
помогите решить плиз,завтра контрольная(
1. Задано целое положительное число N>1. Вычислить сумму четных целых чисел в диапазоне 1..N. Для решения задачи использовать счетный цикл.

2. Задано целое число N.
если N>0, найти сумму целых чисел в диапазоне 1..N
если N<0, найти сумму целых чисел в диапазоне N..-1
Если N=0, вывести на экран соответствующее сообщение
Для решения задачи использовать цикл с предусловием.

3. Задано два цеых числа N1 и N2.
Если N1<N2, вычислить сумму целых чисел в диапазоне N1..N2
Если N2<N2, вычислить сумму целых чисел в диапазоне N2..N1
Если 1=N2, вывести на э
кран соответствующее сообщение.
Использовать цикл с постусловием.

4.дана функция
2x,x<0
y= 0,x=0
0,5x, x>0
Найти значение функции для всех целых значений x из диапазона -5..5
Использовать счетный цикл

1 | Автор: Алёнчик | 2010-10-25, 17:21   |  Репутация: [ + 0 ]
Code
1.
var n, i, s: integer;
begin
   readln(n);
   s:=0;
   for i:=1 to n do
   if (i mod 2)=0 then
   s:=s+i;
   writeln(s);
   readln;
end.

2.
var n, i, s: integer;
begin
   if n>0 then
   begin
     s:=0;
     while N>=1 do
     begin
       s:=s+n;
       n:=n-1;
     end;  
     writeln(s);
   end
   else
   if n<0 then
   begin
     s:=0;
     while N<=-1 do
     begin
       s:=s+n;
       n:=n+1;
     end;  
     writeln(s);
   end
   else   
   writeln('N=0');
   readln;
end.

Добавлено (25.10.10, 17:43)
---------------------------------------------

Code

3.
var n1, n2, i, s: integer;
begin
   readln(n1);
   readln(n2);
   if n1<n2 then
   begin
     s:=0;
     repeat
     s:=s+n1;
     n1:=n1+1;
     until (n1=n2);
     writeln(s);
   end
   else
   if n1>n2 then
   begin
     s:=0;
     repeat
     s:=s+n2;
     n2:=n2+1;
     until (n1=n2);
     writeln(s);
   end
   else
   writeln('N1=N2');
   readln;
end.
{условия 1 и 2 в задаче будут решаться впринципе одинаково.}

4.  
var i: integer;
       res: array [1..11] of integer;
begin
   for i:=-5 to 5 do
   if i<0 then
   begin
     res[i+6]:=2*i;
     writeln(res[i+6]);
   end
   else
   if i=0 then
   begin
     res[i+6]:=0;
     writeln(res[i+6]);
   end
   else
   if i>0 then
   begin
     res[i+6]:=0.5*i;
     writeln(res[i+6]);
   end;
   readln;
end.
{расчитывает значение У и сразу же его выводит для каждой итерации}


If you can't make it GOOD make it LOOK GOOD. B.Gates
2 | Автор: DoVe | 2010-10-25, 17:43   |  Репутация: [ + 48 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » помогите решить плиз,завтра контрольная(
  • Страница 1 из 1
  • 1
Поиск: