М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Danchik2046
Danchik2046
08.07.2022 03:39 •  Информатика

Нужна ! программа паскаль! №1 в процедуре №1 создать файл, содержащий строчные буквы и латинского алфавита. в процедуре № 2 переписать существующий файл, заменяя все латинские буквы на заглавные латинские буквы, буквы на заглавные буквы. преобразования символов выполнить с функции upcase

👇
Ответ:
Anonumus671
Anonumus671
08.07.2022
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

procedure CreateFile(p:string);
begin
  var f:=OpenWrite(p);
  Writeln(f,'В чащах юга жил бы цитрус? Да, но фальшивый экземпляръ!');
  Writeln(f,'СЪЕШЬ ЖЕ ЕЩЁ ЭТИХ МЯГКИХ ФРАНЦУЗСКИХ БУЛОК, ДА ВЫПЕЙ ЧАЮ');
  Writeln(f,'ФлегмаТичНая этА веРБлЮдиЦа жует у пОДЪезда засыХающий горький шиповник');
  Writeln(f,'The quick brown fox jumps over the lazy dog');
  Writeln(f,'THE FIVE BOXING WIZARDS JUMP QUICKLY');
  f.Close
end;

procedure UpFile(p:string);
begin
  var a:=ReadAllLines(p);
  WriteAllLines(p,a.Select(s->UpperCase(s)).ToArray);
end;

begin
  var p:=ReadlnString('Введите имя файла (можно, с путём):');
  CreateFile(p);
  UpFile(p);
  // контроль работы
  ReadAllLines(p).Println(NewLine)
end.

Пример работы
Введите имя файла (можно, с путём): MyTest.txt
В ЧАЩАХ ЮГА ЖИЛ БЫ ЦИТРУС? ДА, НО ФАЛЬШИВЫЙ ЭКЗЕМПЛЯРЪ!
СЪЕШЬ ЖЕ ЕЩЁ ЭТИХ МЯГКИХ ФРАНЦУЗСКИХ БУЛОК, ДА ВЫПЕЙ ЧАЮ
ФЛЕГМАТИЧНАЯ ЭТА ВЕРБЛЮДИЦА ЖУЕТ У ПОДЪЕЗДА ЗАСЫХАЮЩИЙ ГОРЬКИЙ ШИПОВНИК
THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG
THE FIVE BOXING WIZARDS JUMP QUICKLY
4,6(80 оценок)
Открыть все ответы
Ответ:
omelyanovichni
omelyanovichni
08.07.2022

Потное задание

#include <stdio.h>

#include <stdlib.h>

#include <time.h>

 

/*

*

*  Сформировать массив из N элементов (N<50) , которыми могут быть только целые числа 0 и 1.  

*  Проверить, существует ли строгое чередование 0 и 1.

*

*/

 

#define ARR_SIZE 10

 

int main(void){

   int arr[ARR_SIZE], i;

   

   srand(time(NULL));

   

   printf("\nArray: ");

   for ( i = 0; i < ARR_SIZE; ++i )

       printf("%d ", (arr[i] = rand() % 2));

   

   for ( i = 1; i < ARR_SIZE && arr[i] != arr[i-1]; ++i )

       ;

   printf("\nIs %s\n", ( i == ARR_SIZE ) ? "good" : "bad");

   

   return 0;

}

4,7(25 оценок)
Ответ:
palienkoana
palienkoana
08.07.2022

1.Датчик цвета — это цифровой датчик, который может определять цвет или яркость света, поступающего в небольшое окошко на лицевой стороне датчика . Этот датчик может работать в трех разных режимах: в режиме «Цвет», в режиме «Яркость отраженного света» и в режиме «Яркость внешнего освещения» .

2.незнаю

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

4,6(88 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ