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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 17.11.2009, 18:18   #1
Gigatrest
Пользователь
 
Регистрация: 21.01.2009
Сообщений: 28
По умолчанию 3 задания необходимо реализовать на Паскале

№1. Записать в Паскале выражение: точка с координатами (х; y) лежит внутри квадрата с центром в начале координат и стороной равной а.

№2. Описать алгоритм следущей задачи: Вычислить количество положительных чисел в последовательности из N чисел.

№3. Написать программу на Паскале: Дана последовательность символов, последний из которых "точка". Найти порядковый номер первого символа отличного от буквы А. Если отличных от символа А символов нет напечатать 0 /ноль/.
Gigatrest вне форума Ответить с цитированием
Старый 17.11.2009, 18:24   #2
diliana
Форумчанин
 
Аватар для diliana
 
Регистрация: 24.05.2009
Сообщений: 119
По умолчанию

Если вам эти 3 задания необходимо реализовать, то почему же вы их не реализовываете?
diliana вне форума Ответить с цитированием
Старый 17.11.2009, 20:00   #3
kcю
 
Регистрация: 05.11.2009
Сообщений: 9
По умолчанию №1. Записать в Паскале выражение: точка с координатами (х; y) лежит внутри квадрата с центром в начале ко

(abs(x)<=a) and (abs(y)<a) вроде так

Последний раз редактировалось kcю; 17.11.2009 в 20:37. Причина: ошиблась)))
kcю вне форума Ответить с цитированием
Старый 17.11.2009, 20:08   #4
kcю
 
Регистрация: 05.11.2009
Сообщений: 9
По умолчанию №2. Описать алгоритм следущей задачи: Вычислить количество положительных чисел в последовательности из N

program massiv;
const n=10;
var a,b:array[1..n] of integer;
k,i:integer;
BEGIN
for i:=1 to n do begin
writeln('Введите элементы массива');
readln(a[i]);
end;
k:=1;
for i:=1 to n do
if a[i]>0 then begin b[k]:=a[i];
k:=k+1;
end;
for i:=1 to n do
writeln('b[',i,']=',b);
readln;
END.
kcю вне форума Ответить с цитированием
Старый 17.11.2009, 20:27   #5
LeBron
Форумчанин
 
Регистрация: 10.10.2009
Сообщений: 680
По умолчанию

Цитата:
Сообщение от kcю Посмотреть сообщение
(abs(x)<=a) or (abs(y)<a) вроде так
Не так. Для "внутри" должны выполняться оба условия.
З.Ы. И сравнивать надо даже не с а.
LeBron вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Необходимо реализовать небольшую программку с распорядком дня Bobick Помощь студентам 21 14.05.2011 15:14
2 задания на паскале(сумма ряда, помогите найти ошибку) Niko Uoki Помощь студентам 3 07.06.2009 17:39
Необходимо реализовать FTP сервис Vladcaldera Фриланс 1 24.04.2009 15:07
Помогите g; реализовать в Паскале CeKaC Паскаль, Turbo Pascal, PascalABC.NET 0 18.04.2009 21:41
необходимо решить задания Жека2110 Фриланс 2 10.02.2008 20:18