Цикл FOR в Pascal

[@a11be]

Очень доступное объяснение. Спасибо вам

[@foxy8034]

Спасибо, помог
Не понимал почему выдает ошибку, посмотрел твое видео и разобрался

[@axnake7211]

var a,b,c,d:integer;
begin
d:=0;
write('Введите количество чисел: ');
read(a);
writeln('Введите нужные числа: ');
for b:=1 to a do
begin
read(c);
if c mod 2 = 0 then
d:=d+1;
end;
writeln('Всего чисел кратных 2: ', d);
end.
Вот если что код немного понятнее, чтобы вопросы лишние отпали.

[@psychoINF]

спасибо, добрый человек

[@tuwakmammetnazarow1869]

Здравствуйте. Я извиняюсь как я могу скачать ваши видео уроки? Спасибо. Мне очень понравилось ваше видео.

[@losev-it]

Здравствуйте. Напишите в поиске "скачать видео с ютюб"

[@usernotloser]

А как сделать одз в программе, если мне даны значения от 1 до 7, среди этих значений мне нужно чтоб 2 и 3 не учитывались при вычисления.

[@losev-it]

Добавить условие проверки является ли число 2 или 3

[@black___flash5005]

У меня задача :(постройте таблицу квадратов и квадратных корней следующих чисел x=1,3, 5,...,35) . Я не понимаю как эту задачу через FOR, если шаг +2. Можете объяснить и расписать программу, чтобы я понял?

[@losev-it]

Увы, но сейчас не имею свободного времени. Может быть потом. Возьму задачу на заметку

[@black___flash5005]

@@losev-it Хорошо.

[@Sava_chernyshov]

А что если, если ввести не 4 числа а допустим 5 или 6? Программа выполнит токо первые 4?

[@Валера-э7я5п]

подскажите как правильно прочитать такие строчки
copy( MaskEdit1.Text, (i-adr1)*3+1, 2 );
s := s + inttohex( b, 2 )+'-';

[@losev-it]

Здесь происходит работа с текстовым файлом и вызов функции или процедуры

[@ВиталийРожков-л5е]

Вы сказали что цикл считает с шагом 1,а как например посчитать записать с шагом +0.5 или -0.75? Вот тут я в ступоре. Спасибо

[@losev-it]

В случае цикла for никак. Но можно завести переменную, которая будет в цикле сама к себе прибавлять 0.5 или отнимать 0.75.
Если нужно чтобы это значение и было условием завершения цикла, то можно использовать цикл while по значению изменяемой переменной

[@ВиталийРожков-л5е]

@@losev-it Вот есть задача: Напишите программу, которая выводит таблицу значений функции: y=x-2+(x+1)/2 В диапазоне значений [-4,4] с шагом приращения аргумента 0,5.
Выведите ответ в таблицу в два столбика по формату: Writeln (x: :2, ‘ | ‘ , y:8:2);
Я ее написал (а скорее всего подогнал знаю что неправильно хотя по ответам подходит). Ни кто не может объяснить как надо и почему пытаюсь понять хочу но не могу((
X начинается от -4 и до +4 с шагом 0.5 а y начинается от 7.50 до 1.50 и обратно до 4.5 с шагом 0.75 А точнее задачник паскаля 11.6 решаю для себя чисто (интересно )
program tab;
var
i: integer;
x,y: real ;
begin
writeln(' x',' | ', ' y ' );
for i:= -4 to 12 do
begin
x:=-2+i*0.5;
y:=x-2+(x+1)/2;
Writeln(x:8:2, ' | ' , y:8:2);
end;
end.

[@losev-it]

Напишите в группу вк vk.com/losev_it
Там ответят по решению задачи)) если нет, то я решу, когда будет время

[@ВиталийРожков-л5е]

@@losev-it да мне главное не сделать мне понять хочется как делать и почему что куда

[@losev-it]

Тогда на канале есть плейлист о pascal. Или подождите, на следующей неделе сниму видео с разбором присланных задач

[@kuromi2015]

можете помочь мне с задачей по информатике?пожалуйста.мне надо с for.3. Среди чисел 1, 4, 9, 16, 25, … найти первое число, большее n (n - вводится с клавиатуры).
к этому задаче эти подходят?
program cvetochek;
var
n:integer;
x:integer;
c:integer;
begin
Writeln('Введите целое число (n>0) n=');
readln(n);
c:=1;
While sqr(c-1) n;
WriteLn('ответ:',d);
ReadLn;
End.

[@Валера-э7я5п]

да с текстовым файлом
проблема с запятой что она делает + - или =

[@ЕкатеринаМуратова-р4д]

Спасибо

[@ae_gulya_officialgulya5828]

если честно нечего не поняла

[@Димон-ф3в]

Спасибо