• Добро пожаловать на компьютерный форум Tehnari.ru. Здесь разбираемся с проблемами ПК и ноутбуков: Windows, драйверы, «железо», сборка и апгрейд, софт и безопасность. Форум работает много лет, сейчас он переехал на новый движок, но старые темы и аккаунты мы постарались сохранить максимально аккуратно.

    Форум не связан с магазинами и сервисами – мы ничего не продаём и не даём «рекламу под видом совета». Отвечают обычные участники и модераторы, которые следят за порядком и качеством подсказок.

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

    Не знаете, с чего начать? Создайте тему с описанием проблемы – подскажем и при необходимости перенесём её в подходящий раздел.
    Задать вопрос Новые сообщения Как правильно спросить
    Если пришли по старой ссылке со старого Tehnari.ru – вы на нужном месте, просто продолжайте обсуждение.

Помогите, пожалуйста, решить две задачи в паскале.

  • Автор темы Автор темы Mazura
  • Дата начала Дата начала
Да все уже разобрался сам спасибо.:)))
 
ну вот и хорошо
 
условие для задачи про лягушку - длина прыжка должна быть больше половины расстояния до болота, тогда цикл не становится бесконечным.

Вот полностью рабочий вариант:
Код: 
program kwaken;
var dlin, s: real;
n:integer;
begin
writeln('Input length');
readln(dlin);
writeln('Input distance');
readln(s);
n:=0;
if dlin<=s/2 then writeln('Never')
else begin
     while s>0 do begin
     s:=s-dlin;
     dlin:=dlin/2;
     inc(n);
     end;
     writeln('Quantity of jumps to a bog',n); end;
readln
end.
 
Ребята про массив задача на паскале не запускаеться!!!!
 
Mazura написал(а):
Ребята про массив задача на паскале не запускаеться!!!!
Нажмите для раскрытия...
Какой именно вариант "не запускается" - мой (#8), MrStep'а (#18) или оба? Как именно "не запускается"? Что пишет?
 
Блин я сказать не могу у меня паскаль не идет((((
 
Mazura написал(а):
Вариант MrStepa.
Нажмите для раскрытия...
Да нет, сейчас его программу прокрутил - всё идет. Единственно, там есть небольшая ошибка: 9-ю снизу строку
if a mod 2=0 then
надо заменить строкой
if a mod k=0 then
т.е. 2 заменить на k. Но это ошибка чисто смысловая, на трансляцию и выполнение не влияет. Так что уж не знаю.
 
Ну а тогда можете помочь пожалуйста с этой задачей по строкам, я в стоках не понимаю мне задачь не хватит если массивы не зайдут, хочу этой тогда заменить.
1.Вводиться строка символов и один символ. Подсчитать количество вхождений символа в строке.
Помогите если не сложно!!!!!
 
Mazura написал(а):
Ну а тогда можете помочь пожалуйста с этой задачей по строкам, я в стоках не понимаю мне задачь не хватит если массивы не зайдут, хочу этой тогда заменить.
1.Вводиться строка символов и один символ. Подсчитать количество вхождений символа в строке.
Помогите если не сложно!!!!!
Нажмите для раскрытия...
Да нет, не сложно:
Код: 
VAR
 S:String;
 Ch:Char;
 i,N:Integer;
BEGIN
 WriteLn('Enter the string:');
 ReadLn(S);
 WriteLn('Enter the symbol:');
 ReadLn(Ch);
 N:=0;
 For i:=1 to Length(S) do
  If S[i]=Ch then INC(N);
 WriteLn('The number of entries is ',N);
 ReadLn;
END.

P.S. А мой вариант (#8) "с массивами" что - тоже не проходит?
 
Спасибо спасибо спасибо))))) нет ваш вариант не пробовал у меня поскаль не идет дома у меня 64 а надо 32 вы не знаете как можно сделать????
 
Мало что понял, но, вероятно, нужно поискать транслятор для Вашей системы.
Попробуйте, например, отсюда:
http://www.freepascal.org/
 
Mazura
Попробуйте скачать отсюда: http://dim-hj.gorodok.net/download-turbo-pascal.htm
Разработчик гарантирует, что эта система запускается на любой версии операционной системы Windows (x86 или 64-bit, 2K, XP, Vista, Seven), Linux, MacOS-X за счет использования DOSBox-а.

Можете оттуда же скачать portable-версию, распаковать ее на флешку и работать непосредственно с ней.
 
Спасибо уже захожу)))
 
Прошу помочь!!!! посмотрите что не так, не могу обьеденить задачи(((
procedure Massiv_1;
CONST
N=10;
VAR
A:ARRAY[1..N] of INTEGER;
Nneg, Npos, K, i:INTEGER;
BEGIN
writeln ('#####################################################');
writeln ('## Programma: massiv_1 ##');
writeln ('## Naznachenie:v massive podschitat kolichestvo i ##');
writeln ('## otrisatelinux elementov, kratnux dannomy k. ##');
writeln ('## Pazpabotchuk: mazurenko pasha, gryppa TD-2 ##');
writeln ('## Data cozdaniya: 01.02.2010 ##');
writeln ('#####################################################');
writeln;
writeln('stydent TD2 mazyrenko pasha');
Write('K= ');
ReadLn(K);
WriteLn;
Randomize;
Nneg:=0;
Npos:=0;
For i:=1 to N do
begin
A:=Random(100)-50;
Write(A:5);
If (A>0) and ((A mod K)=0) then INC(Npos);
If (A<0) and ((A mod K)=0) then INC(Nneg);
end;
WriteLn;
WriteLn('The number of positive elements, divisible by ',K,' is ', Npos);
WriteLn('The number of negative elements, divisible by ',K,' is ', Nneg);
ReadLn;
END;
procedure stroki_2;
VAR
S:String;
Ch:Char;
i,N:Integer;
BEGIN
writeln ('#####################################################');
writeln ('## Programma: stroki_2 ##');
writeln ('## Naznachenie: vvoditisa stroka simvolov i odin ##');
writeln ('## simvol. Podshitat kolichestvo vxogdeni simvola ##');
writeln ('## v stroke ##');
writeln ('## Pazpabotchuk: mazurenko pasha, gryppa TD-2 ##');
writeln ('## Data cozdaniya: 01.02.2010 ##');
writeln ('#####################################################');
writeln;
writeln('stydent TD2 mazyrenko pasha');
WriteLn('vvedite stroky:');
ReadLn(S);
WriteLn('vvedite simvol:');
ReadLn(Ch);
N:=0;
For i:=1 to Length(S) do
If S=Ch then INC(N);
WriteLn('The number of entries is ',N);
ReadLn;
END;
procedure lineyanaya_3;
var
a,b,c: integer;
p: real;
s: real;
begin
writeln ('#####################################################');
writeln ('## Programma: lineyanaya_3 ##');
writeln ('## Naznachenie: zadanu storovu treygolnika, naiti ##');
writeln ('## ego ploshad po formyle gerona ##');
writeln ('## Pazpabotchuk: mazurenko pasha, gryppa TD-2 ##');
writeln ('## Data cozdaniya: 01.02.2010 ##');
writeln ('#####################################################');
writeln;
writeln('stydent TD2 mazyrenko pasha');
writeln('storona: ');
readln(a);
writeln('storona: ');
readln(b);
writeln('storona: ');
readln(c);
p:=(a+b+c)/2;
readln;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
readln;
writeln('ploshadi: ',s:4:6);
readln;
writeln('vivod peremennoi: ',p:4:6);
readln;
end;

BEGIN
WHILE TRUE DO
begin
Writeln;
WriteLn (' #############################################################################################');
WriteLn (' ## 1.v massive podschitat kolichestvo i otrisatelinux elementov, kratnux dannomy k. ##');
WriteLn (' ## radiusa bolshei okryjnoctu k radiusu menshei okryjnoctu ravno D. ##');
WriteLn (' ## 2. vvoditisa stroka simvolov i odin simvol. Podshitat kolichestvo vxogdeni simvola ##');
writeln (' ## v stroke ##');
WriteLn (' ## 3. zadanu storovu treygolnika, naiti ego ploshad po formyle gerona ##');
WriteLn (' ## 4. Exit ##');
WriteLn (' #############################################################################################');
writeLn;
writeLn('zdravstvuite vyberite nomer rezhima!');
readLn(REG);
CASE REG of
1:Massiv_1;
2:stroki_2;
3:lineyanaya_3;
4:Begin
writeLn('Dosvidaniya!');
writeLn('dlya prodolzheniya nazhmite ENTER');
readln;
HALT(1);
end
else WriteLn('izvinite no vi oshiblis v nomere rezhima');
end;{konec CASE}
end;{konec WHILE}
END.
 
Ну вообще-то тут целый букет ошибок.
1. Не определена переменная REG.
2. Условие While TRUE - бессмысленно.
3. Плохо организован сам цикл и процедура выхода.
4. Отсутствует заголовок первой процедуры.
Предлагаю вариант. Места, где изменено, выделены красным:

VAR
REG:BYTE;
B:BOOLEAN;

Procedure Note;
Begin
writeLn('Dosvidaniya!');
writeLn('dlya prodolzheniya nazhmite ENTER');
readln;
End;

Procedure Massiv_1;
CONST
N=10;
VAR
A:ARRAY[1..N] of INTEGER;
Nneg, Npos, K, i:INTEGER;
BEGIN
writeln ('################################################ #####');
writeln ('## Programma: massiv_1 ##');
writeln ('## Naznachenie:v massive podschitat kolichestvo i ##');
writeln ('## otrisatelinux elementov, kratnux dannomy k. ##');
writeln ('## Pazpabotchuk: mazurenko pasha, gryppa TD-2 ##');
writeln ('## Data cozdaniya: 01.02.2010 ##');
writeln ('################################################ #####');
writeln;
writeln('stydent TD2 mazyrenko pasha');
Write('K= ');
ReadLn(K);
WriteLn;
Randomize;
Nneg:=0;
Npos:=0;
For i:=1 to N do
begin
A:=Random(100)-50;
Write(A:5);
If (A>0) and ((A mod K)=0) then INC(Npos);
If (A<0) and ((A mod K)=0) then INC(Nneg);
end;
WriteLn;
WriteLn('The number of positive elements, divisible by ',K,' is ', Npos);
WriteLn('The number of negative elements, divisible by ',K,' is ', Nneg);
ReadLn;
END;
procedure stroki_2;
VAR
S:String;
Ch:Char;
i,N:Integer;
BEGIN
writeln ('################################################ #####');
writeln ('## Programma: stroki_2 ##');
writeln ('## Naznachenie: vvoditisa stroka simvolov i odin ##');
writeln ('## simvol. Podshitat kolichestvo vxogdeni simvola ##');
writeln ('## v stroke ##');
writeln ('## Pazpabotchuk: mazurenko pasha, gryppa TD-2 ##');
writeln ('## Data cozdaniya: 01.02.2010 ##');
writeln ('################################################ #####');
writeln;
writeln('stydent TD2 mazyrenko pasha');
WriteLn('vvedite stroky:');
ReadLn(S);
WriteLn('vvedite simvol:');
ReadLn(Ch);
N:=0;
For i:=1 to Length(S) do
If S=Ch then INC(N);
WriteLn('The number of entries is ',N);
ReadLn;
END;
procedure lineyanaya_3;
var
a,b,c: integer;
p: real;
s: real;
begin
writeln ('################################################ #####');
writeln ('## Programma: lineyanaya_3 ##');
writeln ('## Naznachenie: zadanu storovu treygolnika, naiti ##');
writeln ('## ego ploshad po formyle gerona ##');
writeln ('## Pazpabotchuk: mazurenko pasha, gryppa TD-2 ##');
writeln ('## Data cozdaniya: 01.02.2010 ##');
writeln ('################################################ #####');
writeln;
writeln('stydent TD2 mazyrenko pasha');
writeln('storona: ');
readln(a);
writeln('storona: ');
readln(b);
writeln('storona: ');
readln(c);
p:=(a+b+c)/2;
readln;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
readln;
writeln('ploshadi: ',s:4:6);
readln;
writeln('vivod peremennoi: ',p:4:6);
readln;
end;

BEGIN
B:=TRUE;
WHILE B DO
begin
Writeln;
WriteLn (' ################################################## ###########################################');
WriteLn (' ## 1.v massive podschitat kolichestvo i otrisatelinux elementov, kratnux dannomy k. ##');
WriteLn (' ## radiusa bolshei okryjnoctu k radiusu menshei okryjnoctu ravno D. ##');
WriteLn (' ## 2. vvoditisa stroka simvolov i odin simvol. Podshitat kolichestvo vxogdeni simvola ##');
writeln (' ## v stroke ##');
WriteLn (' ## 3. zadanu storovu treygolnika, naiti ego ploshad po formyle gerona ##');
WriteLn (' ## 4. Exit ##');
WriteLn (' ################################################## ###########################################');
writeLn;
writeLn('zdravstvuite vyberite nomer rezhima!');
readLn(REG);
CASE REG of
1:begin Massiv_1; Note; end;
2:begin stroki_2; Note; end;
3:begin lineyanaya_3; Note; end;
4:B:=FALSE;
else WriteLn('izvinite no vi oshiblis v nomere rezhima');
end;{konec CASE}
end;{konec WHILE}
END.
 
Спасибо большое Vladimir_S!!!!!!!!!! а по блок схемам вы сможете помочь если не тяжело? мне вот по этим 3 задачам надо блок схемы, буду прамо Очень сильно благодарен!!!!!!!!!!!!!!!!!
 
Mazura написал(а):
Спасибо большое Vladimir_S!!!!!!!!!! а по блок схемам вы сможете помочь если не тяжело? мне вот по этим 3 задачам надо блок схемы, буду прамо Очень сильно благодарен!!!!!!!!!!!!!!!!!
Нажмите для раскрытия...
К сожалению, нет, не могу. В блок-схемах ни бум-бум.
 
Ну ладно))), Если кто может помогите!!!!!!!!!!!!!!!!!
 
Войдите или зарегистрируйтесь для ответа.
Назад
Сверху