Маленькие примеры по основам алгоритмизации Кто обладает откликнитесь

[DanMax]

Уважаемые пользователи если вы понимаете как решать примеры по основам алгоритмизации, то пожалуйста помогите с решением, всего 7 примеров, просто сам я дуб во всем этом и вообще не из этой области, Просто если понимаете помогите с решением. За правильно выполненное решение будет денежное вознаграждение (150 руб и после проверки учителем), также мне нужно будет выполнить другие работы, но это чуть позже.

Само решение должно быть примерно в таком виде (решал не я):
Обьявите переменные, необходимые для вычисления значения функции
D= d*y-s*m
Листинг:
var D:real; y,d,s,m:integer;
begin
{продолжение программы}
- вот это вроде все решение, не знаю правильно ли оно но само решение должно быть в таком виде

Заранее спасибо!

Примеры:

1. Обьявите переменные, необходимые для вычисления значения функции: A=(b+c)*b
2. Обьявите переменные необходимые для вычисления обьема полого цилиндра
3. Запишите инструкцию вычисления среднего арифметического переменных x1 и x2
4. Запишите арифметическое выражение на языке Паскаль: p= __a+b+c__
2
( a плюс b плюс c разделить на 2)
5. Написать программу: Вычисления периметра треугольника, заданного координатами своих вершин
6. Составьте программу вычисления функции f(x) вида:

f(x)=

Безымянный2.jpg

7. Написать программу: Даны три числа, написать программу, подсчитывающую количество равных нулю.

[Mandrivnyk]

1.

var A, b, c: real;
begin
{продолжение программы}

2.

var V, h, r: real;
begin
{продолжение программы}

3.

sr_ar := (x1 + x2) / 2.0;

4.

p := (a + b + c) / 2.0;

5.

Programm My_5;
    var
        x1, y1, x2, y2, x3, y3, p: real;

    begin
        ClrScr;
        WriteLn ('Введите координаты первой вершины треугольника: ');
        ReadLn (x1, y1);
        WriteLn ('Введите координаты второй вершины треугольника: ');
        ReadLn (x2, y2);
        WriteLn ('Введите координаты третьей вершины треугольника: ');
        ReadLn (x3, y3);
        p := sqrt((x2-x1)^2 + (y2-y1)^2) + sqrt((x3-x2)^2 + (y3-y2)^2) + sqrt((x1-x3)^2 + (y1-y3)^2);
        WriteLn ('Периметр треугольника равен ', p);
        ReadLn;
    end.

6.

function f(a, b, x: real): real;    
    begin
        if (a * x > 0) then f := 3 * x^2 + 2 * a * b
        else if (a * x = 0) then f := 4 * x^2 + 2 * a
        else f := 5 * a;
    end;

7.

Programm My_7;
    var
        a, b, c: real;
        count: integer;

    begin
        ClrScr;
        WriteLn ('Введите три числа: ');
        ReadLn (a, b, c);
        count := 0;
        if (a = 0) then count := count + 1;
        if (b = 0) then count := count + 1;
        if (c = 0) then count := count + 1;
        WriteLn ('Количество чисел, равных нулю -- ', count);
    end.

ЗЫ Пиастры сюда: R269634919062 -)

[DanMax]

Спасибо огромное после проверки, я вас обязательно отблагодарю, только вот я бы хотел узнать насчет 3 и 4 примера, чет мне кажется они слишком короткие получились, не не думайте я не придераюсь, просто я смотрел решения подобных примеров, щас напишу как там было написано, просто хочется уточнить:

Запишите в виде инструкции присваивания формулу вычисления площади треугольника S= 1/2 ah, где a-длина основания треугольника.

Листинг:
var S:real; a,h:integer;
begin
writeln('Введите длину(a) и высоту (h) основания треугольника.');
readln(a,h);
S:=1/2*a*h;
{продолжение программы}


Запишите арифметическое выражение на языке Паскаль

Безымянный.jpg

Листинг:
var P:real; a,b:integer;
begin
writeln('');
readln();
P:= (7*b+8*Sqr(a))/ (Abs(a)+Abs(b));
{продолжение программы}

[DanMax]

Спасибо огромное после проверки, я вас обязательно отблагодарю, только вот я бы хотел узнать насчет 3 и 4 примера, чет мне кажется они слишком короткие получились, не не думайте я не придераюсь, просто я смотрел решения подобных примеров, щас напишу как там было написано, просто хочется уточнить:

Запишите в виде инструкции присваивания формулу вычисления площади треугольника S= 1/2 ah, где a-длина основания треугольника.

Листинг:
var S:real; a,h:integer;
begin
writeln('Введите длину(a) и высоту (h) основания треугольника.');
readln(a,h);
S:=1/2*a*h;
{продолжение программы}


Запишите арифметическое выражение на языке Паскаль



Листинг:
var P:real; a,b:integer;
begin
writeln('');
readln();
P:= (7*b+8*Sqr(a))/ (Abs(a)+Abs(b));
{продолжение программы}

[Mandrivnyk]

3.

var sr_ar, x1, x2: real;
begin
    WriteLn ('Введите два числа: ');
    ReadLn (x1, x2)
    sr_ar := (x1 + x2) / 2.0;
    {продолжение программы}

4.

var p, a, b, c: real;
begin
    WriteLn ('Введите значения a, b, c: ');
    ReadLn (a, b, c);
    p := (a + b + c) / 2.0;
    {продолжение программы}

[DanMax]

Получается предыдущие примеры не правильны? или это такой способ решения?
И еще хотел узнать эти коды вы делали на какой программе?
Также хотел сказать, что мне еще нужны блок-схемы к 5 6 и 7 примерам, за них доплачу еще 50 рублей

[Mandrivnyk]

Получается предыдущие примеры не правильны? или это такой способ решения?

Там были просто операторы вычисления выражений. Они же и остались, просто к ним я добавил объявление переменных и ввод.

И еще хотел узнать эти коды вы делали на какой программе?

Обычное консольное приложение. Должно работать в любой среде для Паскаля.

Также хотел сказать, что мне еще нужны блок-схемы к 5 6 и 7 примерам, за них доплачу еще 50 рублей

Может, поговорим о предоплате?
А то запросы растут, время (сколько бы его ни было) я трачу, а отдачи не наблюдается -)

[DanMax]

***********

[DanMax]

Может, поговорим о предоплате?
А то запросы растут, время (сколько бы его ни было) я трачу, а отдачи не наблюдается -)

Ах, да извините, ваши старания стоят этого. На данный момент я имею на вебмани 50 руб, сразу вам их перекидываю

[DanMax]

Также хотел дополнить у меня на листке, где давали задания были написаны заглавия к каждому из них, наверное это и есть способы по которым они решаются мож где в примерах придется что то подправить?. Заранее извиняюсь если это так, просто я реально дуб во всем этом.
Вот пишу к каждому примеру какое заглавие было написано:

пример 1-2: Обьявление переменных и констант
пример 3-4: Оператор присваивания. Запись выражений.
пример 5: Линейные программы
пример 6-7: Условный оператор