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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 10.04.2012, 15:15   #1
qpJIaqpU
Пользователь
 
Регистрация: 05.02.2012
Сообщений: 14
Сообщение 3 программы Pascal

Вообщем задали в универе написать 3 программы на дом , суть их такова :
1.Составить функцию, которая переводит из 10-ой системы счилсния в 3-ую. ( Написать с использование функции или процедуры)
2.Составить фукцию, которая выводит составные числа в интервале от 1-до 30.( Написать с использование функции или процедуры)
3. И 3-ая задача на файлы.:Дан файл, содержащий сведения о книгах, сведения о каждой из книг - это фамилия автора, название и год издания.Организовать ввод и редактирование данных в файле.Определить:
-Название книги данного автора, издание и , год издания.
-Имееться ли книга с название ....


Заранее благодарю
qpJIaqpU вне форума Ответить с цитированием
Старый 10.04.2012, 16:49   #2
denisbrain
Форумчанин
 
Регистрация: 29.05.2011
Сообщений: 449
По умолчанию

Цитата:
Сообщение от qpJIaqpU Посмотреть сообщение
Вообщем задали в универе написать 3 программы на дом , суть их такова :
1.Составить функцию, которая переводит из 10-ой системы счилсния в 3-ую. ( Написать с использование функции или процедуры)
2.Составить фукцию, которая выводит составные числа в интервале от 1-до 30.( Написать с использование функции или процедуры)
3. И 3-ая задача на файлы.:Дан файл, содержащий сведения о книгах, сведения о каждой из книг - это фамилия автора, название и год издания.Организовать ввод и редактирование данных в файле.Определить:
-Название книги данного автора, издание и , год издания.
-Имееться ли книга с название ....


Заранее благодарю


1 задача
Код:
const
   stroka:string='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'; // список символов используемых в качестве чисел; максимальная строка 37 знаков
function FromDec(Value:integer;rdec:integer):string; // функция переводит Value:real в rdec - систему счисления
   var
     s:String;   { временная переменная}
     m:longint;  { временная переменная для целой части}
     n,l:real;  { временная переменная}
     r,i:integer;
begin
     n:=Value;
     r:=rdec;
     s:=''; { временная переменная  для вывода в строковом типе}
     m:=trunc(n);   { целая часть числа}
     repeat
        s:=stroka[(m mod r)+1]+s; { остаток от деления на rdec записываем  при 8 mod 3 = 8-(3*2)= 8-6=2}
        m:=m div r; { целочисленной деление  8 div 3 = trunc(8/3)=trunc(2.666666)=2}
     until m=0;    { продолжаем пока не 0}
     l:=frac(n); { получаем часть числа полсле запятой}
     result:=s;
end;

Цитата:

begin
Writeln(FromDec(10,3));

end.


3 я задача рублей 500
задания на pascal/delphi ICQ 368254335
Tel +79177425326 mail denis-naymov1985(at)mail.ru login skype denis.new.skype

Последний раз редактировалось denisbrain; 10.04.2012 в 19:27.
denisbrain вне форума Ответить с цитированием
Старый 10.04.2012, 18:27   #3
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,285
По умолчанию

2-я:
Код:
uses
  CRT;

var
  i: integer;

function notsimple(a: integer): boolean;
var
  j: integer;
begin
  j := 2;
  while (j <= a div j) do
  begin
    if a mod j = 0 then
    begin
      notsimple := true;
      exit;
    end;
    inc(j);
  end;
  notsimple := false;
end;

begin
  for i := 2 to 30 do
    if notsimple(i) then
      writeln(i);
  readln;
end.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Программы в Pascal, среда pascal ABC. Лабораторные работы Одинокая Волчица Фриланс 8 10.02.2012 20:09
4 Программы Pascal KARTER Помощь студентам 5 19.12.2010 17:18
программы на PASCAL tiftelya Помощь студентам 5 19.12.2010 11:41
Программы на Pascal TOMMY666 Паскаль, Turbo Pascal, PascalABC.NET 1 16.04.2010 11:30