Форум
» Назад на решение задач по физике и термеху
Регистрация | Профиль | Войти | Забытый пароль | Присутствующие | Справка | Поиск

» Добро пожаловать, Гость: Войти | Регистрация
    Форум
    Информационные технологии
        Решение задач на Pascal. Форум 2
Отметить все сообщения как прочитанные   [ Помощь ]
» Добро пожаловать на форум "Информационные технологии" «

Переход к теме
<< Назад Вперед >>
Несколько страниц [ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 ]
Модераторы: paradise, KMA
  

PIPL



Новичок

Из слова "операция" получить слово "правило". Делается с помощью копирования букв п,ра,и а другие буквы добавляются чере const (в, ло). Не могу сделать((((

Всего сообщений: 1 | Присоединился: апрель 2009 | Отправлено: 19 апр. 2009 18:39 | IP
Abricatin


Новичок

Помогите пожалуйста решить задачу!!!
Из квадратной матрицы, элементы которой принадлежат диапазону от 1 до n, вывести все простые числа в порядке возрастания.
Заранее спасибо!

Всего сообщений: 1 | Присоединился: апрель 2009 | Отправлено: 21 апр. 2009 15:36 | IP
botannn


Новичок

напишу программы на заказ. за символическую плату. обращайтесь: 434132958

Всего сообщений: 20 | Присоединился: апрель 2009 | Отправлено: 24 апр. 2009 23:01 | IP
CAXATbIU


Новичок

Народ, помогите, пожалуйста, с одной задачкой, очень прошу, от неё зависит моя судьба: "Вывести в возрастающем порядке все цифры, входящие в десятичную запись некоторого натурального числа n". Заранее очень благодарен!!! Вот, если пригодится, то, что я написал уже
program vortex;
type Mset=set of byte;
var
a:array [0..9] of integer;
i,v:integer;
s,s1:string;
M1,M:Mset;

procedure sa(v:integer; var M:Mset);
var
i:integer;
begin
M:=[];
while v>0 do
begin
M:=M+[v mod 10];
v:=v div 10;
end;
end;

begin
writeln('vvedite chislo');
read(s);
for i:=1 to 10 do
a:=i-1;
val(s,v,0);
sa(v,M1);
s1:=' ';
for i:=1 to 10 do
if not(a In M1) then
s1:=s1+a;
writeln('s1=',s1);
end.



Всего сообщений: 1 | Присоединился: апрель 2009 | Отправлено: 27 апр. 2009 21:01 | IP
ziprex



Новичок

Кто нибудь спрашивал про программу, которая переводит числа из десятичной системы счистления в двоичную систему??? Укажите пост плиз)))

(Сообщение отредактировал ziprex 29 апр. 2009 16:37)

Всего сообщений: 4 | Присоединился: декабрь 2008 | Отправлено: 29 апр. 2009 13:35 | IP
bondmild


Новичок

Народ помогите плизз написать алгоритм и текст программы по задаче на тему строки:
Дано натуральное число n. Определить имеются ли одинаковые цифры в этом числе.   (число n произвольное)
Заранее огромное спасибо!

(Сообщение отредактировал bondmild 3 мая 2009 15:21)

Всего сообщений: 7 | Присоединился: март 2009 | Отправлено: 3 мая 2009 15:20 | IP
bondmild


Новичок

И ещё одна задача по теме записи, нужно написать алгоритм и текст программы:
Составить списки учебной группы включающей 25 человек. Для каждого студента указать курс группу и оценку за последнию сессию. Информацию о каждом студенте оформить в виде записи. Совокупность записей объединить в массив. Вычислить средний балл группы и указать анкетные данные студентов имеющих средний балл выше среднего балла группы!
Пожалуйста помогите кто может! Заранее огромное спасибо!!!

Всего сообщений: 7 | Присоединился: март 2009 | Отправлено: 3 мая 2009 15:26 | IP
6612


Новичок

Помогите решить, до среды  оценка в аттестат идет, а у меня спорная.....1. В предложении найти слово с наибольшей суммой кодов символов,поменять его местами с самым коротким словом.2.В предложении найти слово с наибольшим кол-вом повторяющихся букв.Заменить его 1-ым.3.В предложении в самом длинном слове записать буквы задом-наперед.4. В предложении найти словою. сумма кодов символов в котором максимальна. Поменять его со словом минимальной длины.

Всего сообщений: 1 | Присоединился: май 2009 | Отправлено: 6 мая 2009 3:13 | IP
Benik



Новичок

Здравствуйте, можете пожалуйста исправить или написать программу!
Дан файл f, компоненты которого являются действительными числами. Найти наименьшее из значений компонент с чётными номерами?
Я написал ее как смог, но она не совсем правильно работает:
uses crt;
const n=10;
var i,mina:integer;
   f:file of integer;
   A:array[1..n] of integer;
begin
clrscr;
assign(f,'file'); rewrite(f);
writeln ('Vvedite chisla: ');
for i:=1 to n do begin
 read(A);
end;
close(f);
reset(f);
mina:=0;
write('Eto naimenshee chislo s chetnim nomerom: ');
for i:=1 to n do begin
 if (i mod 2=0) and (A<mina) then
  write(A)
  else
   if (i mod 2=0) then
   mina:=A;
end;
close(f);
readkey;
end.

Всего сообщений: 1 | Присоединился: май 2009 | Отправлено: 8 мая 2009 21:07 | IP
bondmild


Новичок

Куча вопросов  единицы ответов...=(((

Всего сообщений: 7 | Присоединился: март 2009 | Отправлено: 9 мая 2009 13:30 | IP

Эта тема закрыта, новые ответы не принимаются

Переход к теме
<< Назад Вперед >>
Несколько страниц [ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 ]

Форум работает на скрипте © Ikonboard.com