Версия для печати темы

Автор: Mila Khoroshilova 10.1.2011, 16:40

Помогите, пожайлуста, решить задачи!
Тема "Линейный поиск элемента в массиве". Элементы массива А натуральные числа. Определить, верно ли, что каждое число встречается не более двух раз (написать программу).

Тема "Линейный поиск элемента в массиве". Элементы двух массивов А и В натуральные числа. При этом все элементы массива А различны. Элементы массива В тоже различны. Отыщите элементы, которые одноременно содержатся и в массиве А и в массиве В. (При вводе элементов массива А ( и массива В) проверяйте на был ли он уже введен. Если элемент уже содержится в массиве, то предупредите об этом пользователя и попросите ввести элемент снова).

Тема "Двоичный поиск элемента в массиве". Дан массив целых чисел А, упорядоченный по убыванию. Написать программу, реализующую алгоритм двоичного поиска элемента в массиве А.

Тема "Сортировки". Сортировать по возрастанию элементы массива с индексами от m1 до m2. Метод сортировки: 1) выбором; 2) обменом; 3) включением; (Организуйте меню пользователя для выбора метода сортировки и ввода элементов).

Тема "Строки". Определить является введённая строка символов палиндромом. Ответ выдавать в виде "да/нет". Палиндром - текст, одинаково читающийся от начала к концу и от конца началу ("А роза упала на лапу Азора").

Автор: tig81 10.1.2011, 16:47

http://www.prepody.ru/ipb.html?act=boardrules
Что делали? Что не получается?

Автор: Mila Khoroshilova 13.1.2011, 18:01

[font=Times New Roman][si[font=Arial]
Написала программу. но моя сестра проверила сказала она неправильная и не дает верного ответа

Автор: tig81 13.1.2011, 18:07

выкладывайте код, специалисты, когда появятся, проверят.

Автор: граф Монте-Кристо 13.1.2011, 18:09

И правильно делает, если она действительно неправильная.

Автор: Mila Khoroshilova 18.1.2011, 16:21

var N, i,j : integer;
C : array [1..5] of integer;
flag : boolean;
begin
readln (N);
i : =0;
repeat
i : = i+1; C [i] :=N mod 10;
N :=N div 10;
until N=0;
flag : =true;
for j: =1 to i div 2 do
if C [j] <>C[i-j] then
flag: =false;
if flag then writeln (' Да")
else writeln ("Нет");
end
это к задаче полидром

Автор: Mila Khoroshilova 18.1.2011, 17:06

var N, i,j : integer;
C : array [1..5] of integer;
flag : boolean;
begin
readln (N);
i : =0;
repeat
i : = i+1; C [i] :=N mod 10;
N :=N div 10;
until N=0;
flag : =true;
for j: =1 to i div 2 do
if C [j] <>C[i-j] then
flag: =false;
if flag then writeln (' Да")
else writeln ("Нет");
end
задание к палиндрому

Автор: Тролль 18.1.2011, 17:08

Так вроде речь о строке символов идет, а не о числе.

Автор: Mila Khoroshilova 18.1.2011, 17:08

Ну так я сестру попросила заменить, она сказала что даже на числах неправильно

Автор: Тролль 18.1.2011, 17:11

А руками не пробовали программу проверять?

Автор: Mila Khoroshilova 19.1.2011, 20:56

В каком смысле?

Автор: Тролль 19.1.2011, 21:03

Берете конкретные значения и проходите программу.