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

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

bekas


Долгожитель

for i:=1 to n do  begin
  kol:=0;
  for j:=1 to (n-1) do
    if (a[i,1]=a[i,(j+1)]) then inc(kol);
  if (kol=(n-1)) then writeln('stroka ',i);
end;

У вас begin не в том месте был - почувствуйте разницу, как говорится...


-----
Из Северодонецка

Всего сообщений: 379 | Присоединился: январь 2006 | Отправлено: 25 дек. 2008 19:16 | IP
00007



Новичок

Помогите создать модуль процедуры и функции для этой прграмы:
uses crt;
const n=7;
procedure fak;
var a:array[1..n] of real;
i,f:integer;
begin
f:=1;
for i:=1 to n do
begin
f:=f*i;
a:=(ln(100*i)/ln(10))/f;
write(a:10:6);
end;
readln;
end;
function fn(k:integer):integer;

begin
fak
end.

Всего сообщений: 20 | Присоединился: ноябрь 2008 | Отправлено: 26 дек. 2008 0:31 | IP
AndreiKA



Новичок

напишите плиз со стрингами\
Все вхождения первого слова текста заменить последним его словом
кто может решите плизз без массивов

Всего сообщений: 11 | Присоединился: декабрь 2008 | Отправлено: 26 дек. 2008 23:43 | IP
Fazid


Новичок

Привет!
Есть файл с числами REAL, в нем определенное количество строк и чисел в строке (через пробел).
Пытаюсь считывать первые 3 числа следующим образом и выдает ошибку.

program a;
Var
         f1:file of real;
   ch,q,b:real;
   Begin
     Assign(f1, 'c:\asd.txt');
     Reset(f1);
     Read(f1, ch,q,b);
     Writeln (ch,q,b);
     Close(f1);
   End.
Подскажите пожалуйста в чем причина? Спасибо!

Всего сообщений: 1 | Присоединился: декабрь 2008 | Отправлено: 27 дек. 2008 13:19 | IP
hund


Новичок

помогите плиз решить задачц очень надо  даны целые числа а1..аn, b1..bn верно что эти две последовательности отличаються не более чем порядком следования членов

Всего сообщений: 1 | Присоединился: декабрь 2008 | Отправлено: 29 дек. 2008 1:59 | IP
KMA



Долгожитель



напишите плиз со стрингами\
Все вхождения первого слова текста заменить последним его словом
кто может решите плизз без массивов



Стринги - это такие трусы такие и решать в них, лично мне, крайне не комфортно. Говорите правильно с использованием строк (sting). И еще как вы себе представляете решать подобную задачу без использования массивов? string - по определению своему это особый ТИП МАССИВА. Т. е. решить задачу на строки. без использования массива. Вы себе сами противоречите.

Что вы сами делали? Покажите как вы использовали решение с массивом и что по вашему мнению решить задачу без использования массива! Уточняйте.



помогите плиз решить задачц очень надо  даны целые числа а1..аn, b1..bn верно что эти две последовательности отличаються не более чем порядком следования членов



Мы живем в русской стране и писать должны по русски. То, как вы оформили свое сообщение - безобразие. У нас не удафф.ком, поэтому либо пишите нормально, либо идите на удафф.ком и просите там решить вашу задачу.

-----
Gentoo, FreeBSD 7.2, PHP, JavaScript (jQuery), Python, Shell
Помогаю с задачами только на форуме.
Все мои действия четко согласуются с правилами раздела. Поэтому никаких претензий и обид.

Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 30 дек. 2008 0:24 | IP
Bizarius


Новичок

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


(Сообщение отредактировал Bizarius 3 янв. 2009 11:43)

Всего сообщений: 3 | Присоединился: январь 2009 | Отправлено: 3 янв. 2009 11:42 | IP
Bizarius


Новичок

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

Всего сообщений: 3 | Присоединился: январь 2009 | Отправлено: 3 янв. 2009 11:48 | IP
bekas


Долгожитель

Bizarius, методику программирования буквенных ребусов смотрите, например, в "Алгоритмы и программы. Решение олимпиадных задач", И.Н. Порублев, А.Б. Ставровский.  Повезет - найдете в интернете.

-----
Из Северодонецка

Всего сообщений: 379 | Присоединился: январь 2006 | Отправлено: 3 янв. 2009 15:49 | IP
Bizarius


Новичок

а вторая?

Всего сообщений: 3 | Присоединился: январь 2009 | Отправлено: 3 янв. 2009 17:18 | 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