Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/9: Рейтинг темы: голосов - 9, средняя оценка - 4.89
Юльk@
0 / 0 / 0
Регистрация: 21.04.2010
Сообщений: 21
#1

Напечатать фамилии студентов, имеющих наименьший возраст

22.05.2010, 20:48. Просмотров 1659. Ответов 6
Метки нет (Все метки)

1)Даны три числа. Написать программу, подсчитывающую количество чисел, равных 0.
2)Дано натуральное число:
- найти количество цифр данного числа;
- верно ли, что данное число заканчивается на нечётную цифру.
3) Найти все натуральные числа а, b и с из интервала от 1 до 20, для которых выполняется равенство: a+b2=c2.
4)Заданы два массива A и B одинаковой размерности.
Вычислить массив , компоненты которого определяются по формулам:
5). По заданной матрице A размерностью n*m сформировать вектор z размерностью n,. состоящий из максимальных элементов строк матрицы.
6)Создать файл, содержащий фамилии студентов и их возраст. Напечатать фамилии студентов, имеющих наименьший возраст.
7)Подсчитать число предложений в заданном текстовом файле (текст на английском языке). Предложением считается последовательность символов, начинающихся с пробела и прописной буквы и заканчивающихся точкой.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.05.2010, 20:48
Ответы с готовыми решениями:

Файлы. Напечатать имена людей, имеющих наименьший возраст
В файле записана информация о группе людей, содержащих имя и возраст каждого из...

В массиве F(n) записаны фамилии студентов, в массивах A(n), B(n), C(n) - их оценки за экзамены летней сессии. Напечатать фамилии двоечников
В массиве F(n) записаны фамилии студентов, в массивах A(n), B(n), C(n) - их...

Составить программу, печатающую фамилии студентов, имеющих задолженность хотя бы по одному предмету
В деканате хранится информация о зимней сессии на 1 курсе (фамилия, номер...

Ввести свой возраст. Если возраст больше 18 лет, то напечатать фразу «ты- совершеннолетний», иначе напечатать – «до совершеннолетия осталось столько-т
Ввести свой возраст. Если возраст больше 18 лет, то напечатать фразу «ты-...

Напечатать фамилии студентов и их оценки
С клавиатуры считуются фамилии студентов и их оценки с математики. Напечатать...

6
STGE
771 / 576 / 324
Регистрация: 17.06.2009
Сообщений: 1,188
22.05.2010, 21:24 #2
1.
Pascal
1
2
3
4
5
6
7
8
9
10
var a,b,c: longint; k: byte;
begin
write('введите три числа: ');
readln(a,b,c);
if a=0 then inc(k);
if b=0 then inc(k);
if c=0 then inc(k);
if k=0 then writeln('среди чисел нет равных нулю')
else writeln('количество чисел равных нулю = ',k);
end.
2.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var a,b: longint; k: byte;
begin
write('введите значение параметра: ');
readln(a);
b:=a;
k:=1;
while a<>0 do
begin
if a div 10 > 0 then inc(k);
a:=a div 10;
end;
writeln('кол-во цифр, которые содержит число = ',k);
if odd(b mod 10) then writeln('действительно, заданное число заканчивается на нечётную цифру')
else writeln('число заканчивается на чётную цифру');
end.
3.
Pascal
1
2
3
4
5
6
7
8
9
var a,b,c: byte;
begin
writeln('уравнению a+2*b=2*c удовлетворяют следующие наборы чисел:');
for a:=1 to 20 do
for b:=1 to 20 do 
for c:=1 to 20 do
if a+b*2=c*2 then
writeln(a,'    ',b,'    ',c);
end.
Добавлено через 4 минуты
5.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
uses crt;
const n=5; m=6;
var a: array[1..n,1..m] of integer; b: array[1..m] of integer; i,j: byte; max: integer;
begin
randomize;
clrscr;
writeln('исходный массив: ');
for i:=1 to n do
begin
for j:=1 to m do
begin 
a[i,j]:=random(19)-9;
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to n do
begin
max:=a[i,1];
for j:=2 to m do
if a[i,j]>max then max:=a[i,j];
b[i]:=max;
end;
writeln('массив максимумов строк: ');
for i:=1 to m do
write(b[i]:4);
end.
0
Юльk@
0 / 0 / 0
Регистрация: 21.04.2010
Сообщений: 21
22.05.2010, 21:28  [ТС] #3
Спасибище!!!!! =)
0
STGE
771 / 576 / 324
Регистрация: 17.06.2009
Сообщений: 1,188
22.05.2010, 21:43 #4
6.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
uses crt;
const n=5;
type a=record
fam: string;
age: byte;
end;
var mas: array[1..n] of a; f: file of a; i,min: byte;
begin
clrscr;
writeln('введите данные о студентах: ');
for i:=1 to n do
begin
write('фамилия ',i,'-ого студента: ');
readln(mas[i].fam);
write('его возраст: ');
readln(mas[i].age);
end;
assign(f,'file.bin');
rewrite(a);
for i:=1 to n do
write(f,mas[i]);
close(f);
min:=mas[1].age;
for i:=2 to n do
if mas[i]<min then min:=mas[i].age;
writeln('наименьший возраст имеют следующие студенты:');
for i:=1 to n do
if mas[i].age=min then write(mas[i].age:4);
end.
Добавлено через 10 минут
7. Ну я бы не сказал, что предложение заканчивается только точкой.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
uses crt;
var s: string; k,i: byte; f: text;
begin
assign(f,'file.txt');
reset(f);
read(f,s);
close(f);
writeln('исходная строка: ',s);
for i:=1 to length(s) do
if s[i]='.' then inc(k);
writeln('она содержит ',k,' предложений');
end.
0
Юльk@
0 / 0 / 0
Регистрация: 21.04.2010
Сообщений: 21
22.05.2010, 21:47  [ТС] #5
Заданы два массива A и B одинаковой размерности.
Вычислить массив , компоненты которого определяются по формулам:
c[i]= 4[i],если a[i]>b[i]
4b[i]<=a[i]
0
STGE
771 / 576 / 324
Регистрация: 17.06.2009
Сообщений: 1,188
22.05.2010, 22:01 #6
4.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
uses crt;
const n=5;
var a,b,c: array[1..n] of integer; i: byte;
begin
randomize;
clrscr;
writeln('исходные массивы: ');
for i:=1 to n do
begin
a[i]:=random(19)-9;
write(a[i]:3);
end;
writeln;
for i:=1 to n do
begin
b[i]:=random(19)-9;
write(b[i]:3);
end;
for i:=1 to n do
if a[i]>b[i] then c[i]:=4*a[i]
else c[i]:=4*b[i];
writeln('результирующий массив: ');
for i:=1 to n do
write(c[i]:3);
end.
0
Юльk@
0 / 0 / 0
Регистрация: 21.04.2010
Сообщений: 21
23.05.2010, 09:15  [ТС] #7
168.Составить программу, сокращающую обыкновенные дроби.
179.Бизнесмен взял ссуду m тысяч рублей в банке под 20% годовых. Через сколько лет его долг превысит s тысяч рублей, если за это время он не будет отдавать долг?
207.На воду опущен шар радиуса r, изготовленный из вещества плотности р(р<1). Найти расстояние от центра шара до поверхности воды. Указание. При составлении программы воспользоваться формулой объема шарового сегмента высоты h: V = пh2 (3r - h)/3, где r - радиус шара, h - высота шарового сегмента.
225. Создайте целочисленный массив А[1..15] с помощью генератора случайных чисел с элементами от –15 до 30 и выведите его на экран. Определите самый большой элемент массива и его индекс.
344. Создайте двумерный массив целых чисел. Удалите из него строку и столбец, на пересечении которых расположен минимальный элемент.
0
23.05.2010, 09:15
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.05.2010, 09:15

Найти количество и фамилии студентов, имеющих хотя бы одну оценку "удовлетворительно"
Целочисленная матрица А порядка 25x 4 содержит сведения о результатах сессии из...

Используя данные из этого файла, напечатать фамилии тех студентов, которые начинаются с гласной буквы
Используя данные из этого файла, напечатать фамилии тех студентов, которые...

Возраст студентов
Даны сведения о возрасте студентов V 1)Определить самого молодого и самого...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru