Решение задач в Delphi 7

[Надежда_ИСУ]

Доброго времени суток, дорогие форумчане!!!

Возникла проблема с решением задач на delphi!
А в понедельник уже экзамен, а это и есть допуск к экзамену!
Очень прошу помочь в данной ситуации...
Вот собственно и задачи:

1. Оператор выбора (Case).
   Дано целое число K. Вывести строку-описание оценки,соответствующий числу K (1-плохо,2-неудовлетворительно,3-удовлетворительно,4-хорошо,5-отлично).Если K не лежит в диапазоне 1-5, то вывести строку "Ошибка".
   
2. Цикл с параметром (For).
   Даны два целых числа A и B(A< B).Вывести в порядке возрастания все целые числа,расположенные между A и B (включая сами числа A и B), а также количество N этих чисел.
   
3. Цикл с параметром (For).
   Дано вещественное число X (|X|<1) и целое число N(>0). Найти значение выражения
   x+1*x(3 степень)/(2*3)+1*3*x(5 степень)/(2*4*5)+...+
   1*3...(2*N-1)*x(2*n+1 степень))/(2*4...(2*N)*(2*N+1)).
   Полученное число является приближенным значению функции arcsin в точке X.
   
4. Цикл с условием (WHILE).
   Даны положительные числа A и B (A> B). На отрезке длины A размещено максимально возможное кол-во отрезков длины B(без наложений).Не используя операций умножения и деления, найти кол-во отрезков B, размещёных на отрезке A.
   
5. Цикл с постусловием (Repeat/Do-WHILE).
   Дано целое число N(>1). Если оно является простым, т.е. не имеет положительных делителей, кроме 1 и само на себя, то вывести TRUE, иначе вывести FALSE.
   
6. Одномерный массив (Array).
   Дано целое число N(>0). Сформировать и вывести целочисленный массив размера N, содержащий степени двойки от первой до N-й :2,4,8,16,...
   
7. Последовательности (Series).
   Даны десять вещественных чисел.Найти их произведение.

Заранее, большое СПАСИБО!!!

[Человек_Борща]

Скорее полное отсутствие знаний по Delphi ибо прогуляла семестр.
Вам или в "помощь студентов" или в раздел "фриланс".

В последнем больше шансов получить решение всех задач.

Задачи элементарные,с книгой в руках можно самому за 2-е суток порешать.

[Надежда_ИСУ]

Сообщение от Человек_Борща

Скорее полное отсутствие знаний по Delphi ибо прогуляла семестр.
Вам или в "помощь студентов" или в раздел "фриланс".

В последнем больше шансов получить решение всех задач.

Задачи элементарные,с книгой в руках можно самому за 2-е суток порешать.

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

[Sciv]

1.

var k: integer;
    s: string;
begin
  ReadLn(k);
  Case k of
    1: s:='Плохо';
    2: s:='Неудовлетворительно';
    3: s:='Удовлетворительно';
    4: s:='Хорошо';
    5: s:='Отлично';
  else s:='Ошибка!';
  end;
  WriteLn(s);
end.

[Serge_Bliznykov]

по первому вопросу (задачей его назвать язык не поворачивается)
см. case
там же и примеры использования.

там же (в том же справочнике смотрите и описания операторов цикла FOR, WHILE) и т.д.

я не верю, что Вы такая прилежная и усидчивая, а такие ПРОСТЕЙШИЕ задачи сделать не можете..
Тогда, хотя бы приведите попытки - как Вы пытались написать код...


Sciv, ну и правильно, надо за неё всё написать, зачем девушке лишним мусором (типа Паскаля\Delphi) голову забивать...

[Sciv]

2.

var A,B,i,N: integer;
begin
  ReadLn(A,B);
  N:=B-A+1;
  for i:=A to B do WriteLn(i);
  WriteLn(N);
end.

[Надежда_ИСУ]

Сообщение от Sciv

1.

var k: integer;
    s: string;
begin
  ReadLn(k);
  Case k of
    1: s:='Плохо';
    2: s:='Неудовлетворительно';
    3: s:='Удовлетворительно';
    4: s:='Хорошо';
    5: s:='Отлично';
  else s:='Ошибка!';
  end;
  WriteLn(s);
end.

Спасибо,сейчас буду разбираться что к чему!

[Надежда_ИСУ]

Сообщение от Serge_Bliznykov

по первому вопросу (задачей его назвать язык не поворачивается)
см. case
там же и примеры использования.

там же (в том же справочнике смотрите и описания операторов цикла FOR, WHILE) и т.д.

я не верю, что Вы такая прилежная и усидчивая, а такие ПРОСТЕЙШИЕ задачи сделать не можете..
Тогда, хотя бы приведите попытки - как Вы пытались написать код...


Sciv, ну и правильно, надо за неё всё написать, зачем девушке лишним мусором (типа Паскаля\Delphi) голову забивать...

В компьютер пересяду скину, если что-то осталось!

[Sciv]

Sciv, ну и правильно, надо за неё всё написать, зачем девушке лишним мусором (типа Паскаля\Delphi) голову забивать...

Ну зачем так, Серж. Я ей два примера сделал, пускай разбирается. Остальные и не собирался - они все-равно похожи...

P.S. Меня тут конкретно жена удивила, когда из-за плеча начала подсказывать, как мне базу данных декомпозировать... А удивила тем, что правильно подсказала И когда только научиться успела...

[Надежда_ИСУ]

Сообщение от Sciv

Ну зачем так, Серж. Я ей два примера сделал, пускай разбирается. Остальные и не собирался - они все-равно похожи...

P.S. Меня тут конкретно жена удивила, когда из-за плеча начала подсказывать, как мне базу данных декомпозировать... А удивила тем, что правильно подсказала И когда только научиться успела...

Это по тому что первым программистом была женщина, но мне до неё далеко!Если бы я знала как их делать то и не просила помочь!А тут всё печально...