Практическая работа №3.

Тема: "Строковые и логические величины в языке Pascal»".

Цель: научиться работать со строковыми и логическими величинами в программе.

Ход работы:

Задание 1. Составить программу, определяющую длину введенного вами слова.

1. Откройте среду программирования Pascal.

2. Введите программу:

program dlina;

uses crt;

var s: string; t:integer;

begin

clrscr;

writeln (‘Введите произвольное слово’);

readln (s);

t:=length(s);

writeln (‘длина слова равна’,t);

readkey;

end.

3. Проверьте программу на наличие ошибок и запустите на выполнение.

Задание 2. Составить программу, определяющую истинность высказывания "Число n является четным"

program chetn;

uses crt;

var n: integer; a: boolean;

begin

clrscr;

write ('Введите исходное число');

readln (n);

a:=n mod 2=0;

writeln ('Число ', n,' является четным - ', a);

readkey;

end.

Самостоятельная работа

1. Склеить 2 произвольно введенных слова.

Жақсы жағыда, жаман жағыда бар. Мысалға мектеп те, универде интернетке кіріп шаруаларыңды бітіріп алуға болады. Сымсыз байланыс. Ал жаман жағы 

Ғалымдар мұндай шешімге мектеп оқушыларына жүргізілген зерттеуден кейін келді. Олар оқушылар ұйқыға жатқанда жастықтарының астына Wi-Fi желісі қосылған смартфондар салып жүрген. Ертеңінде балалардың денсаулық жағдайын тексеріп, оқушылардан бас ауруды, шаршағандықты байқаған.

Сонымен қатар, үйінде Wi-Fi желісін пайдаланушылар өзінің бөлме өсімдіктеріне назар аударулары тиіс. Өйткені жүргізілген тәжірибе негізінде Wi-Fi желісі өсімдіктерді құртатыны дәлелденді. Қосулы Wi-Fi-модемімен бір бөлмеде тұрған 6 өсімдік түрі 12 күнде-ақ құрғап, сарғая бастаған.

Өңдеу

Кодтау (кодирование; coding; кодировать; encode) — мәліметтерді олардың алдын ала тағайындадған кодтық комбинацияларымен бейнелеу немесе мәліметтер элементін (символдар жиынын) олардың кодтық комбинацияларымен сәйкес келтіру; программалау процесі; 2) ақпараттың 8 биттік (байттық) кодтауын 7 биттік кодтауға түрлендіру. Мұндай түрлендірудің қажеттілігі кейбір желілік программалардың мәліметтерді тек 7 биттік кодтауда жеткізе алатындығынан туындайды. Байттық мәліметгерді осындай арналармен тікелей жеткізу ақпараттың бұрмалануына жол береді; 3) белгілі бір ереже бойынша дискреттік хабарды дискреттік сигнал түріне түрлендіру (аудармалау), яғни шарттаңбаларды қолдану.

Объяснение:

■■