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

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

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

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

Недавнее содержимое от DjDeniels-61

  1. D

    Проверьте пожалуйста!!!

    Проверьте пожалуйста!!! В существующем типизированном файле, элементами которого являются отдельные слова, изменить на заданное слово: первое слово. program a; uses crt; Type t=record d:string; end; var f: file of t; st:t; i:integer; begin clrscr; assign(f,'File.txt'); rewrite(F)...
  2. D

    Переделайте на паскаль АВС...

    Переделайте на паскаль АВС... Изобразить солнце с мерцающими лучами Uses Graph,crt; Var grDriver : Integer; grMode : Integer; ErrCode : Integer; x,y,i:integer; Begin grDriver:=Detect; InitGraph(grDriver, grMode, 'D:\'); ErrCode:=GraphResult; x:=getmaxx div 2; y:=getmaxy...
  3. D

    Паскаль, файлы, можете проверить?

    Cпасибо))
  4. D

    Паскаль, файлы, можете проверить?

    Паскаль, файлы, можете проверить? Имеется текстовый файл. Найти: количество строк, начинающихся с буквы «А» и «а» program pr1; uses crt; const n=3; var f : text; i,j : integer; str : string; begin clrscr; j:= 0; assign(f,'test.txt'); rewrite(f); for i:=1 to n do begin writeln('Ввeдите словo...
  5. D

    Паскаль, графика. Помогите!

    Паскаль, графика. Помогите! Буду признателен,помогите... 1)F(x,y)=x3-27(x-y)2=0 Построить график указанной функции. 2)Изобразить солнце с мерцающими лучами Заранее огромное спасибо!!!!
  6. D

    Паскаль!!! Проверьте...

    Спасибо большое))))
  7. D

    Паскаль!!! Проверьте...

    Можете исправить ощибки,плизз,напишите как правильно..
  8. D

    Паскаль!!! Проверьте...

    Паскаль!!! Проверьте... Program an4isel; FUNCTION X2n (X:Extended; n:INTEGER):Extended; Var i:INTEGER; Y:Extended; BEGIN IF n=0 THEN X2n:=1 ELSE IF n=1 THEN X2n:=X ELSE BEGIN Y:=X; FOR i:=2 TO n DO Y:=Y*X; X2n:=Y; END; END. Условие: Написать рекурсивную функцию для рачета степени n...
  9. D

    Паскаль. Помогите.

    я к вам и обратился,потому что сам не знаю...а сдавать то надо как то...
  10. D

    Паскаль. Помогите.

    Решить задачу спомошью строк,а не файлов,вот в чем проблема... А DjDeniels-61 это он же SvarovskI...
  11. D

    Паскаль. Помогите.

    пасибо,все работает,на будущее буду знать как делать,но мне нужно написать программу на строки,а не на файлы...
  12. D

    Паскаль. Помогите.

    Я вот не пойму почему в обоих программах ты сначало пишешь ReSet, а потом ReWrite,вроде бы должно быть наоборот,он как раз и выдает ошибку на этом месте в программах.. И вроде бы эти команды на файлы,а не на строки...
  13. D

    Паскаль, строки

    Паскаль, строки Помогите,пожалуйста. Из множества латинских букв выделите множество состоящее из символов не входящих в множество символов составляющих имя Денис. Вывести это множество на экран. Заранее ограмное спасибо!!!
  14. D

    Паскаль, файлы, помогите, плизззззззз...

    Паскаль, файлы, помогите, плизззззззз... Помогите,плиз оч нужно на экзамен.... 1)Имеется текстовый файл. Найти: количество строк, начинающихся с буквы «А» и «а». 2)в существующем типизированном файле,элементами которого явл. отдельные слова, изменить на заданное слово: первое слово. Заранее...
  15. D

    Паскаль,тоже очень надо...

    Все пасибо разобрался! Но появилась новая проблемка,поможешь? 1)определить,сколько фамилий в списке имеют окончание "ов". 2)Данны два слова одинаковой длины. присвоить переменной К число,равное кол-ву попарно одинаковых букв.
Назад
Сверху