бесплатное обучение программированию

[!] Программирование на Pascal для начинающих с нуля -- online

    Подготовка к изучению

  1. Устанавливаем Lazarus Delphi:
  2. Создайте новый проект консольного приложения
  3. И выполните в нём код, удалите то что было в окне ввода и скопируйте туда эти три строки:

Извлечь квадратный корень из комплексного числа

Найдём квадратный корень $x+yi$ из комплексного числа $a+bi$ ($a,\ b,\ x,\ y\in \mathbb{R}$):
$$
\sqrt{a+bi}=\pm(x+yi).
$$

Будем рассматривать случай, когда $b\neq 0$.

Вывести на экран сумму N случайных чисел.

var n, y, i, x: integer;
begin
 randomize(); // датчик случайных чисел 
 y := 0;
 n := 4; // сколько чисел выводить
 for i := 1 to n do
 begin
  x := random (20) - 10; // из диапазона
  y :=y+x;
 writeln('x=', x,' y=', y ); // печатаем значение
 end;
end.

Лекция 2 - Наука как феномен культуры

Лекция 2
7-10-2015

Тема: НАУКА КАК ФЕНОМЕН КУЛЬТУРЫ

Дело в том , что понятие культуры- очень широкое. Идёт всё это от греков – считается , что культура это что–то искусственное – то есть созданное человеком. Культура – это некая надстройка над природой. В этой надстройка мы проводим всё больше времени (по сравнению с дикой природой), это своеобразный мир – второй мир созданный человеком.
Государство тоже является культурным проектом, который внедрялся и шифровался постепенно. Постепенно возникала его структура.

Вывести на экран N случайных чисел (каждое с новой строки) из диапазона [-21, 35]

var n, i, x: integer;
begin
    randomize(); // датчик случайных чисел 
    n := 7; // сколько чисел выводить
    for i := 1 to n do
    begin
        x := random (35) -21; // из диапазона 
        writeln(x); // печатаем значение
    end;
end.

Не могу сообразить как найти сумму n слагаемых

var n, y, i, x: integer;
begin
    randomize(); // датчик случайных чисел 
  
    n := 4; // сколько чисел выводить
    for i := 1 to n do
    begin
        y := 0;
        x := random (20) - 10; // из диапазона
        y :=y+x;
        writeln('x=', x,' y=', y ); // печатаем значение
    end;
end.

пример вывода последовательности

begin
  var x, n, z:integer;
  var k:boolean;
  k:=true; //присваиваем значение истины (в том смысле что ряд идет на повышение)
  z:=1; //начальное значение
  n:=20; //предел счетчика цикла
  for x:=1 to n do //цикл, который выполнится n раз
  begin //начало тела цикла 
    writeln ( 'z=' , z); //выведем значение переменной z, так как при первом витке оно соответствует условию задачи
    {после того как мы вывели очередное значение z, нам необходимо задать правило, 

Вопрос по задаче

Пожалуйста скажите , можно ли в конструкции

for ($i=1; $a / pow (10,$count -$i) == $a % pow (10,$i) ; $i++ )

сделать два и более условия уже для $i ?

for ($i=1; $a / pow (10,$count -$i) == $a % pow (10,$i) ; 
       $i++ and if ($a %2==0) { $i <= $count/2} else { $i <= $count/2+1} )

Исходный пост задачи

Pages

Subscribe to RSS - бесплатное обучение программированию