Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 09.12.2007, 15:55   #1
novol
 
Регистрация: 09.12.2007
Сообщений: 7
По умолчанию Програмные коды

помогите составить програмные коды для восьми задач.

1)Заданы координаты 2 точек составить прграму определяющую длина отрезка содиняющей эти точки.

2)Написать программу решение квадратного уравнения программа должна проверять правильность исходных данных и в случае когда коэфицент при второй степни неизвестного равен нулю выводить соответствующее значение.

3)Дано натуральное число N<101 определяющее возвраст человек в годах. Дать для этого числа подпись год, года, или лет. Например 1 год, 23 года, 45 лет и тп.

4)Задано натуральное N. Составить программу определяющую сумму первых N слагаемых:
1/7+1/10+1/13+1/16+.........

5)Составить прграмму которая проверяет является ли целое число введеное пользователем простым.

6)Составить программу с помощью которй найдите все пифагоровы числа A, B,C, т.е. такиеA,B,C, =целые, что A<=20,B<=20 И A в квадрате + B в квадрате=С в квадрате

7) Задан номер месяца сотсавте программу с помощью которй определите название месяца по его номеру.

8)Дан массив из 50 целых натуральных чисел составте программу с помощью которой определите сколько элементов массива совпадают с последним элементом массива.
novol вне форума
Старый 09.12.2007, 16:05   #2
kommunist
C# developer
Форумчанин
 
Аватар для kommunist
 
Регистрация: 03.10.2007
Сообщений: 393
По умолчанию

3) задача
Код:
program godi;
var
     n:integer;;
begin
   writeln('vvedite god:');
   readln(n);
   case n of
1,21,31,41,51,61,71,81,91: writeln('год);
2,3,4: writeln('года');
..............................
 и так по анологии
..........................
I like WPF
kommunist вне форума
Старый 09.12.2007, 16:28   #3
novol
 
Регистрация: 09.12.2007
Сообщений: 7
По умолчанию

спасибо коммунист
novol вне форума
Старый 09.12.2007, 16:30   #4
Alex21
With best regards
Участник клуба
 
Регистрация: 20.04.2007
Сообщений: 1,448
По умолчанию -=3=-

Код:
const t=10;
var a,b:Integer;
   k:1..101;
begin
Readln(k);
  if (k>=5) and (k<=19) then Writeln(k,' лет);
  a:=k div t;
  b:=k-a*t;
  if (b>=5) and (b<=9) then Writeln(k,' лет);
  if b=0 then Write(k,' лет);
  if (b>=2) and (b<=4) then Writeln(k,' года);
  if b=1 then Write(k,' год);
 readln;
end.

Последний раз редактировалось Alex21; 09.12.2007 в 17:33.
Alex21 вне форума
Старый 09.12.2007, 16:47   #5
novol
 
Регистрация: 09.12.2007
Сообщений: 7
По умолчанию

спасибо алекс 21 а над остальными можешь поколдавать????
novol вне форума
Старый 09.12.2007, 16:54   #6
kommunist
C# developer
Форумчанин
 
Аватар для kommunist
 
Регистрация: 03.10.2007
Сообщений: 393
По умолчанию

Код:
program zadacha1;
uses crt;
var
  x1,x2,y1,y2:integer;
  rast:real;
begin
  clrscr;
  writeln('vvedite x1:');
  readln(x1);
  writeln('vvedite x2:');
  readln(x2);
   writeln('vvedite y1:');
  readln(y1);
 writeln('vvedite y2:');
  readln(y2);
 rast:= sqrt((x2 - x1) + ( y2 - y1));
 writeln('rast=',rast);
readln;
end.
I like WPF

Последний раз редактировалось kommunist; 09.12.2007 в 19:43.
kommunist вне форума
Старый 09.12.2007, 17:02   #7
kommunist
C# developer
Форумчанин
 
Аватар для kommunist
 
Регистрация: 03.10.2007
Сообщений: 393
По умолчанию

Код:
program zadacha7;
uses crt;
var
  n:integer;
begin
  clrscr;
  writeln('vvedite nomer mesyaca:');
  readln(n);
  case n of
  1:writeln('январь');
  2:writeln('февраль');
  3:writeln('март');
  4:writeln('апрель');
.................................
 и так далее до декабря затем
....................................
 writeln(' mesyac pod nomerom', ' ',n,);
 readln;
end.
I like WPF
kommunist вне форума
Старый 09.12.2007, 17:07   #8
kommunist
C# developer
Форумчанин
 
Аватар для kommunist
 
Регистрация: 03.10.2007
Сообщений: 393
По умолчанию

Код:
program massiv;
uses crt;
const n = 50;
type vector = array[1..n] of integer;
var
    a:vector;
    kol:integer;
    i:itneger;
    k:integer;
begin
  randomize;
  clrscr;
  for i:= 1 to n do
begin
  a[i] := random(10);
  write(a[i]:2,' ');
end;
  writeln;
  writeln;
  k:=a[50];
  for i:= 1 to n do
begin
  if a[i] = k
  then
  inc(kol);
end;
  writeln('kolichestvo sovpadeniy:',k);
  readln;
end.
5.Задача. Определить, является ли введенное число простым.
Алгоритм решения этой задачи будет следующий. При помощи операции mod проводим проверку всех целых чисел от 2 до введенного числа Number . Мы проверяем является ли очередное проверяемое число делителем нашего числа (значит, остаток от деления введенного числа на проверяемое число равен нулю). Если такой делитель найден, значит, цикл досрочно завершает свою работу на некотором i-том шаге. Если делитель не найден, значит цикл проверил все числа и значение переменной цикла i будет равно конечному значению, т.е. Number. Поэтому, после записи цикла следует анализ значения переменной i и выводится соответствующее сообщение.
Примечание. Напомним, что простым называется число, которое не имеет делителей кроме 1 и самого себя.
Цикл не может продолжаться бесконечно, так как любое число всегда делится само на себя.
Код:
Program Prostoe;
Uses
Crt;
Var
i, {возможный делитель}
Number : integer; {исследуемое число}
Begin
ClrScr;
writeln (‘Какое число должно быть проверено? ‘);
read (Number);
i := 1;
repeat
i := i+1;
until Number mod i = 0;
if Number=i
then
writeln (Number,’ является простым‘)
else
writeln (Number,’ делится на ‘,i);
readln;
End.
I like WPF

Последний раз редактировалось kommunist; 09.12.2007 в 17:20.
kommunist вне форума
Старый 09.12.2007, 18:06   #9
kommunist
C# developer
Форумчанин
 
Аватар для kommunist
 
Регистрация: 03.10.2007
Сообщений: 393
По умолчанию

Код:
program zadacha6;
uses crt;
 var
     n:char;
     a:real
     b:real;
     c:real;
begin
  clrscr;
  writeln('vvedite bukvi:')
  readln(n);
  case n of
  'a' , b : c:= sqrt(sqr(a) +sqr(b));
             writeln('c=',c);
  'b','c' : a:= sqrt(sqr(c) - sqr(b)); 
            writeln('a=',a);
  'c','a' : b := sqrt(sqr(c) - sqr(c));
            writeln('b=',b);
  readln;
end.
I like WPF
kommunist вне форума
Старый 09.12.2007, 18:15   #10
Tayfun
Форумчанин
 
Аватар для Tayfun
 
Регистрация: 24.06.2007
Сообщений: 351
По умолчанию

Цитата:
program zadacha1;
uses crt;
var
x1,x2,y1,y2:integer;
rast:integer;
begin
clrscr;
writeln('vvedite x1:');
readln(x1);
writeln('vvedite x2:');
readln(x2);
writeln('vvedite y1:');
readln(y1);
writeln('vvedite y2:');
readln(y2);
r:= sqrt((x2 - x1) + ( y2 - y1));
writeln('r=',r);
readln;
end.
Данный код не корректен, как миниму 2 ошибки:
1:
Цитата:
rast:integer;
В дальше используется r вместо rast и стоит тип переменной integer при вычислении квадратного корня... Надо заменить на:
Цитата:
r:real;
2:
Цитата:
r:= sqrt((x2 - x1) + ( y2 - y1));
Выше изложенная формула неверна. Длина отрезка находиться по формуле
Цитата:
r:=sqrt(sqr(x2 - x1) + sqr( y2 - y1));
Я не маюсь бездельем, я от него тащусь!

Последний раз редактировалось Tayfun; 09.12.2007 в 18:18.
Tayfun вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Коды клавиш valerij Microsoft Office Excel 0 20.08.2008 07:49
Коды символов SeregaIRK Общие вопросы Delphi 2 10.07.2008 19:33
Что такое коды ASCII и зачем они?? Ларик Помощь студентам 2 27.01.2008 19:41
Программы шутки коды и исходники Ярослав Свободное общение 25 09.12.2007 20:43
Коды клавиш KAMASUTR Gamedev - cоздание игр: Unity, OpenGL, DirectX 11 09.08.2007 22:25