Паскаль,определить кол-во чисел - Форум
Воскресенье, 04.12.2016, 17:15
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Паскаль,определить кол-во чисел (20.01.11,массивы)
Паскаль,определить кол-во чисел
ДианкаДата: Вторник, 18.01.2011, 13:47 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 3
[ 1 ]
Статус: Offline
В массиве записаны четвертные оценки ученика по 10 предметам. определить общее кол-во 4 и 5. Примечание: ввод значений элементов массива организовать случайным образом,соответственно реальным значениям.
 
NailДата: Вторник, 18.01.2011, 20:13 | Сообщение # 2
Генералиссимус
Группа: Заблокированные
Сообщений: 127
[ 0 ]
Статус: Offline
Решу не дорого!
Mail: shakurovnail@mail.ru
Icq: 6688101
Skype: shakurovnail
 
lbhvДата: Пятница, 28.01.2011, 18:34 | Сообщение # 3
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
Program fsdklj;
var a:array [1..10] of integer;
x,k,i:integer;
begin
k:=0;
for i:=1 to 10 do
readln (a[i]);
for i:=1 to 10 do
write (a[i]);
writeln;
for i:=1 to 10 do
begin
x:=a[i];
case x of
4:k:=k+1;
5:k:=k+1;
end;
end;
writeln ('в ваших оценках 4 и 5');
writeln (k);
end.
 
ZyXEL12m94Дата: Суббота, 29.01.2011, 01:56 | Сообщение # 4
Лейтенант
Группа: Новичок
Сообщений: 13
[ 1 ]
Статус: Offline
Я унылый слоупок=(
Ну да ладно.
lbhv, я считаю что Ваш вариант неправильный, ТЗ не соответствует.

Вот решение на Delphi-
http://paste2.org/p/1216874

думаю на Pascal перевести не составит труда

Добавлено (29.01.2011, 01:56)
---------------------------------------------
хотя если эта задача вызывает трудности.

Вот листинг на Паскале(я его так помню)
begin
iCounter5:=0;
iCounter4:=0;
for i:=1 to iClasses do
begin
aRatings[i]:=Random(5);
if aRatings[i]=5 then
inc(iCounter5);
if aRatings[i]=4 then
inc(iCounter4);
writeln(aRatings[i]);
end;
writeln('Number of fives= '+iCounter5+#13+'Number of fours= '+iCounter4);
end;

 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Паскаль,определить кол-во чисел (20.01.11,массивы)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016