VPF::[Pascal] задачи по паскалю - Форум программистов

viktor2014

Дата 19.1.2013, 13:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 19.1.2013

Репутация: нет
Всего: нет

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

Решение задач с использованием условного и циклического операторов.
1. Найти сумму трехзначных чисел, кратных 7.
2. Задана последовательность формулой: an= n2-1. Вывести первые 10 членов последовательности и найти количество четных чисел.

Alexeis

Дата 19.1.2013, 16:56 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 23
Всего: 459

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

t_gran

Дата 19.1.2013, 20:15 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 621
Регистрация: 13.11.2007
Где: г.Усть-Илимск

Репутация: 33
Всего: 37

viktor2014, мне что-то не понятно по поводу 2-ой, что такое n2? Это произведение n на 2? Если так, то в этой последовательности вообще чётных чисел не может быть. В общем поясните формулу во второй задаче.
№01

Код


var
   i: integer;
   sum: integer;
begin
   for i := 100 to 999 do
      if (i mod 7) = 0 then
         sum := sum + i;

   writeln(sum);
end.

№02 (вывод только последовательности из того что понял)

Код


var
   n: integer;
begin
   for n := 1 to 10 do
      write(n*2 - 1, ' ');
end.

--------------------

Я знаю, что ничего не знаю© Сократ
user posted image

Silent

Дата 21.1.2013, 09:37 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 252
Регистрация: 3.10.2006

Репутация: 6
Всего: 9

Задачу №1 лучше сделать через while:

Код


var i, sum:integer;
begin
  i:=105; //первое трехзначное число, делящееся на 7
  //однако, чтобы не было "хардкода", лучше сделать следующим образом:
  //i:=(100 div 7 + integer(100 mod 7 <> 0))*7;  //вычисляем первое трехзначное число, делящееся на 7
  while (i <= 999) do begin
    inc(sum, i);
    inc(i, 7);
  end;
  writeln('Сумма трехзначных чисел, кратных 7: ', sum);
end.

Задача №2 - вероятнее всего автор имел ввиду возведение в квадрат, и в такой последовательности возможны четные числа. Остается еще неясным, с какого индекса начинается последовательность - предположим, что с 1. Тогда решение будет такое:

Код


var i, count, x:integer;
begin
  for i:=1 to 10 do begin
    x:=i*i-1;
    write(x,' ');
    if (x mod 2) = 0 then inc(count);
  end;
  writeln;
  writeln('Количество четных: ', count);
end.

Это сообщение отредактировал(а) Silent - 21.1.2013, 09:38

Rodman

Дата 21.1.2013, 10:36 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 26
Всего: 122

M
Rodman

Модератор: Название темы должно отражать ее суть!

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

Евгений94

Дата 28.3.2013, 18:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 28.3.2013

Репутация: нет
Всего: нет

помогите в паскале написать лабу))
Создать стек целого типа, с вариантом просмотра до первого заданного, Вариант поиска 1-го элемента, имеющего значение < заданного, Вариант удаления найденного элемента

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »