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 верно что эти две последовательности отличаються не более чем порядком следования членов
Мы живем в русской стране и писать должны по русски. То, как вы оформили свое сообщение - безобразие. У нас не удафф.ком, поэтому либо пишите нормально, либо идите на удафф.ком и просите там решить вашу задачу.
|
Всего сообщений: 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
|
|
Форум
Решение задач на Pascal. Форум 2
