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

» Добро пожаловать, Гость: Войти | Регистрация
    Форум
    Информационные технологии
        Решение задач на Pascal. Форум 3.
Отметить все сообщения как прочитанные   [ Помощь ]
» Добро пожаловать на форум "Информационные технологии" «

Переход к теме
<< Назад Вперед >>
Несколько страниц [ 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 ]
Модераторы: paradise, KMA
  

misha



Новичок

помогите решить задачу
Дана строка, указать те слова, которые содержат хотя бы одну букву «k». Считать, что слова в тексте отделены друг от друга одним пробелом.

Всего сообщений: 6 | Присоединился: февраль 2010 | Отправлено: 4 фев. 2010 4:33 | IP
Toha



Новичок



(Сообщение отредактировал Toha 28 фев. 2010 17:00)


(Сообщение отредактировал Toha 28 фев. 2010 17:01)

Всего сообщений: 2 | Присоединился: февраль 2010 | Отправлено: 5 фев. 2010 15:45 | IP
Alice Depp


Новичок

тоха, задачу эту решить легко,но отсорировать как по возрастанию, убыванию.
текст некоретный)

Всего сообщений: 8 | Присоединился: январь 2010 | Отправлено: 7 фев. 2010 15:47 | IP
Dale



Участник

misha  
Эта задача решена на предыдущей странице

Всего сообщений: 139 | Присоединился: май 2009 | Отправлено: 7 фев. 2010 19:35 | IP
misha



Новичок

помогите запустить программу не могу исправить ошибку
program lab31;
uses crt;
var Nok,r,a,b:integer;
function Nod (a,b:integer):integer;
begin
while a<>b do
if a>b then a:=a-b
else b:=b-a;
NOD:=a;
end;
begin
clrscr;
writeln('Vvedite a,b);
readln (a,b);
z:= nod (a,b);
NOK:=(a*b)div(z);
writeln('nok=',nok);
readkey;
end.

Всего сообщений: 6 | Присоединился: февраль 2010 | Отправлено: 7 фев. 2010 20:16 | IP
Dale



Участник


Цитата: westside написал 31 янв. 2010 23:00
Доказать (путем перебора возможных значений), что для любых величин A,B,c типа Boolean следующие пары логических выражений имеют одинаковые значения(эквивалентны):
1)А and B и B and A;
2)(A and B) and C и A and (B and C);
3)A or (A and B) и A;
4)A or (b and C) и (A or B) and (A or C).



Здесь достаточно вывести таблицу истинности для всех значений A и B.
Вообще необязательно выводить таблицы так, как это делаю я, но все же я решил вспомнить былые времена, когда мне нравилось красиво выводить разнообразные данные. Итак:
1)
Code Sample:
 
uses crt;
var a,b:boolean;

procedure tableTop;
begin
write(#201,#205,#203,#205,#203,#205,#205,#205,#205,#205,#205,#205,#203);
write(#205,#205,#205,#205,#205,#205,#205,#187);
writeln;
end;

procedure tableCenter;
begin
write(#204,#205,#206,#205,#206,#205,#205,#205,#205,#205,#205,#205,#206);
write(#205,#205,#205,#205,#205,#205,#205,#185);
writeln;
end;

procedure tableBottom;
begin
write(#200,#205,#202,#205,#202,#205,#205,#205,#205,#205,#205,#205,#202);
write(#205,#205,#205,#205,#205,#205,#205,#188);
writeln;
end;

begin
textbackground(6);
clrscr;
textColor(0);
writeln('Задача 1');
tableTop;
writeln(#186,'a',#186,'b',#186,'a and b',#186,'b and a',#186 );
tableCenter;
a:=true;
b:=true;
repeat
 writeln(#186,ord(a),#186,ord(b), #186,'   ',ord(a and b),
 '   ',#186,'   ',ord(b and a),'   ',#186);
 if ((not a) and (not b)) then tableBottom else tableCenter;
 if not b then a:=not a;
 b:=not b;
until (a and b);


readkey;
end.





2)
Code Sample:
 
uses crt;
var a,b,c:boolean;

procedure tableTop;
begin
write(#201,#205,#203,#205,#203,#205,#203,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#203);
write(#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#187);
writeln;
end;

procedure tableCenter;
begin
write(#204,#205,#206,#205,#206,#205,#206,#205,#205,#205,#205,#205,#205,#205,#205,#205#205,#205,#205,#205,#205,#205,#206);
write(#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#185);
writeln;
end;

procedure tableBottom;
begin
write(#200,#205,#202,#205,#202,#205,#202,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#202);
write(#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#188);
writeln;
end;

begin
textbackground(6);
clrscr;
textColor(0);
writeln('Задача 2');
tableTop;
writeln(#186,'a',#186,'b',#186,'c',#186,'a and (b and c)',#186,'(a and b) and c',#186 );
tableCenter;
a:=true;
b:=true;
c:=true;
repeat
 writeln(#186,ord(a),#186,ord(b),#186,ord(c), #186,'       ',
 ord(a and (b and c)), '       ',#186,'       ',
 ord((a and b) and c),'       ',#186);
 if ((not a) and (not b) and (not c)) then tableBottom else tableCenter;
 if (not c) and (not b) then a:=not a;
 if (not c) then b:=not b;
 c:=not c;
until (a and b and c);


readkey;
end.




3)

Code Sample:
 
uses crt;
var a,b:boolean;

procedure tableTop;
begin
write(#201,#205,#203,#205,#203,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#203);
write(#205,#205,#205,#205,#205,#205,#205,#187);
writeln;
end;

procedure tableCenter;
begin
write(#204,#205,#206,#205,#206,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#206);
write(#205,#205,#205,#205,#205,#205,#205,#185);
writeln;
end;

procedure tableBottom;
begin
write(#200,#205,#202,#205,#202,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#202);
write(#205,#205,#205,#205,#205,#205,#205,#188);
writeln;
end;

begin
textbackground(6);
clrscr;
textColor(0);
writeln('Задача 3');
tableTop;
writeln(#186,'a',#186,'b',#186,'a or (a and b)',#186,'   a   ',#186 );
tableCenter;
a:=true;
b:=true;
repeat
 writeln(#186,ord(a),#186,ord(b), #186,'       ',ord(a or (a and b)),
 '      ',#186,'   ',ord(a),'   ',#186);
 if ((not a) and (not b)) then tableBottom else tableCenter;
 if not b then a:=not a;
 b:=not b;
until (a and b);


readkey;
end.



4)
Code Sample:
 
uses crt;
var a,b,c:boolean;

procedure tableTop;
begin
write(#201,#205,#203,#205,#203,#205,#203,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#203);
write(#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#187);
writeln;
end;

procedure tableCenter;
begin
write(#204,#205,#206,#205,#206,#205,#206,#205,#205,#205,#205,#205,#205,#205,#205,#205#205,#205,#205,#205,#205,#205,#206);
write(#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#185);
writeln;
end;

procedure tableBottom;
begin
write(#200,#205,#202,#205,#202,#205,#202,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#202);
write(#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#205,#188);
writeln;
end;

begin
textbackground(6);
clrscr;
textColor(0);
writeln('Задача 4');
tableTop;
writeln(#186,'a',#186,'b',#186,'c',#186,'a  or (b and c)',#186,'(a or b) and (a or c)',#186 );
tableCenter;
a:=true;
b:=true;
c:=true;
repeat
 writeln(#186,ord(a),#186,ord(b),#186,ord(c), #186,'       ',
 ord(a or (b and c)), '       ',#186,'          ',
 ord((a or b) and (a or c)),'          ',#186);
 if ((not a) and (not b) and (not c)) then tableBottom else tableCenter;
 if (not c) and (not b) then a:=not a;
 if (not c) then b:=not b;
 c:=not c;
until (a and b and c);


readkey;
end.




Всего сообщений: 139 | Присоединился: май 2009 | Отправлено: 7 фев. 2010 21:53 | IP
Dale



Участник


Цитата: misha написал 7 фев. 2010 20:16
помогите запустить программу не могу исправить ошибку
program lab31;
uses crt;
var Nok,r,a,b:integer;
function Nod (a,b:integer):integer;
begin
while a<>b do
if a>b then a:=a-b
else b:=b-a;
NOD:=a;
end;
begin
clrscr;
writeln('Vvedite a,b);
readln (a,b);
z:= nod (a,b);
NOK:=(a*b)div(z);
writeln('nok=',nok);
readkey;
end.


В чем проблема? Не запускается (тогда какая ошибка  вылезает) или ответ неправильный выдает?

-----
Прикольная песня :-)

Всего сообщений: 139 | Присоединился: май 2009 | Отправлено: 7 фев. 2010 22:04 | IP
misha



Новичок

ошибка
Error 8: String constant exceeds line.

Всего сообщений: 6 | Присоединился: февраль 2010 | Отправлено: 7 фев. 2010 22:10 | IP
Dale



Участник

Code Sample:
 
writeln('Vvedite a,b);


Закрывающий апостроф пропустил
Code Sample:
 
var Nok,r,a,b:integer;


z тоже надо объявить

(Сообщение отредактировал Dale 7 фев. 2010 22:26)

-----
Прикольная песня :-)

Всего сообщений: 139 | Присоединился: май 2009 | Отправлено: 7 фев. 2010 22:24 | IP
Achmed



Новичок

Добрый день. У меня такая проблема с Паскалем.
x^4+1.5*x^3-2*x^2+4*cos(2*x)*sin(4*x) на промежутке [-1;1] с шагом в 0.2.
Пожалуйста, скажите в чём моя ошибка. А то в классе не получается и дали домой.

program Homework;
var x,y:real;
begin
x:=-1;
for x:=-1 to 1 do
begin
y:=x*x*x*x+1.5*x*x*x-2*x*x+4*cos(2*x)*sin(4*x);
writeln('x=', x:10:2);
writeln('y=', y:10:2);
x:=x+0.2
end
end.

Скачал FreePascal, написал это код и выбило несколько ошибок
Error: Ordinal expression expected
Error: Illegal assignment to for-loop variable "x"
Fatal: There were 2 errors compiling module, stopping
Fatal: Compilation aborted

(Сообщение отредактировал Achmed 21 фев. 2010 17:26)


(Сообщение отредактировал Achmed 21 фев. 2010 17:27)


(Сообщение отредактировал Achmed 21 фев. 2010 17:34)

Всего сообщений: 2 | Присоединился: февраль 2010 | Отправлено: 21 фев. 2010 17:10 | IP

Отправка ответа:
Имя пользователя   Вы зарегистрировались?
Пароль   Забыли пароль?
Сообщение

Использование HTML запрещено

Использование IkonCode разрешено

Смайлики разрешены

Опции отправки

Добавить подпись?
Получать ответы по e-mail?
Разрешить смайлики в этом сообщении?
Просмотреть сообщение перед отправкой? Да   Нет
 

Переход к теме
<< Назад Вперед >>
Несколько страниц [ 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 ]

Форум работает на скрипте © Ikonboard.com