Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.04.2009, 14:47   #1
pavel42
Пользователь
 
Регистрация: 06.04.2009
Сообщений: 95
По умолчанию первые задачи по турбо паскаль

Вот только начал изучать в вузе турбо паскаль и для начала дали дакие две задачи, а я пока ничего не понимаю, помогите решить если не сложно две задачки:
1) Найти сумму нечетных элементов до первого положительного и количество отрицательных элементов после него.
2) Найти количество элементов кратных заданному числу и попавших в интревал [a,b]
pavel42 вне форума Ответить с цитированием
Старый 06.04.2009, 14:49   #2
IT-man
АльTRUEи$т
Форумчанин
 
Аватар для IT-man
 
Регистрация: 19.03.2009
Сообщений: 784
По умолчанию

попытки есть?
Цитата:
«Никто не войдет в Рай, имея хотя бы крупицу гордыни в своем сердце». «Аллах Красив и любит красоту. Гордыня означает отказ от истины и высокомерие»
IT-man вне форума Ответить с цитированием
Старый 06.04.2009, 14:52   #3
pavel42
Пользователь
 
Регистрация: 06.04.2009
Сообщений: 95
По умолчанию

да смотрел похожие, пытался что то переделать из похожит что то не вышло. вот что то как я понял похожее на вторую задачу


Код:
Program Pascal;
Uses crt;
Var i,j:integer;
    s:longint;
begin
  clrscr;
  s:=1;
  writeln('—Ёб«* Єа*в*лҐ 11 ў Ё*вҐаў*«Ґ ®в 12 ¤® 100:');
  for i:=12 to 100 do begin
    if i mod 11=0 then begin
      writeln(i);
      s:=s*i;
    end
  end;
  writeln('Џа®Ё§ўҐ¤Ґ*ЁҐ нвЁе зЁбҐ«: ',s);
  write('Ќ*¦¬ЁвҐ Enter');
  readln;
end.


там условие было такое: Найти числа кратные 11 в интервале от 12 до 100 и их произведение.

Последний раз редактировалось Stilet; 06.04.2009 в 15:41.
pavel42 вне форума Ответить с цитированием
Старый 06.04.2009, 15:02   #4
IT-man
АльTRUEи$т
Форумчанин
 
Аватар для IT-man
 
Регистрация: 19.03.2009
Сообщений: 784
По умолчанию

2
Код:
for i:=1 to n do
if (m[i]<=b) and (m[i]>=a) and (m[i] mod d=0) then inc(k);
writeln(k);
вот вам центральная часть. Ввод и вывод последовательности организуйте сами!и опишите переменные!
Цитата:
«Никто не войдет в Рай, имея хотя бы крупицу гордыни в своем сердце». «Аллах Красив и любит красоту. Гордыня означает отказ от истины и высокомерие»

Последний раз редактировалось IT-man; 06.04.2009 в 15:09.
IT-man вне форума Ответить с цитированием
Старый 06.04.2009, 15:04   #5
pavel42
Пользователь
 
Регистрация: 06.04.2009
Сообщений: 95
По умолчанию

спс ) сейчас попробуем

Error 121: Invalid qualifier. скажите что за ошибка

Последний раз редактировалось Stilet; 06.04.2009 в 15:41.
pavel42 вне форума Ответить с цитированием
Старый 06.04.2009, 15:41   #6
__STDC__
Участник клуба
 
Аватар для __STDC__
 
Регистрация: 16.03.2009
Сообщений: 1,013
По умолчанию

возможно пытаешься производить операции с массивом с элементом который массивом не является.. код в студию
Uguu~
__STDC__ вне форума Ответить с цитированием
Старый 06.04.2009, 15:41   #7
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

На какой строке вылезает ошибка?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 06.04.2009, 15:45   #8
Veselyn
Форумчанин
 
Аватар для Veselyn
 
Регистрация: 29.01.2009
Сообщений: 175
По умолчанию

Неверный квалификатор
Возможные причины:
-Вы попытались индексировать переменную, которая не является массивом;
-Вы попытались указать поля в переменнойб которая не является записью;
-Вы используете в качестве указатиля переменную, которая не является указателем.
Все люди делятся на 10 типов: те, кто понимают двоичную систему счисления и те, кто нет.
Veselyn вне форума Ответить с цитированием
Старый 06.04.2009, 15:45   #9
pavel42
Пользователь
 
Регистрация: 06.04.2009
Сообщений: 95
По умолчанию

if (m[i]<=b) and (m[i]>=a) and (m[i] mod d=0) then inc(k);
^
Вот тут )
pavel42 вне форума Ответить с цитированием
Старый 06.04.2009, 15:46   #10
__STDC__
Участник клуба
 
Аватар для __STDC__
 
Регистрация: 16.03.2009
Сообщений: 1,013
По умолчанию

переменная m у тебя как объявлена?
Uguu~
__STDC__ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Пожалуйста,помогите составить программу задачи на языке Турбо Паскаль-задача на функцию Jan Помощь студентам 1 07.01.2009 19:39
Турбо паскаль Gabi Помощь студентам 2 24.12.2008 22:18
Помогите решить 3 задачи на языке Турбо-Паскаль rpg Помощь студентам 3 23.11.2007 20:13
Турбо Паскаль Jondeer Помощь студентам 3 28.10.2007 12:42