Прошу о помощи!! - Форум
Пятница, 09.12.2016, 06:51
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Прошу о помощи!! (Нужно срочно решить 4 задачи по Паскалю!)
Прошу о помощи!!
YuliaFДата: Понедельник, 04.01.2010, 03:26 | Сообщение # 1
Лейтенант
Группа: Участник
Сообщений: 11
[ 0 ]
Статус: Offline
1. Даны n - натуральное число, символы s1, s2, ... , sn. Будем рассматривать слова, образованые символами, входящими в последовательность s1, s2, ... , sn(слова)считая при этом , что количество символов в каждом слове не превосходит 15. Выяснить имеются ли два слова, каждое из которых получается переворачиванием другого.

2. Даны натуральное число n, целые числа а1, ... , аn. Оставить без изменения последовательность а1, ... , аn, если члены упорядочены по неубыванию или по невозростанию. В противном случае получить подпоследовательность а1, ... , аm (m<n), где m таково, что лиюо a1<=a2<=...<=am и am>am+1, либо a1>=a2>=...>=am и am<am+1.

3.Даны натуральное число k и одновременно не равные нулю целые числа n1, ... , nk. Найти НОД (\n1\, ... , \nk\) и целые u1,...,uk такие что, u1*n1+...+uk*nk=НОД (\n1\, ... , \nk\)
P.S.\n1\ это модуль числа n1.

4. Дано натуральное число р. Получить последовательность а0,...,аn, каждый член которой равен -1, 0 или 1, такую, что p=an*{3 В СТЕПЕНИ N}+…+a1*3+a0 (an<>0).

Всем огромное спасибо!!!

 
ignorerДата: Понедельник, 04.01.2010, 16:05 | Сообщение # 2
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
Задача№2 на PascalABC (данные вводятся в файл in.txt, который должен находиться в одной папке с самой программой, в 1 строке находится n, во второй элементы, а результат выводится в поле вывода):
Var a : array[1..100] of integer;
b : boolean;
i, j, n : integer;
t : text;
begin
cls;
assign(t, 'in.txt');
reset(t);
readln(t, n);
for i:=1 to n do read(t, a[i]);
close(t);
for i:=1 to n-1 do
if a[i]>a[i+1]then begin b:=true; break; end;
if not b then j:=n;
if b then begin
b:=false;
for i:=1 to n-1 do if a[i]<a[i+1]then begin b:=true; break; end;
end;
if not b then j:=n;
if b then begin
repeat
inc(j);
until a[j]<>a[j+1];
if a[j]<a[j+1]then b:=true else b:=false;
if b=false then begin
i:=j;
repeat
inc(i);
until a[i]<a[i+1];
end;
if b=true then begin
i:=j;
repeat
inc(i);
until a[i]>a[i+1];
end;
j:=i;
end;
for i:=1 to j do write(a[i], ' ');
end.
насчёт 3 и 4 задачи отписался в другой теме, а 1 не знаю как решить


Сообщение отредактировал ignorer - Понедельник, 04.01.2010, 16:08
 
YuliaFДата: Воскресенье, 17.01.2010, 15:44 | Сообщение # 3
Лейтенант
Группа: Участник
Сообщений: 11
[ 0 ]
Статус: Offline
Огромное спасибо!!!

Добавлено (17.01.2010, 15:44)
---------------------------------------------
Прошу решить задачу по Паскаль. Очень надо !!За ранее спасибо!!
Дано натуральное число n. Требуется получить последовательность, которая состоит из "0" и семёрок и образует десятичную запись некоторого натурального числа, делящегося на n. (Указание: воспользоваться тем, что в числовой последовательности 7, 77, 777, ... обязательно найдутся два члена, дающие при делении на n один и тот же остаток).

 
ignorerДата: Воскресенье, 17.01.2010, 17:44 | Сообщение # 4
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
задачка простая, а вот указание не понятное, т.е. не понятно как можно этим воспользоваться
 
YuliaFДата: Воскресенье, 17.01.2010, 18:16 | Сообщение # 5
Лейтенант
Группа: Участник
Сообщений: 11
[ 0 ]
Статус: Offline
smile ну мне если честно тоже не понятно. Напиши пожалуйста свой вариант решения, если не учитывать указание.
 
ignorerДата: Воскресенье, 17.01.2010, 19:54 | Сообщение # 6
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
да вот впринципе и вся задача:
var a, c, n : integer;
b : boolean;
begin
cls;
read(n);
a:=6;
repeat
b:=true;
inc(a);
if a mod n=0 then begin
c:=a;
repeat
if (c mod 10=7)or(c mod 10=0)then c:=c div 10
else begin b:=false; c:=0; end;
until c=0;
end;
until (a mod n =0)and b;
write(a);
end.

но это вариант без учёта указания

Сообщение отредактировал ignorer - Воскресенье, 17.01.2010, 19:55
 
YuliaFДата: Среда, 20.01.2010, 01:20 | Сообщение # 7
Лейтенант
Группа: Участник
Сообщений: 11
[ 0 ]
Статус: Offline
помогите, пожалуйста, отсортировать массив слов в лексикографическом порядке. Вот я тут пробовала таким способом, но работает не правильно((
program Yulia;
Uses Crt;
const n=15;
type T=array[1..n] of string;
var M:T; i,j:integer; a,s,b:string[n];
procedure StrArray(s:string; var a:T);
var i,k:integer; str:string;
begin
for i:=1 to n do
begin
{ s:=trim(s);}
k:=pos(' ',s);
if k=0 then a[i]:=s
else begin
str:=copy(s,1,k-1);
s:=copy(s,k,length(s)-length(str));
a[i]:=str;
end;
end;
end;
procedure Sort(var s:T);
var i,j:integer; b:string;
begin
for i:=1 to n-1 do
for j:=1 to i do
if a[j]>a[j+1] then
begin
b[1]:=a[j];
a[j]:=a[j+1];
a[j+1]:=b[1];
end;
end;
begin
ClrScr;
write('vvedite stroky');
for i:=1 to n do read(s[i]);
StrArray(s,M);
Sort(M);
for i:=1 to n do write(a[i]);
readkey;
end.
 
ignorerДата: Среда, 20.01.2010, 16:11 | Сообщение # 8
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
типа по алфавиту расставить слова?
вот принцип действия: в основе всего лежит то, что можно сравнивать слова так же, как и числа. следовательно и сортируется массив также, как и числовой.
var a : array[1..100] of string;
i : integer;
s : string;
b : boolean;
begin
cls;
for i:=1 to 15 do read(a[i]);
repeat
b:=true;
for i:=1 to 14 do if a[i]>a[i+1] then begin
s:=a[i];
a[i]:=a[i+1];
a[i+1]:=s;
b:=false;
end;
until b;
writeln;
for i:=1 to 15 do writeln(a[i]);
end.
 
YuliaFДата: Среда, 20.01.2010, 21:39 | Сообщение # 9
Лейтенант
Группа: Участник
Сообщений: 11
[ 0 ]
Статус: Offline
Спасибо большое!)) smile
 
ignorerДата: Среда, 20.01.2010, 22:00 | Сообщение # 10
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
всегда пжалста smile
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Прошу о помощи!! (Нужно срочно решить 4 задачи по Паскалю!)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016