Помощь с турбо-Паскалем.
 

Помогите пожалуйста с ришением этих задач!!!Очень прошу,т.к. время поджимает!!!!

Задание :
Составить алгоритм решения(блок-схему с коментариями),программу на турбо паскаль и вывести результат вычисления на печать(на экран) для следующих задач:
1.Составить программ с циклом со счетчиком для вычисления суммы N членов ряда a+(a+b)+((a+b)+b)+(((a+b)+b)+b)+... .(где a=8,b=3,N=80)
2.Составить программ с циклом с постусловием для вычисления суммы N членов ряда a+(a+b)+((a+b)+b)+(((a+b)+b)+b)+... .(где a=8,b=3,N=80)
3.Составить программ с циклом с предусловием для вычисления суммы N членов ряда a+(a+b)+((a+b)+b)+(((a+b)+b)+b)+... .(где a=8,b=3,N=80)
4.Используя финкцию (function) найти наименьшее из N чисел a,b,c,d,введенных с клавиатуры. (a=12,b=7,c=8,d=-,N=3)
5.Используя финкцию (function) найти наибольшее из N чисел a,b,c,d,введенных с клавиатуры.
(a=12,b=7,c=8,d=-,N=3)
6.Подсчитать количество символов A символьной строке b(/.,/.,?.,;;::';;'!!!!,,), введенной с клавиатуры.(!-посчитывать)
7.Используя модуль Graph,нарисовать геометрическую фигуру Z цета A на фоне B. (A-серый,B-ораньжевый,Z-прямоугольник).
8.Определить является ли число n,введенное с клавиатуры, одновременно больше X и кратным Y.
9.
Вот задачка и потежелее:
Дано:
Спроектированная теплоэнергетическая система(обЪект)с неопределенным элементом (оборудованием). Оптимальные основные технические характеристики(расход,производительность,давление и т.п.) недостоющего элемента имеют значения:d1,d2,d3. Оптимальная основная специальная характеристика (вес,габариты,обЪем, расход специальных материалов и т.п.) недостающего элемента имеет значение:d4.Оптимальные оснавные экономические характеристики(стоимость,ремонтопригодность,гарант ийный срок эксплуатации и т.п.)недостающего элемента имеют значения:d5,d6.
Определить: Оптимальный вариант(тип) недостающего элемента:A,B или C.Если они емеют значения оснавных технических характеристик соответственно:
a1,b1,c1>=d; a2,b2,c2>=d2; a3,b3,c3>=d3.
При этом:
X1*a1=Y1*b1=Z1*c1; X2*a2=Y2*b2=Z2*c2; X3*a3=Y3*b3=Z3*c3.
X4*a4=Y4*b4=Z4*c4=d4; X5*a5=Y5*b5=Z5*c5=d5; X6*a6=Y6*b6=Z6*c6=d6.
(x1=1,3 Y1=1,2 Z1=1,1 X2=0,7 Y2=0,8 Z2=1,2 X3=1,1 Y3=1 Z3=1
X4=0,8 Y4=1,2 Z4=1,1 X5=1 Y5=1 Z5=1,3 X6=1,2 Y6=1,1 Z6=0,7)
Составить:Алгоритм выбора оптимального варианта, блок-схему и программу на Турбо Паскале.
*Для упрощения решения задачи можно составить квазикритериальное уравнение.

Вы просите помочь с решением, а подразумеваете то, что мы их сами решим и выложим вам готовенькими. Нет, так дело не пойдет. Попробуйте сами решить, выложите свои наброски, задайте вопросы по тому, чего не понимаете, а мы уже исправим, подскажем, ответим. Помощь заключается именно в этом, а не в предоставлении готовых решений

гы гы, знакомы условия вверху, правда у нас в РБ в БНТУ точь точь кроме последней, ща решаю другу, 7 сделал, остались 2 задачи почти как у него с функциями и одна типа Определить является ли число n,введенное с клавиатуры, одновременно больше X и кратным Y.
Кстати, вопрос, у меня нужно(ну у друга, я ему делаю))) корочь в ГРАФ нарисовать ромб,я нарисовал перевернув 2 треугольника во ФРИ паскале, цвет линии получился а вот залифка нефига, не понимаю почему вродь многое перепробовал, может подскажешь простую какую нить команду. чтоб наверняка закрашивала., потому что везде одно и то жже пишут, но чёт не закрашивается, миожет версия проги не та у мя????

ща напишу


Program ....;
uses Graph;
var Gd, Gm: Integer;
begin
Gd:=Detect;
InitGraph (Gd,Gm,'');
setbkcolor (14);
Setcolor (7);

line (120,210,320,10);
line (320,10,520,210);
line (120,210,320,410);
line (520,210,320,410);

Readln;
end.

Типа нарисовать ромб серого цвета на оранжевом фоне, кста понимаю малёк кривоват он. но оно то запускается, цвет меняет ромба тока линий, а фона нет.

Всё я всё решил другу, кроме закраски фона. даже и функции и кратное и тд и тп., честно оказывается ваще легко, просто немного почитать нужно было.

floodfill(x,y,c) - заливает замкнутую область указанным цветом.

После команды setbkcolor(c) вставьте команду очистки экрана clearviewport

Спс, ща проверю)))

Привет, заливка срабатывает, но чёт не так как надо, не получается у мя, то что вверху я написал можешь подкорректировать, а то у мя не совсем как-то
ромб серого цвета на оранжевом фоне, просто оно как то заливает, ромб пропадает, млин, не знаю, мож помочь подкаректируй, то что верху написаля, плиз, буду очень благодарен, ещё такой вопрос не подскажешь в функции .Используя финкцию (function) найти наименьшее из N чисел ... наибольшеее... как проще это сделать, МаксЛинг там чё-то замудрено и то ж как то с ошибками выдаёт, если не хош чтоб видел неуч сверху, напиши на мыло Bylba@bk.ru

Для заливки возьмите координаты 220,130, цвет заливки должен совпадать с цветом линий

14 - это желтый, а не оранжевый цвет
7 - светлосерый, возьмите лучше 8

Кста, с функциями справился, ща попробую параметры твои что ты посоветовал, а и ещё вот в заданиях то что у чувака ------------------> 1.Составить программ с циклом со счетчиком для вычисления суммы N членов ряда a+(a+b)+((a+b)+b)+(((a+b)+b)+b)+... .(где a=8,b=3,N=80)
2.Составить программ с циклом с постусловием для вычисления суммы N членов ряда a+(a+b)+((a+b)+b)+(((a+b)+b)+b)+... .(где a=8,b=3,N=80)
3.Составить программ с циклом с предусловием для вычисления суммы N членов ряда a+(a+b)+((a+b)+b)+(((a+b)+b)+b)+... .(где a=8,b=3,N=80)
корочь у мя они сделаны, тока вопрос, там везде в каждом задании одинаковые значения но циклы разные, у меня в каждом получается одинаковый ответ. разные циклы - ответ тотже, - это правильно???