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
|
|
Форум
Решение задач на Pascal. Форум 2
