powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Помогите с задачками на Turbo Pascal !
27 сообщений из 27, показаны все 2 страниц
Помогите с задачками на Turbo Pascal !
    #33300180
Mihanik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Срочно нужна помощь по TP!!!Знающие люди помогите разобраться хотя бы с парочкой задачек ! Просто я начал изучать TP совсем недавно, еще не очень много знаю, для вас думаю, это проблемой не будет...
Задача 1. Из заданной группы слов(я так думаю, из переменной типа string) выведите состоящее из пяти букв.
Задача 2.Изобразить вращающееся колесо.После каждого оборота цвет колеса меняется и звучит сигнал.(графические операторы знаю оч. плохо...)
Есть еще пара задачек, но буду очень признателен, если поможете решить хотя бы эти две!! Желательно хотя бы примерный текст программы, ну или хотя бы общий алгоритм.
...
Рейтинг: 0 / 0
Помогите с задачками на Turbo Pascal !
    #33300304
Фотография Lelikk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Лабораторные работы по информатике следует делать самостоятельно!
(ну или списать у товарищей)
________________________________________________________
Глюк - это высокоорганизованная система не поддающихся определению частиц
...
Рейтинг: 0 / 0
Помогите с задачками на Turbo Pascal !
    #33300313
Mihanik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
У товарищей списать не могу - разные варианты=))да и многие соображают в этом паскале не лучше чем я =\
а насчет делать самостоятельно, я бы сделал задачки и сам, если бы я его нормально знал, если бы нас хоть чуть подольше учили TP, а так - в этом году начали учить и уже лабораторки )3-[
я прошу помочь мне с задачками ( хотя бы общие алгоритмы....), потому что сам я плохо знаю этот Паскаль... только в этом году в инст поступил, а в школе у нас информатика почти 0, только сам дома кое-что писал на Qbasic и все...

p.s. Еще хотел чтобы мне разъяснили,зачем в Паскале так усложнен синтаксис по сравнению с тем же Qbas? и зачем вообще он нужен, если на бейсике можно сделать все тоже самое?(кстати хотелось бы узнать в чем Паскаль лучше бейсика? я пока вижу только минусы - возведения в степень НЕТ, какой-то еврейский оператор присваивания(почти смайл) := жесткое разделение на объявление переменных и само тело программы и т.д.)?
...
Рейтинг: 0 / 0
Помогите с задачками на Turbo Pascal !
    #33300362
Фотография Di_LIne
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Mihanikp.s. Еще хотел чтобы мне разъяснили,зачем в Паскале так усложнен синтаксис по сравнению с тем же Qbas? и зачем вообще он нужен, если на бейсике можно сделать все тоже самое?(кстати хотелось бы узнать в чем Паскаль лучше бейсика? я пока вижу только минусы - возведения в степень НЕТ, какой-то еврейский оператор присваивания(почти смайл) := жесткое разделение на объявление переменных и само тело программы и т.д.)?
- Ну... КуБасик... Он и в Африке КуБасик... Как раз для тамашних пигмеев и прочих абаригенофф...
- А в трарабарскои те не пикалывает разница между синтаксимом и фонетикой?
Типа пишем "Ливерпуль", читаем "Манчестер Юнайдет", а выигрывает "Челси"...
А что куда там поделили, и почему разнесли... Ну, навернон, не совсем чайники разрабатывали, а? Значит, под этим что-то есть...
Так, что чучебник - очень помагает. И скажи спасибо, что сейчас задачки задали, а не под Новый год.
...
Рейтинг: 0 / 0
Помогите с задачками на Turbo Pascal !
    #33300830
Гавриленко Сергей Алексеевич
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
авторвозведения в степень НЕТ,
Типа, ф-ии power в паскале нету?
авторжесткое разделение на объявление переменных и само тело программы и т.д
Видимо, мил человек никогда не натыкался на баги, связанне с тем, что в одном месте переменная написана называется City, а в другом - Сity.
...
Рейтинг: 0 / 0
Помогите с задачками на Turbo Pascal !
    #33300967
locky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Mihanik wrote:
> У товарищей списать не могу - разные варианты=))да и многие соображают в
> этом паскале не лучше чем я =\
Берем в библиотеке книжечку из старых, и читаем-читаем-читаем...

> а насчет делать самостоятельно, я бы сделал задачки и сам, если бы я его
> нормально знал, если бы нас хоть чуть подольше учили TP, а так - в этом
> году начали учить и уже лабораторки )3-[
Млин, а как ты без практики научишься писать-то?

> я прошу помочь мне с задачками ( хотя бы общие алгоритмы....), потому
При чем тут алгоритмы до языка программирования? Одно - это
последовательность (методика) решения задачи, другое - средство
реализации... ну, синтаксис у языков отличается....
>
> p.s. Еще хотел чтобы мне разъяснили,зачем в Паскале так усложнен
> синтаксис по сравнению с тем же Qbas? и зачем вообще он нужен, если на
> бейсике можно сделать все тоже самое?(кстати хотелось бы узнать в чем
хм... на первый раз пока удовлетворитесь ответом: патаму шта!
На второй, задайтесь вопросом, зачем нужен бейсик, если до него был уже
паскаль? на третий - зачем нужен паскаль, если до него уже был Си. на
четвертый - зачем нужен си, если до него... В общем, пока не доберетесь
до инженерного пульта старых машин.
> Паскаль лучше бейсика? я пока вижу только минусы - возведения в степень
> НЕТ, какой-то еврейский оператор присваивания(почти смайл) := жесткое
> разделение на объявление переменных и само тело программы и т.д.)?
- Главное что? Дис-ци-пли-на! (хором) (С) Добро пожаловать, или
посторонним вход воспрещен.
Более того, даже паскаль не так уж строг к программеру. В сях бывает
посложнее с типизацией. Была интересная статейка, умный чилдрен (хоть и
старый) критиковал синтаксис современных ЯВУ с точки зрения поощрения к
глючному коду.
типа, если в пасквиле написать что-то вроде
Код: plaintext
1.
2.
3.
4.
  for i :=  0  to  10  do ;
  begin
   DoSomething;
  end
то DoSomething вполнится 1 раз, а не 10, как хотелось бы.
Аналогично в сях (приколы с = и ==).
Так что, наверное, пока не сушите голову, а тупо учите. Причем и
паскаль, и Си, и бейсик (лучше всего VBA).
Не забывая при этом об алгоритмической базе.

--
-------------------------
There's no silver bullet!
Posted via ActualForum NNTP Server 1.3
...
Рейтинг: 0 / 0
Помогите с задачками на Turbo Pascal !
    #33301592
Mihanik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
LockyБерем в библиотеке книжечку из старых, и читаем-читаем-читаем...

Di LIneТак, что чучебник - очень помагает. И скажи спасибо, что сейчас задачки задали, а не под Новый год.

прям гениальные идеи подали, блин!! =)))))))
насчет учебника - у меня он уже есть (правда электронная версия, под редакцией какого-то В.В.Зелинского и еще один, поменьше) но даже с ним я никак не допру как решить первую задачу, в примерах там ничего даже близко нет:(

p.s. а кому спасибо говорить? если Вам, то лучше я Вам скажу это потом, лично, всей группой!!! =D

Типа, ф-ии power в паскале нету?
Не знаю, что за ф-ция такая, но в учебнике я о ней ничего не нашел...



так что хотелось бы услышать хоть от кого-нибудь примерный алгоритм!!я же не пишу - решите мне все задачи и составьте блок-схемы и проч.(и сдайте за меня экзамен=) мне просто нужно узнать саму методику решения, вот и все!!
...
Рейтинг: 0 / 0
Помогите с задачками на Turbo Pascal !
    #33301617
Гавриленко Сергей Алексеевич
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
авторНе знаю, что за ф-ция такая, но в учебнике я о ней ничего не нашел...
Искать не в учебнике надо. А кнопкой F1.
...
Рейтинг: 0 / 0
Помогите с задачками на Turbo Pascal !
    #33301755
Mihanik
Задача 1. Из заданной группы слов(я так думаю, из переменной типа string) выведите состоящее из пяти букв.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
var s,w:string; 
     i,n:integer;
begin
  readln(s);
  i:= 1 ; n:=length(s);
  while i<=n do begin
    while (i<=n) and (s[i]= ' ') do inc(i);
    w:='';
    while (i<=n) and (s[i]<>' ') do  begin   w:=w+s[i];   inc(i);   end;
    if length(w) =  5  then writeln(w);
  end;
end.
Что здесь сложного? Думать тяжело?
...
Рейтинг: 0 / 0
Помогите с задачками на Turbo Pascal !
    #33301953
--null--
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
авторНа второй, задайтесь вопросом, зачем нужен бейсик, если до него был уже
паскаль? на третий - зачем нужен паскаль, если до него уже был Си. на
четвертый - зачем нужен си, если до него... В общем, пока не доберетесь
до инженерного пульта старых машин.

могу ошибаться но по-моему хронологическая очередность появления этих языков приведена с точностью до наоборот :-)
...
Рейтинг: 0 / 0
Помогите с задачками на Turbo Pascal !
    #33302058
locky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
--null-- wrote:
> автор
> На второй, задайтесь вопросом, зачем нужен бейсик, если до него был уже
> паскаль? на третий - зачем нужен паскаль, если до него уже был Си. на
> четвертый - зачем нужен си, если до него... В общем, пока не доберетесь
> до инженерного пульта старых машин.
>
>
>
> могу ошибаться но по-моему хронологическая очередность появления этих
> языков приведена с точностью до наоборот :-)

да, дал маху... если верить Орейли, то бэйсик - 64, паскаль - 70, С - 71
год... эк меня поплющило....
--
-------------------------
There's no silver bullet!
Posted via ActualForum NNTP Server 1.3
...
Рейтинг: 0 / 0
Помогите с задачками на Turbo Pascal !
    #33302070
Фотография Lelikk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 Mihanik:
Задаваться вопросом, почему паскаль не таков как бейсик вам пока бессмысленно. Все равно что школьник будет говорить про то, что ВышМат слишком усложена, и задачи гораздо проще решаются арифметикой.

Далее, оператор ":=" -- оператор присваивания, "=" оператор сравнения, и они разные потому, что это совершенно разные операции.
Переменные следует отделять от тела программы, потому что это позволяет допускать меньше ошибок, улучшает ЧИТАЕМОСТЬ программы и повышает ее технологическую строгость. Когда ваши программы перевалят хотя бы за 1000 строк, вы это поймете.
А вообще, на основании моего опыта могу сказать, что вы не будете решать задач свободно, пока не будете мыслить в решении задачи так, как выполняет операции машина.
То есть взяв строку, подумайте, как бы вы сами искали слово, если вы можете перемещаться только от начала строки последовательно, у вас есть возможности проверки условий итд.

Успехов!
________________________________________________________
Глюк - это высокоорганизованная система не поддающихся определению частиц
...
Рейтинг: 0 / 0
Помогите с задачками на Turbo Pascal !
    #33312968
Mihanik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
всем спасибо за ответы, особенно г-ну Lelikk и г-ну , который "не очень любит студентов"=))), все задачи я решил, с последней небольшие проблемы, но я думаю, справлюсь....
...
Рейтинг: 0 / 0
Помогите с задачками на Turbo Pascal !
    #33313546
Фотография S.G.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
locky
типа, если в пасквиле написать что-то вроде
Код: plaintext
1.
2.
3.
4.
  for i :=  0  to  10  do ;
  begin
   DoSomething;
  end
то DoSomething вполнится 1 раз, а не 10, как хотелось бы.
Маленькая поправочка. Нам хотелось бы 11 раз, а не десять; и выполнится DoSomething именно 11 раз.
...
Рейтинг: 0 / 0
Помогите с задачками на Turbo Pascal !
    #33313548
Фотография S.G.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
хм, ну конечно ";" после do не должно быть.
...
Рейтинг: 0 / 0
Помогите с задачками на Turbo Pascal !
    #33314716
locky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
S.G. wrote:
> locky
>
> типа, если в пасквиле написать что-то вроде
>
> for i := *0* to *10* do ;
> begin
> DoSomething;
> end
>
> то DoSomething вполнится 1 раз, а не 10, как хотелось бы.
>
> Маленькая поправочка. Нам хотелось бы 11 раз, а не десять; и выполнится
> DoSomething именно 11 раз.
вах, ну пропустиль, бывает :-)

>хм, ну конечно ";" после do не должно быть.
не должно быть, но за счет того, что синтаксис языка такое позволяет -
возникает ашипка логики.
К примеру, кста, можно деклалрировать пустой блок begin end;
в том-же T-SQL такое делать нельзя, ибо нефиг.


--
-------------------------
There's no silver bullet!
Posted via ActualForum NNTP Server 1.3
...
Рейтинг: 0 / 0
Помогите с задачками на Turbo Pascal !
    #33315461
Фотография softwarer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Mihanikp.s. Еще хотел чтобы мне разъяснили,зачем в Паскале так усложнен синтаксис по сравнению с тем же Qbas?
Для решения более сложных задач. Здесь можно провести следующую аналогию - конструкция танка очень усложнена по сравнению с конструкцией велосипеда.
...
Рейтинг: 0 / 0
Помогите с задачками на Turbo Pascal !
    #33315532
Фотография softwarer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
locky
не должно быть, но за счет того, что синтаксис языка такое позволяет -
возникает ашипка логики.
На эту тему есть очень нравящийся мне пример - найти ошибку в

Код: plaintext
1.
2.
{
  int a =  0 , *p = &a;
  int b = a/*p;


lockyК примеру, кста, можно деклалрировать пустой блок begin end;
в том-же T-SQL такое делать нельзя, ибо нефиг.
Думаю, причины немного другие. Идеология построения большинства существующих ЯП включает в себя понятие нулевого (пустого) оператора, которое жестко связано с понятием разделителя операторов (обратите внимание - в Паскале фрагменты кода

Код: plaintext
1.
 begin   end ;

и

Код: plaintext
1.
 begin ;  end ;

означают вообще говоря разные вещи. В Фортране, а за ним и в Бейсике разделителей операторов не было (равно как и составных операторов), а когда захотели ввести операторные скобки, выяснилось, что пустого оператора нет, зато есть операторы типа BEGIN TRANSACTION или END IF - из-за чего становится более удачным запретить BEGIN END как возможную конструкцию языка.

Разумеется, в таком решении есть и минусы. Например, я иногда пишу так:

Код: plaintext
1.
2.
3.
 if  некое_простое_условие
   then   { все и так хорошо } 
   else  что_нибудь_сделать ;

В T-SQL такого не напишешь. Можно, конечно, действовать через NOT, но иногда это менее наглядно.
...
Рейтинг: 0 / 0
Помогите с задачками на Turbo Pascal !
    #33315832
locky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
softwarer wrote:
> locky
> К примеру, кста, можно деклалрировать пустой блок begin end;
> в том-же T-SQL такое делать нельзя, ибо нефиг.
>
>
> Думаю, причины немного другие. Идеология построения большинства
> существующих ЯП включает в себя понятие нулевого (пустого) оператора,
> которое жестко связано с понятием разделителя операторов (обратите
> внимание - в Паскале фрагменты кода
в T-SQL тоже можно писать ";". а можно и не писать :-)

--
-------------------------
There's no silver bullet!
Posted via ActualForum NNTP Server 1.3
...
Рейтинг: 0 / 0
Помогите с задачками на Turbo Pascal !
    #33315876
Фотография softwarer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
lockyв T-SQL тоже можно писать ";". а можно и не писать :-)
То есть там как раз нет разницы между этими вариантами :-)

Спасибо за информацию, не знал. К сожалению, Transact-SQL Help в BOL организован... не лучшим, с моей точки зрения образом, и быстро найти подобные детали мне не удается.
...
Рейтинг: 0 / 0
Помогите с задачками на Turbo Pascal !
    #33315933
Фотография S.G.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
locky
>хм, ну конечно ";" после do не должно быть.
не должно быть, но за счет того, что синтаксис языка такое позволяет -
возникает ашипка логики.
К примеру, кста, можно деклалрировать пустой блок begin end;
в том-же T-SQL такое делать нельзя, ибо нефиг.
Насчет пустого оператора- softwarer уже сказал, а насчет того что можно написать синтаксически верный код, который не будет делать то что нам надо... врядли кто нибудь в обозримом будущем придумает язык не позволяющий такое :)
...
Рейтинг: 0 / 0
Помогите с задачками на Turbo Pascal !
    #33317740
locky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
softwarer wrote:
> locky
> в T-SQL тоже можно писать ";". а можно и не писать :-)
>
> То есть там как раз нет разницы между этими вариантами :-)
>
> Спасибо за информацию, не знал. К сожалению, Transact-SQL Help в BOL
> организован... не лучшим, с моей точки зрения образом, и быстро найти
> подобные детали мне не удается.
ну, не знаю, мне БОЛ нравится... а про ; почти никто не знает :-)

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

--
-------------------------
There's no silver bullet!
Posted via ActualForum NNTP Server 1.3
...
Рейтинг: 0 / 0
Помогите с задачками на Turbo Pascal !
    #33317783
Фотография Lelikk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
locky
softwarer wrote:
> locky
> в T-SQL тоже можно писать ";". а можно и не писать :-)
>
> То есть там как раз нет разницы между этими вариантами :-)
>
> Спасибо за информацию, не знал. К сожалению, Transact-SQL Help в BOL
> организован... не лучшим, с моей точки зрения образом, и быстро найти
> подобные детали мне не удается.
ну, не знаю, мне БОЛ нравится... а про ; почти никто не знает :-)

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

--
-------------------------
There's no silver bullet!
Posted via ActualForum NNTP Server 1.3


Есть такой язык ADA)) Если ваше творение скомпилелось, то ошибок в нем почти нет.
...
Рейтинг: 0 / 0
Помогите с задачками на Turbo Pascal !
    #33317999
Фотография softwarer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
LelikkЕсть такой язык ADA)) Если ваше творение скомпилелось, то ошибок в нем почти нет.
Министерство обороны США придерживается на счет этого другого мнения; во всяком случае, я помню публикацию с довольно яркими цифрами на эту тему.

Вообще - глупость. ADA не то чтобы кардинально более надежна, нежели другие доступные сегодня решения. И примерно на ту же тему - взгляните на http://softwarer.ru/safety.html начиная со слов "В качестве панацеи в такого рода ситуациях авторы предложили задействовать принцип "Контрактного Проектирования"" и чуть ниже - "Эта точка зрения вызвала многочисленные отклики."
...
Рейтинг: 0 / 0
Помогите с задачками на Turbo Pascal !
    #33319030
Andres 1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
locky
имелось в виду, что хотелось бы иметь язык, в которым есть только один
способ написать конструкцию. а если можно написать пару видов, похожих,
но имеющих разный функционал... ниахота :-)

Это будет что-то вроде ассемблера для RISC-подобных процессоров или brainfuck ? Где единственной инструкцией для организации, например, циклов было бы сравнение с нулем и переход в случае [не]равенства?
...
Рейтинг: 0 / 0
Помогите с задачками на Turbo Pascal !
    #33319351
locky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Andres 1 wrote:
> locky
>
> имелось в виду, что хотелось бы иметь язык, в которым есть только один
> способ написать конструкцию. а если можно написать пару видов, похожих,
> но имеющих разный функционал... ниахота :-)
>
>
> Это будет что-то вроде ассемблера для RISC-подобных процессоров или
> brainfuck <http://en.wikipedia.org/wiki/Brainfuck>? Где единственной
> инструкцией для организации, например, циклов было бы сравнение с нулем
> и переход в случае [не]равенства?
да нет... в том же OP можно написать 3 варианта for
Код: plaintext
1.
2.
3.
  for I :=  0  to  10  do ;
  for i :=  0  to  10  do SomeProc;
  for I :=  0  to  10  do begin end;
в каком-то из бейсиков каждый цикл и прочая лабуда завершалась явно
Код: plaintext
1.
2.
3.
4.
5.
  for ... endfor
  while ... endwhile
  case ... endcase
  if ... endif
  try ... endtry
и т.д., что автоматом убивало некоторые виды ошибок. кроме того, так
противно иногда выискивать, к чему же именно относится вот это вот end в
тексте... понимаю, выделяем структуру, отступы, пишем комментарии... всё
так, но хочется совершентсва :-)

--
-------------------------
There's no silver bullet!
Posted via ActualForum NNTP Server 1.3
...
Рейтинг: 0 / 0
Помогите с задачками на Turbo Pascal !
    #33326452
zloy den
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
int a = 0, *p = &a;
int b = a/*p;

Тут же вроде деление на адрес указателя р делатся?
Си под рукой нет. Или там просто деление на 0?
...
Рейтинг: 0 / 0
27 сообщений из 27, показаны все 2 страниц
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Помогите с задачками на Turbo Pascal !
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]