Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Решение задач. Срочно, срочно нужно (Люди помогите решить задачи,очень срочно надо, скоро сессия.)
Решение задач. Срочно, срочно нужно
1.Написать программу, выводящую на экран значений трех переменных вещественного типа с пятью цифрами целой части и тремя – дробной.

2. Составить программу для определения указанных ниже параметров треугольника. Выполнить программу для конкретных значений аргументов. Результаты выполнения программ проверить по соответствующему чертежу. 1)Заданы длины трех сторон треугольника. Найти биссектрисы.

3.В следующей задаче требуется написать программу, использующую одномерный массив элементов соответствующего типа:
1) Дана последовательность из n вещественных чисел. Упорядочить последовательность по убыванию

4. Выполнить задание в соответствии с вариантом:
1)Дана действительная матрица размера n * 9. Найти среднее арифметическое элементов каждого столбца.

5.Составить программу, используя указанные в скобках вспомогательные алгоритмы (вспомогательные алгоритмы оформить в виде процедур).
1)Найти первые десять простых чисел (остаток от деления простых целых).

6.Составить программу, используя указанные в скобках вспомогательные алгоритмы (вспомогательные алгоритмы оформить в виде функций). 1)Садовник в первый день посадил 2 розы, во второй день — 4 розы. В каждый следующий день количество посаженных роз должно быть равно сумме посаженных роз за два предыдущих дня минус 2 розы. Сколько роз должен посадить садовник на 13 день?

7. Выполнить задание с использованием рекурсивных процедур или функций
1)Садовник в первый день посадил 2 розы, во второй день — 4 розы. В каждый следующий день количество посаженных роз должно быть равно сумме посаженных роз за два предыдущих дня минус 2 розы. Сколько роз должен посадить садовник на 13 день?

8. Составить программу для выполнения указанного ниже задания.
1)Найти номер позиции первой цифры в строке.

9. Составить программу с использованием записей для выполнения указанного ниже задания.
1)Задано время начала и конца телевизионной передачи. Определить продолжительность передачи в секундах.

10. Сформировать три множества X1, X2, X3, содержащие целые числа из диапазона 1…100. Мощность каждого множества равна 5. Значения элементов исходных множеств ввести с клавиатуры. Выполнить следующее задание:
1)Сформировать новое множество Y=(X1ÇX3)È(X1ÇX2)\(X1ÇX3), из которого выделить подмножество чисел, большее 5. Определить мощность полученного множества и вывести его на экран.

1 | Автор: irusik | 2010-10-10, 14:25 | Изменено: irusik - Вс, 2010-10-10, 14:26   |  Репутация: [ + 0 ]
маловато задачек, если б хотя бы штук 40 было, тогда помогли б :))
2 | Автор: admin | 2010-10-10, 14:44   |  Репутация: [ + 21 ]
Вам смешно. а мне не очень. Сложновато это для меня, что смогла сама решить, то и решила, а это не получается
3 | Автор: irusik | 2010-10-10, 14:54   |  Репутация: [ + 0 ]
3 | Автор: irusik | 2010-10-10, 14:54   |  Репутация: [ + 0 ]
1. R:m:n, где R – действительное число, m – общее количество позиций, отводимых числа, n – количество позиций, отводимых для дробной части.

т.е. в твоём случае: writeln (R:8:3), где R - переменная вещественного типа.

3. http://www.vzmakh.ru/info/pascal/modules/page14.html - алгоритмы сортировки, лично я привык к методу пузырька.

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

4 | Автор: Fireleo | 2010-10-11, 03:23   |  Репутация: [ + 30 ]
Quote (Fireleo)
алгоритмы сортировки

посмотрите на нашем сайте - у нас тут целая коллекция сортировок, может вам пригодится.
5 | Автор: admin | 2010-10-11, 09:01   |  Репутация: [ + 21 ]
Відповідь на задачу №2
uses crt;
var a,b,c,
bisektr_a,
bisektr_b,
bisektr_c:real;
begin
clrscr;
writeln('введіть довжини сторін а в с трикутника через пробіл');
writeln('при цьому повинна виконуватися умова:');
writeln('сума двох сторін трикутника більше третьої');
readln(a,b,c);
if (a>0)and(b>0)and(c>0) then
if (a+b>c)and(a+c>b)and(b+c>a) then
begin
bisektr_c:=sqrt(a*b*(a+b+c)*(a+b-c))/(a+b);
bisektr_b:=sqrt(a*c*(a+b+c)*(a+c-b))/(a+c);
bisektr_a:=sqrt(b*c*(a+b+c)*(b+c-a))/(b+c);
writeln('bisektr_a=',bisektr_a:5:2);
writeln('bisektr_b=',bisektr_b:5:2);
writeln('bisektr_c=',bisektr_c:5:2);
end
else
writeln('такого трикутника не існує')
else
writeln('такого трикутника не існує');
readln;
end.

Добавлено (15.10.10, 10:50)
---------------------------------------------
Задача №3 сортування методом вставки
uses crt;
const N=10;
A:array[1..N] of real=
(2, 3, -20.1, 40, 0,
-89, 13.4, 5, 8.3, 14);
var X:array[1..N] of real;
i,j,k:byte;
zm:real;
begin
clrscr;
for i:=1 to N do
begin
X[i]:=A[i];
if i mod 5<>0 then
write(X[i]:7:2,' ')
else
writeln(X[i]:7:2)
end;
{--------------------------------------------}
for i:=2 to N do
begin
zm:=X[i];
j:=1;
while (zm<X[j]) do j:=j+1;
for k:=i-1 downto j do X[k+1]:=X[k];
X[j]:=zm;
end;
{--------------------------------------------}
writeln;
for i:=1 to N do
if i mod 5<>0 then
write(X[i]:7:2,' ')
else
writeln(X[i]:7:2);
repeat until keypressed
end.

Добавлено (15.10.10, 19:47)
---------------------------------------------
Відповідь до задачі 5
Пошук простих чисел від 1 до 10

Code
uses crt;
var i,j,c: byte;
procedure ab(a,b:byte; var cp:byte);
  begin
   cp:=a mod b;
  end;
begin
   clrscr;
   for i:=1 to 10 do
       begin
        j:=2;
        ab(i,j,c);
         while (c <> 0) and (j <= 10) do
              j:=j+1;
               if (j > i) then write( i,' ' );
       end;
   readln;
end.
6 | Автор: vvv123321 | 2010-10-15, 19:47   |  Репутация: [ + 0 ]
Люди добрые помогbте решить задачу: В ПК вводятся по очереди n точек. Определить, сколько из них попадает в круг радиусом R с центром в точке (0, 0).
7 | Автор: manzig | 2011-12-11, 05:43   |  Репутация: [ + 0 ]
7 | Автор: manzig | 2011-12-11, 05:43   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Решение задач. Срочно, срочно нужно (Люди помогите решить задачи,очень срочно надо, скоро сессия.)
Страница 1 из 11
Поиск: