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

» Добро пожаловать, Гость: Войти | Регистрация
    Форум
    Информационные технологии
        Решение задач на 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
  

dinusia


Новичок

Помогите пожалуйста, я в безвыходной ситуации: через 7 часов зачет, а задача не решена.....ПОМОГИТЕ КТО ЧЕМ МОЖЕТ, плиз....
Дана целочисленная прямоугольная матрица размера М*Т. Таким образом переставить столбцы матрицы, чтобы их первые элементы распологались в порядке невозрастания. Метод сортировки-пузырьковый.

Всего сообщений: 1 | Присоединился: июнь 2008 | Отправлено: 5 июня 2008 23:41 | IP
Guest



Новичок

Всем привет! Необхдимо нписать процедуру - вот задание
Определить число вхождений заданного элемента в дерево/
Спасибо!

Всего сообщений: Нет | Присоединился: Never | Отправлено: 11 июня 2008 12:24 | IP
CrAzY99999


Новичок

Люди помогите с решением задачи. До конца практики остался один день. Надо Минимум 5 задач сделать , а я только 3-тью решаю. Вот условие:
Пусть дана непустая последовательность слов из строчных русских букв.
Между соседними словами присутствует запятая, за последним точка.
Напечатайте в алфавитном порядке гласные буквы, которые входят в каждое слово.

Всего сообщений: 3 | Присоединился: июнь 2008 | Отправлено: 12 июня 2008 14:42 | IP
CrAzY99999


Новичок

За раннее спасибо!!!

Всего сообщений: 3 | Присоединился: июнь 2008 | Отправлено: 12 июня 2008 14:45 | IP
CrAzY99999


Новичок

Вот моя версия

program ___CrAzY___;                         {Название программы}
uses WinCRT;                                 {Включение библиотеки}
type letters=set of char;
    mass=array[1..33] of string;
const empty:letters=[];
var Deafs,setX:letters;
   str:string;
   M:mass;
   F_InTen,F_NoTest:boolean;
   k,kol_slov:byte;

procedure Init(s:string;var X:mass;var c:byte);
var i,l:integer;
begin
l:=length(s);
c:=1;
for i:=1 to l-1 do
 if (s<>',') and (s<>'.') then
  X[c]:=X[c]+s
 else
  begin
   inc(c);
   X[c]:='';
  end;
end;

function Set_Letters(slovo:string):letters;
var i:byte;
   tmp:letters;
begin
for i:=1 to length(slovo) do
 include(tmp,slovo);
Set_Letters:=tmp;
end;

procedure Output;
var i:byte;
begin
setX:=Deafs;
write('[');
for i:=1 to length(str) do
 if (str in Deafs) and (str in setX) then
  begin
   exclude(setX,str);
   if setX=[] then write(str,']')
   else write(str,',');
  end;
end;

begin
clrscr;
writeln('Please, input the text: ');
readln(str);
Init(str,M,kol_slov);
F_InTen:=true;
F_NoTest:=false;
Deafs:=['а','е','ё','и','й','о','у','э','ю','я'];
for k:=1 to kol_slov do
 begin
  if odd(k) and (Deafs*Set_Letters(M[k])=empty) then F_InTen:=false
  else Deafs:=Deafs*Set_Letters(M[k]);
  if not odd(k) and (Deafs*Set_Letters(M[k])<>empty) then F_NoTest:=true;
 end;
if F_InTen and F_NoTest then Output
else writeln('Таких гласных нету!');
readkey;
end.

Помогите пожалуйста!!!!

Всего сообщений: 3 | Присоединился: июнь 2008 | Отправлено: 12 июня 2008 14:59 | IP
ruslan55



Новичок

решите Плз несколько Очень простых задачек,на разные темы.

1.Составить программу, которая определяет, является ли введенное с клавиатуры целое число одновременно положительным и четным

2.Если в некоторой системе счисления десятичное число 47 записывается в виде 52, то чему равно основание этой системы?

3.Составить программу, читающую два числа, после чего из 1-ого числа вычитается  2-е и выводящую на экран монитора одно из двух сообщений: ” Результат отрицатель-ный”, ” Результат положительный

4.В понедельник в одном из классов должно быть проведено 4 урока – по математике, физике, информатике и биологии. Учителя высказали свои пожелания для составления расписания. Учитель математики хочет иметь первый или второй урок, учитель физики - второй или третий урок, учитель информатики – первый или четвертый, учитель биологии – третий или четвертый. Какой вариант расписания устроит всех учителей школы?

5.Вводить с клавиатуры данные о росте учеников класса, количество учащихся заранее неизвестно, признаком окончания ввода исходных данных является ввод нуля. Определить средний рост учеников в классе

6.Дан массив из 10 целых чисел. Напишите функцию, вычисляющую максимальный из отрицательных элементов массива. Если отрицательных элементов нет, вывести сообщение об этом.

7.Напишите алгоритм, вычисляющий значение функции у= |х2 + Зх+ 1| для любого х.

Всего сообщений: 3 | Присоединился: июнь 2008 | Отправлено: 16 июня 2008 19:44 | IP
Serega1992


Новичок

ruslan55, знаете, когда человек так настойчиво отправляет подряд одинаковые сообщения, засоряя форум, отпадает всякое желание ему помогать...

Всего сообщений: 50 | Присоединился: апрель 2008 | Отправлено: 16 июня 2008 21:19 | IP
ruslan55



Новичок

Интернет глючит,тут специального ничего нет

Всего сообщений: 3 | Присоединился: июнь 2008 | Отправлено: 16 июня 2008 21:21 | IP
GromGrom



Новичок

помогите парни скоро конец практике((а я из 14 заданий тока 2 сделал) так что воть...плиз прошу вашей помощи

1.Вложенные циклы
Найти все трехзначные числа, которые при делении на 2 дают остаток 1, при делении на 3 остаток 2, при делении на 4 остаток 3,а само число делится на 5.

2.цикл с предусловием
Поменять порядок цифр числа на обратный. например было 12345 стало 54321 или (123 стало 321).

3.цикл с постусловием
Даны натуральные числа m и n. Найти такие натуральные p и q , не имеющие общих делителей, что p/q=m/n.

ЕСТЬ еще задачи если кто сможет решить пишите в асю 396891117 Заранее спс)

Всего сообщений: 2 | Присоединился: июнь 2008 | Отправлено: 16 июня 2008 21:53 | IP
Guest



Новичок

Помогите решить: написать программу, которая находит максимальное число, если известны 3 числа: a, b,c.

Всего сообщений: Нет | Присоединился: Never | Отправлено: 17 июня 2008 5:54 | 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