Главная » Статьи » Задачи по программированию
В категории материалов: 25
Показано материалов: 11-20		 Страницы: « 1 2 3 »
Сортировать по: Дате · Названию · Рейтингу · Комментариям · Просмотрам
Треугольник

Составим логическую функцию для решения этой задачи. Будем опираться на известное положение: из трех отрезков можно построить треугольник тогда и только тогда, когда сумма длин любых двух отрезков превосходит длину третьего

Код
Function TREYG (a,b,c:integer):boolean;  
Begin  
TREYG:=(a+b>c) and  
  (a+c>b) and  
  (c+b>a)  
End;

Задачи по программированию | Просмотров: 721 | Добавил: shypuk | Дата: 06.10.2013 | Комментарии (0)

Размещения и сочетания [Pascal]
Число размещений без повторений  и число сочетаний повторений подсчитывается по таким формулам: 

Применяя функцию вычисления факториала (см. задачу I), мы могли бы записать подсчет числа размещений или сочетаний при помощи одного оператора присваивания:

A:=f(n) div f(n-r) или C:=f(n) div (f(r)*f(n - r)),

Задачи по программированию | Просмотров: 2591 | Добавил: shypuk | Дата: 02.10.2013 | Комментарии (0)

Числа Фибоначчи [Pascal]
В 1202 г. итальянский математик Леонард Пизанский, известный под именем Фибоначчи, предложил такую задачу: Пара кроликов каждый месяц дает приплод — двух кроликов (самца и самку), от которых через два месяца уже получается новый приплод. Сколько кроликов будет через год, если в начале года мы имели одну пару молодых кроликов?
1,2,3,5,8,13,21,34...
Каждый из членов этой последовательности, начиная с третьего, равен сумме двух предыдущих членов. Эта последовательность называется рядом Фибоначчи, а ее члены — числами Фибоначчи. Числа Фибоначчи имеют много интересных свойств. С ними, например, связано так называемое Золотое сечение.
Задачи по программированию | Просмотров: 6822 | Добавил: shypuk | Дата: 29.09.2013 | Комментарии (0)

Факториал [Pascal]
Факториалом числа n называется произведение чисел от 1 до n включительно:
n!=1*2*3...n
Кроме того, принимается, что 0! = 1.
Факториал определяется еще и таким образом:


Задачи по программированию | Просмотров: 3541 | Добавил: shypuk | Дата: 29.09.2013 | Комментарии (0)

Cтpyктypнoe программирование [Pascal]
Напишите программу для расчета по двум формулам (результаты
вычисления по обеим формулам должны совпадать).

Формулы:

Задачи по программированию | Просмотров: 665 | Добавил: shypuk | Дата: 25.09.2013 | Комментарии (0)

Поиск файлов в папке [Pascal]
Здравствуйте, в этой статье я приведу пример поиска файлов в папке. Программа будет реализована в консольном режиме.

____________________________________________________

 var
  searchResult : TSearchRec;
  begin
   If FindFirst( 'Имя файла.txt', faAnyFile, searchResult) = 0 then
    begin
     repeat
      Writeln('File =' + searchResult.Name);
     Writeln('Razmer = '+IntToStr(searchResult.Size));
    until FindNext(searchResult) <> 0;
  FindClose(searchResult);
 end;
  Readln;
end.
Задачи по программированию | Просмотров: 2501 | Добавил: shypuk | Дата: 09.09.2013 | Комментарии (0)

Перевернуть слово [Pascal]
Хочу показать пример прогаммы, которая переворачивает слово.
Привет превращается в тевирП
______________________________________________________________

var
ss1,s0,s,s1,s2,ss,sss:string;
p,k,i:integer;
 begin
  p:=0;
   ss:='';
  sss:='';
Задачи по программированию | Просмотров: 4722 | Добавил: shypuk | Дата: 18.03.2013 | Комментарии (0)

Вывести из массива числа в порядке убывания [Pascal]
В этой статье я приведу пример программы которая выводит из массива ряд чисел в порядке убывания. 

КОД:

const n=10;
var

i,k,Imax,j,iimax:integer;
 mas:array [1..n] of integer;
 begin
i:=1;
j:=0;
  for I:=1 to n do begin
   mas[i]:=Random(100);
   Write(mas[i],' ');
   end;
Задачи по программированию | Просмотров: 4961 | Добавил: shypuk | Дата: 08.03.2013 | Комментарии (0)

Посчитать количество четных цифр в числе [Pascal]
Очень простая задачка. Дано натуральное число N необходимо посчитать количество четных цифр в числе.

Var
   S:String;
   N,I:Integer;

Begin
     Write('Enter S:');
     Readln(S);
     N:=0;
     For I:=1 To Length(S) Do

Задачи по программированию | Просмотров: 3072 | Добавил: shypuk | Дата: 01.03.2013 | Комментарии (0)

Поменять значения переменных A и B между собой [Pascal]
Поменять значения переменных A и B между собой, не заводя дополнительных переменных.
Первая мысль, приходящая в голову, это написать программу, похожую на эту:
A : = B;
B := A;
Естественно, это программа работать не будет (в обеих переменных будет значение B).
Теперь поищем правильное решение. Обозначим начальное значение A за A1, B за B1. Тогда необходимо, чтобы по окончании работы программы A равнялось B1, а B - A1.
Задачи по программированию | Просмотров: 3280 | Добавил: shypuk | Дата: 28.02.2013 | Комментарии (0)

1-10 11-20 21-25