Форум - Решение задач на Pascal. Форум 3. [18]

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

» Добро пожаловать, Гость: Войти | Регистрация

	Форум Информационные технологии Решение задач на 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 ]