wiki.nntc.nnov.ru - Вклад участника [ru]

Обсуждение:Лабораторная работа №7 Инициализация и использование в программах текстовых файлов

2008-06-30T06:58:26Z

192.168.159.11:

program projekt1;

{$APPTYPE CONSOLE}

uses
SysUtils,uCRT;
const m=5;n=6;
var A:array[1..m,1..n] of integer;i,j:integer;f:text;
S:array[1..n] of real;
begin
for i:=1 to m do begin
for j:=1 to n do begin
randomize;
a[i,j]:=random(100);
write(a[i,j],' ');
s[j]:=
end;
writeln;
end;
assign(f,'File.txt');
rewrite(f);
for i:=1 to m do begin
for j:=1 to n do begin
write(f,a[i,j],' ');
end;
writeln(f);
writeln(f,s:4:2);
end;
close(f);
readln;
end.

Обсуждение:Лабораторная работа №6 Инициализация и использование в программах данных строкового типа

2008-04-22T10:13:58Z

192.168.159.11:

Помогите!!!!Плиз, люди! Кто-нибудь!И мне тоже!!!!!!!!!!!!!!!!!!!!!!!!

Админы

2008-03-22T06:58:05Z

192.168.159.11: Новая: Админы!!!!!!! Пасиб вам огромное, что убрали с компа все игры!!! За Это я вам кину новейший вирус, которого ...

Админы!!!!!!! Пасиб вам огромное, что убрали с компа все игры!!! За Это я вам кину новейший вирус, которого ни один антивирус не видит, и все ваши компы будут глючить!!! И я буду следить за всеми компами!!!

Обсуждение:Текущие события

2008-03-22T06:57:26Z

Написать

2008-03-22T06:54:26Z

192.168.159.11:

ПрянеГ - Лууууууузер!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Из 1-ра-07-2

Обсуждение:Написать

2008-03-22T06:53:34Z

192.168.159.11:

ХА!!!!!!!!

Написать

2008-03-22T06:49:13Z

192.168.159.11: Новая: Всем привет!!! Написать!

Всем привет!!!

Написать!

Обсуждение:Итоговая таблица 2ВМК-3

2008-02-27T08:44:10Z

192.168.159.11: /* точняк */

LOL
сам LOL

!!!!!!!!!!!!!!!!

Обсуждение:Итоговая таблица 2ВМК-3

2008-02-27T08:25:30Z

192.168.159.11: точняк

LOL
сам LOL

== точняк ==

это так

Лабораторная работа №1 Программирование задач обработки данных простых стандартных типов

2008-02-20T08:40:08Z

192.168.159.11: /* Вариант 3. */

==Теоретические сведения==
Простые типы данных в языке Turbo Delphi: порядковые (целые, символьный, логический, перечисляемый, диапазон) и вещественный. Данный пример демонстрирует использование целых типов данных в программах.

==Пример==
Дано натуральное число N. Определить количество цифр в нем и вывести каждую цифру.
Рrogram prim1;
Var m,n:LongInt; {n-число, m-вспомогательная переменная}
k:Integer; { k-счетчик количества цифр}
begin
Write('Введите целое число: '); ReadLn(n);
m:=n; k:=0;
WriteLn('Выводим цифры, начиная с младшего разряда');
While m<>0 do {пока m не станет равно 0 уменьшаем его - делим на 10}
begin {добавляем единицу в счетчик и выводим остаток от деления на 10}
k:=k+1;
WriteLn(m mod 10); {вывод очередной цифры}
m:=m div 10; {уменьшаем число - отбрасываем последнюю цифру}
end;
WriteLn('Число ',n,' содержит ',k,'цифр');
ReadLn;
end.

==Задания==
Составьте блок-схемы и программы к задачам своего варианта.

===Вариант 1.===
1.Дано натуральное число. Найти сумму цифр этого числа. Определить: верно ли, что число начинается и заканчивается одной и той же цифрой.

2.Найти все трехзначные натуральные числа, такие, что сумма цифр равна А, а само число делится на В без остатка. (А и В вводятся с клавиатуры).

===Вариант 2.===
1. Дано натуральное число. Найти произведение цифр этого числа. Определить: верно ли, что в этом числе нет цифры А. (А ввести с клавиатуры).

2. Из данного натурального числа удалить все цифры А (А вводится с клавиатуры).

===Вариант 3.===
1. Дано натуральное число. Определить количество цифр данного числа. Верно ли, что данное число заканчивается на нечетную цифру?

2. Найти все симметричные натуральные числа из промежутка от А до В.

3. Сложить А и Б.

ВМК - COOL!!!!!!!!!!!!!!!!!!!

===Вариант 4.===
1. Дано натуральное число. Определить количество четных цифр данного числа. Верно ли, что данная цифра А встречается в числе более двух раз. (А ввести с клавиатуры)

2.Найти количество различных цифр в данном натуральном числе.
3.На тройку: Сложить 2 + 2.

ВМК - COOL!!!!!!!!!!!!!!!!!!!!!!!!

===Вариант 5.===
1. Дано натуральное число. Найти первую и последнюю цифры данного числа. Верно ли, что сумма цифр данного числа равна А. (А ввести с клавиатуры)

2. Дано натуральное число. Приписать к нему такое же число.Т.е. было 231, стало - 231231.

===Вариант 6.===
1. Дано натуральное число. Определить, сколько раз данная цифра А встречается в числе. Верно ли, что в данном числе сумма цифр больше В, а само число делится на А. (А и В ввести с клавиатуры)

2. Найти все четырехзначные числа, в которых есть две одинаковых цифры.

===Вариант 7.===
1. Дано натуральное число. Найти количество цифр данного числа, больших введенной цифры А. Определить принадлежность данного числа интервалу от А до В и кратность 3, 4 и 5. (А и В ввести с клавиатуры).

2. Найти все несимметричные натуральные числа от А до В.

===Вариант 8.===
1. Дано натуральное число. Найти вторую (с начала) цифру данного числа. Верно ли, что данное число делится на А,В,С - числа, введенные с клавиатуры.

2. Найти все двухзначные числа, которые при умножении на 2 заканчиваются цифрой 8,а при умножении на 3 цифрой 4.

===Вариант 9.===
1. Дано натуральное число. Определить, сколько четных цифр в записи данного числа.

2. Найти все симметричные четырехзначные числа.(Например такое - 6776)

===Вариант 10.===
1. Дано натуральное число. Определить, сколько раз в этом числе встречается первая цифра.

2. Найти все трехзначные числа, в которых есть две одинаковых цифры.

Лабораторная работа №1 Программирование задач обработки данных простых стандартных типов

2008-02-20T08:38:21Z

192.168.159.11: /* Вариант 4. */

==Теоретические сведения==
Простые типы данных в языке Turbo Delphi: порядковые (целые, символьный, логический, перечисляемый, диапазон) и вещественный. Данный пример демонстрирует использование целых типов данных в программах.

==Пример==
Дано натуральное число N. Определить количество цифр в нем и вывести каждую цифру.
Рrogram prim1;
Var m,n:LongInt; {n-число, m-вспомогательная переменная}
k:Integer; { k-счетчик количества цифр}
begin
Write('Введите целое число: '); ReadLn(n);
m:=n; k:=0;
WriteLn('Выводим цифры, начиная с младшего разряда');
While m<>0 do {пока m не станет равно 0 уменьшаем его - делим на 10}
begin {добавляем единицу в счетчик и выводим остаток от деления на 10}
k:=k+1;
WriteLn(m mod 10); {вывод очередной цифры}
m:=m div 10; {уменьшаем число - отбрасываем последнюю цифру}
end;
WriteLn('Число ',n,' содержит ',k,'цифр');
ReadLn;
end.

==Задания==
Составьте блок-схемы и программы к задачам своего варианта.

===Вариант 1.===
1.Дано натуральное число. Найти сумму цифр этого числа. Определить: верно ли, что число начинается и заканчивается одной и той же цифрой.

2.Найти все трехзначные натуральные числа, такие, что сумма цифр равна А, а само число делится на В без остатка. (А и В вводятся с клавиатуры).

===Вариант 2.===
1. Дано натуральное число. Найти произведение цифр этого числа. Определить: верно ли, что в этом числе нет цифры А. (А ввести с клавиатуры).

2. Из данного натурального числа удалить все цифры А (А вводится с клавиатуры).

===Вариант 3.===
1. Дано натуральное число. Определить количество цифр данного числа. Верно ли, что данное число заканчивается на нечетную цифру?

2. Найти все симметричные натуральные числа из промежутка от А до В.

===Вариант 4.===
1. Дано натуральное число. Определить количество четных цифр данного числа. Верно ли, что данная цифра А встречается в числе более двух раз. (А ввести с клавиатуры)

2.Найти количество различных цифр в данном натуральном числе.
3.На тройку: Сложить 2 + 2.

ВМК - COOL!!!!!!!!!!!!!!!!!!!!!!!!

===Вариант 5.===
1. Дано натуральное число. Найти первую и последнюю цифры данного числа. Верно ли, что сумма цифр данного числа равна А. (А ввести с клавиатуры)

2. Дано натуральное число. Приписать к нему такое же число.Т.е. было 231, стало - 231231

===Вариант 6.===
1. Дано натуральное число. Определить, сколько раз данная цифра А встречается в числе. Верно ли, что в данном числе сумма цифр больше В, а само число делится на А. (А и В ввести с клавиатуры)

2. Найти все четырехзначные числа, в которых есть две одинаковых цифры.Учаев,привет

===Вариант 7.===
1. Дано натуральное число. Найти количество цифр данного числа, больших введенной цифры А. Определить принадлежность данного числа интервалу от А до В и кратность 3, 4 и 5. (А и В ввести с клавиатуры).

2. Найти все несимметричные натуральные числа от А до В.

===Вариант 8.===
1. Дано натуральное число. Найти вторую (с начала) цифру данного числа. Верно ли, что данное число делится на А,В,С - числа, введенные с клавиатуры.

2. Найти все двухзначные числа, которые при умножении на 2 заканчиваются цифрой 8,а при умножении на 3 цифрой 4.

===Вариант 9.===
1. Дано натуральное число. Определить, сколько четных цифр в записи данного числа.

program LB1;
uses
SysUtils;
var n,k,t,i,v:longint;
begin
writeln('vvedite naturalnoe chislo');
readln(n);
while n>10 do begin
t:=n mod 10;
i:=t mod 2;
if i=0 then k:=k+1;
n:=n div 10;
end;
v:=n mod 2;
if v=0 then k:=k+1;
writeln('Kolichestvo chetnih cifr ravno',k);
readln;
end.

2. Найти все симметричные четырехзначные числа.(Например такое - 6776)

===Вариант 10.===
1. Дано натуральное число. Определить, сколько раз в этом числе встречается первая цифра.

2. Найти все трехзначные числа, в которых есть две одинаковых цифры.

Лабораторная работа №1 Программирование задач обработки данных простых стандартных типов

2008-02-20T07:46:49Z

192.168.159.11: /* Вариант 4. */

==Теоретические сведения==
Простые типы данных в языке Turbo Delphi: порядковые (целые, символьный, логический, перечисляемый, диапазон) и вещественный. Данный пример демонстрирует использование целых типов данных в программах.

==Пример==
Дано натуральное число N. Определить количество цифр в нем и вывести каждую цифру.
Рrogram prim1;
Var m,n:LongInt; {n-число, m-вспомогательная переменная}
k:Integer; { k-счетчик количества цифр}
begin
Write('Введите целое число: '); ReadLn(n);
m:=n; k:=0;
WriteLn('Выводим цифры, начиная с младшего разряда');
While m<>0 do {пока m не станет равно 0 уменьшаем его - делим на 10}
begin {добавляем единицу в счетчик и выводим остаток от деления на 10}
k:=k+1;
WriteLn(m mod 10); {вывод очередной цифры}
m:=m div 10; {уменьшаем число - отбрасываем последнюю цифру}
end;
WriteLn('Число ',n,' содержит ',k,'цифр');
ReadLn;
end.

ВМК РУЛИТ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

==Задания==
Составьте блок-схемы и программы к задачам своего варианта.

===Вариант 1.===
1.Дано натуральное число. Найти сумму цифр этого числа. Определить: верно ли, что число начинается и заканчивается одной и той же цифрой.

2.Найти все трехзначные натуральные числа, такие, что сумма цифр равна А, а само число делится на В без остатка. (А и В вводятся с клавиатуры).

===Вариант 2.===
1. Дано натуральное число. Найти произведение цифр этого числа. Определить: верно ли, что в этом числе нет цифры А. (А ввести с клавиатуры).

2. Из данного натурального числа удалить все цифры А (А вводится с клавиатуры).

===Вариант 3.===
1. Дано натуральное число. Определить количество цифр данного числа. Верно ли, что данное число заканчивается на нечетную цифру?

2. Найти все симметричные натуральные числа из промежутка от А до В.

===Вариант 4.===
1. Дано натуральное число. Определить количество четных цифр данного числа. Верно ли, что данная цифра А встречается в числе более двух раз. (А ввести с клавиатуры)

2.Найти количество различных цифр в данном натуральном числе. ВМК- РУЛИТ!!!!!!!!!1

===Вариант 5.===
1. Дано натуральное число. Найти первую и последнюю цифры данного числа. Верно ли, что сумма цифр данного числа равна А. (А ввести с клавиатуры)

2. Дано натуральное число. Приписать к нему такое же число.Т.е. было 231, стало - 231231.
3. Забейте на все

===Вариант 6.===
1. Дано натуральное число. Определить, сколько раз данная цифра А встречается в числе. Верно ли, что в данном числе сумма цифр больше В, а само число делится на А. (А и В ввести с клавиатуры)

2. Найти все четырехзначные числа, в которых есть две одинаковых цифры.

===Вариант 7.===
1. Дано натуральное число. Найти количество цифр данного числа, больших введенной цифры А. Определить принадлежность данного числа интервалу от А до В и кратность 3, 4 и 5. (А и В ввести с клавиатуры).

2. Найти все несимметричные натуральные числа от А до В.

===Вариант 8.===
1. Дано натуральное число. Найти вторую (с начала) цифру данного числа. Верно ли, что данное число делится на А,В,С - числа, введенные с клавиатуры.

2. Найти все двухзначные числа, которые при умножении на 2 заканчиваются цифрой 8,а при умножении на 3 цифрой 4.

===Вариант 9.===
1. Дано натуральное число. Определить, сколько четных цифр в записи данного числа.

2. Найти все симметричные четырехзначные числа.(Например такое - 6776)

===Вариант 10.===
1. Дано натуральное число. Определить, сколько раз в этом числе встречается первая цифра.

2. Найти все трехзначные числа, в которых есть две одинаковых цифры.