- Главная
- Разное
- Бизнес и предпринимательство
- Образование
- Развлечения
- Государство
- Спорт
- Графика
- Культурология
- Еда и кулинария
- Лингвистика
- Религиоведение
- Черчение
- Физкультура
- ИЗО
- Психология
- Социология
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Маркетинг
- Математика
- Медицина
- Менеджмент
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, картинки для презентаций
- Экология
- Экономика
- Юриспруденция
Что такое findslide.org?
FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.
Обратная связь
Email: Нажмите что бы посмотреть
Презентация на тему Процедуры и функции обработки строковых данных в Паскаль
Содержание
- 2. Задача 1Определить разрядность числа, рассмотрев два варианта:Работа со строковыми даннымиРабота с числовыми данными
- 3. ПрограммаProgram prim1;Var s: string;x, k: integer;BeginWriteln('введите число');Readln(x);Str(
- 4. Задача 2Составить программу перевода десятичного числа в двоичное
- 5. Var s1,s2: string; k,x,a:integer;begin write('a='); readln(a);
- 6. Задача 3Составить программу перевода десятичного числа в n систему счисления (n
- 7. Var s1,s2: string; n,k,x,a: integer;begin write('Введите
- 8. Задача 4Составить программу определения возраста человека по дате рождения и текущему году
- 9. program string8;var s1,s2:string; n,g, let:integer;begin
- 10. Скачать презентацию
- 11. Похожие презентации
Задача 1Определить разрядность числа, рассмотрев два варианта:Работа со строковыми даннымиРабота с числовыми данными
Слайд 3
Программа
Program prim1;
Var s: string;
x, k: integer;
Begin
Writeln('введите число');
Readln(x);
Str( x,
s);
k:=length(s);
Writeln('в числе ',k,' цифр');
End.
Program prim1_Ch;
Var a, x, k :
integer;Begin
Writeln('введите число');
Readln (a);
X:=a; k:=0;
While x>0 do begin
K:=k+1;
X:= x div 10;
End;
Writeln (a, ' - ', k ,' значное число');
End.
Слайд 5
Var s1,s2: string;
k,x,a:integer;
begin
write('a=');
readln(a);
s1:=
'';
x:=a;
While x>0 do
begin
k:= x mod 2;str (k,s2);
s1:=s2+s1;
X:= x div 2;
End;
writeln(a, s1:10);
end.
Слайд 7
Var s1,s2: string;
n,k,x,a: integer;
begin
write('Введите десятичное
число');
readln(a);
write('Введите основание системы счисления для перевода');
readln(n);
s1:= '';x:=a;
While x>0 do
begin
k:= x mod n;
str (k,s2);
s1:=s2+s1;
X:= x div n;
End;
writeln(a, s1:20);
end.
Слайд 9
program string8;
var s1,s2:string;
n,g, let:integer;
begin
s1:='23.02.1995';
s2:=copy(s1,7,4);
val(s2,g,n);
let:=2015-g;writeln(let);
end.
