программисты Воронеж

Cеминар по Программированию/Бесплатные курсы c нуля 2024: Паскаль, PHP, JavaScript Сообщество. Онлайн - как начать

Внимательно ознакомься с текстом ниже (не зря же мы его писали и периодически обновляем! ;), если темы обучения подойдут - ответь на вопросы, которые встретятся ниже, в одном из пунктов.

1. О сообществе

IFF -- это сообщество, направленное на свободный обмен знаниями и улучшение условий такого обмена.

Сейчас у нас есть два направления:

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

Найдём квадратный корень $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, нам необходимо задать правило, 

Pages

Subscribe to RSS - программисты Воронеж