Составьте программу вывода на экран песочных часов

@Grex · Регистрация: 03.12.2008

Author24 — интернет-сервис помощи студентам

1. Напишите программу замены в тексте всех букв "a" на "o" и наоборот.
2.(вычислите A1+2A2+3A3+...nAn ( число после А - А один , А два , А три и т.д.))- задание 5.
Тоже , что в заданиии 5 , но при активизации любого пункта меню , на экранеформируется и сохраняется только одно окно, соответсятвующее этому пункту.
3.Составьте программу вывода на экран песочных часов. При нажатии клавиши Enter моделируется процесс падения песчинок , уменьшение уровня песка в верхней части колбы и его увеличение в нижней части колбы.

Заранее благодарен.

@Викдон · 03.12.2008, 13:36

в каком именно тексте? текст из файлп читать или просто вводить строку?

Добавлено через 46 минут 5 секунд
для файла:

Код

var s:char;
    input_file,output:text;

begin
assign(input_file,'C:/1.txt');
assign(output,'C:/2.txt');
{$I-}
reset(input_file);
  if ioresult <> 0 then
   begin
    write('Нет входного файла');
    readln;
   end;
rewrite(output);
  while not eof(input_file) do
   begin
    while not eoln(input_file)  do
     begin
      read(input_file,s);
       if s='a' then
        s:='o'
       else if s='o' then
        s:='a';
       write(output,s);
      end; {eoln}
     readln(input_file);
   end; {eof}


close(output);
close(input_file);

readln;

@Grex · 03.12.2008, 14:06 **[ТС]**

Просто вводить строку.

@Викдон · 03.12.2008, 19:15

Для строки: (буквы использованы английские, для русских запишешь русские)

Pascal

var stroka:string;
begin
write('Введите строку');
readln(Stroka);
 
  for i:=1 to length(Stroka) do
    if Stroka[i]='a' then
      Stroka[i]:='o'
    else Stroka[i]='o' then
      Stroka[i]:='a';
  
write('Итоговая строка: 'Stroka);
readln;
 
end.

Новые блоги и статьи
Как конвертировать видео в GIF hw_wired 24.01.2025 В современном мире анимированные изображения стали неотъемлемой частью цифровой коммуникации. Формат GIF (Graphics Interchange Format) представляет собой особый тип файлов, который позволяет. . .	Как скопировать текст в буфер обмена на JavaScript во всех браузерах hw_wired 24.01.2025 Копирование текста в буфер обмена стало неотъемлемой частью современных веб-приложений, значительно улучшающей пользовательский опыт и упрощающей работу с контентом. В эпоху активного обмена. . .	Как скрыть клавиатуру на Android hw_wired 24.01.2025 При разработке Android-приложений часто возникает необходимость управлять видимостью экранной клавиатуры для улучшения пользовательского опыта. Одним из наиболее эффективных способов контроля. . .	Как обучить нейросеть создания картинок на Python bytestream 24.01.2025 В эпоху цифровых технологий искусственный интеллект становится неотъемлемой частью творческого процесса. Особое место в этой области занимает разработка и обучение нейронных сетей для создания. . .	Как обучить нейросеть генерации текста на Python bytestream 24.01.2025 В современном мире искусственный интеллект и машинное обучение становятся неотъемлемой частью многих технологических решений. Одной из наиболее интересных и востребованных задач в этой области. . .	Машинное обучение на Python bytestream 24.01.2025 Введение в машинное обучение на Python Машинное обучение представляет собой одну из наиболее динамично развивающихся областей информационных технологий, которая позволяет компьютерным системам. . .
Как удалить вирус-майнер с компьютера hw_wired 24.01.2025 Вирусы-майнеры стали одной из наиболее серьезных угроз для пользователей компьютеров. Эти вредоносные программы тайно используют вычислительные ресурсы зараженного устройства для добычи криптовалюты. . .	Что такое веб-сервер, для чего он нужен и как работает bytestream 24.01.2025 В современную эпоху цифровых технологий веб-сервер является фундаментальным компонентом интернет-инфраструктуры, обеспечивающим функционирование множества онлайн-сервисов и веб-сайтов. Этот. . .	Как в цикле for перебрать все элементы в словаре в Python bytestream 24.01.2025 Словари в Python представляют собой мощные структуры данных, которые позволяют хранить информацию в формате ключ-значение. Эта особенность делает их незаменимыми при работе с данными, где требуется. . .	Как отменить rebase в Git hw_wired 24.01.2025 Git rebase представляет собой мощный инструмент для управления историей коммитов в системе контроля версий Git. Этот механизм позволяет разработчикам изменять последовательность, комбинировать или. . .	Как поменять цвет input placeholder с помощью CSS bytestream 24.01.2025 В веб-разработке оформление элементов пользовательского интерфейса играет ключевую роль в создании привлекательного и интуитивно понятного дизайна. Особое внимание уделяется формам ввода данных, где. . .	Как перебрать все значения в перечислении (enum) в C# bytestream 24.01.2025 Перечисление (enum) в языке программирования C# представляет собой специальный тип данных, который позволяет определить набор именованных констант. Этот мощный инструмент особенно полезен, когда. . .

@Grex 1 / 1 / 0 Регистрация: 03.12.2008 Сообщений: 55
		1
	Составьте программу вывода на экран песочных часов 03.12.2008, 12:35. Показов 1817. Ответов 3 Метки нет (Все метки) 1. Напишите программу замены в тексте всех букв "a" на "o" и наоборот. 2.(вычислите A1+2A2+3A3+...nAn ( число после А - А один , А два , А три и т.д.))- задание 5. Тоже , что в заданиии 5 , но при активизации любого пункта меню , на экранеформируется и сохраняется только одно окно, соответсятвующее этому пункту. 3.Составьте программу вывода на экран песочных часов. При нажатии клавиши Enter моделируется процесс падения песчинок , уменьшение уровня песка в верхней части колбы и его увеличение в нижней части колбы. Заранее благодарен. 0

@Grex 1 / 1 / 0 Регистрация: 03.12.2008 Сообщений: 55
	03.12.2008, 14:06 [ТС]	3
	Просто вводить строку. 0

	03.12.2008, 19:15

Опции темы