Пожалуйста помогите решить задачу по паскалю (нужно срочно) - Форум
Пятница, 09.12.2016, 16:29
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Пожалуйста помогите решить задачу по паскалю (нужно срочно)
Пожалуйста помогите решить задачу по паскалю (нужно срочно)
leon0909Дата: Среда, 29.09.2010, 17:47 | Сообщение # 1
Лейтенант
Группа: Новичок
Сообщений: 12
[ 0 ]
Статус: Offline
№ 1 Подсчитать количество и вывести на экран фамилии хорошистов и отличников.

№ 2 Упорядочить по алфавиту список учеников, вывести на экран упорядоченный список и результирующий балл каждого ученика.

 
ВахаДата: Четверг, 30.09.2010, 18:20 | Сообщение # 2
Подполковник
Группа: Новичок
Сообщений: 28
[ 6 ]
Статус: Offline
Это полные условия? Если нет, напиши полностью или прикрепи ссылку с отсканированным условием.

Добавлено (30.09.2010, 17:39)
---------------------------------------------
Первая задача.

uses CRT;
type
TStudent=record
surname: string;
middlemark: real;
end;
var
std: array [1..100] of TStudent;
sur1, sur2: array [1..50] of string;
k, j, s1, s2, i: integer;
procedure init;
begin
with std[1] do
begin
surname:='Иванов';
middlemark:=5;
end;
with std[2] do
begin
surname:='Петров';
middlemark:=4;
end;
with std[3] do
begin
surname:='Васюк';
middlemark:=3;
end;
with std[4] do
begin
surname:='Ахметов';
middlemark:=5;
end;
with std[5] do
begin
surname:='Киркоров';
middlemark:=4;
end;
with std[6] do
begin
surname:='Вайкуле';
middlemark:=3;
end;
with std[7] do
begin
surname:='Агутин';
middlemark:=4;
end;
with std[8] do
begin
surname:='Пугачева';
middlemark:=2;
end;
with std[9] do
begin
surname:='Варум';
middlemark:=5;
end;
with std[10] do
begin
surname:='Долина';
middlemark:=4;
end;
with std[11] do
begin
surname:='Михалков';
middlemark:=3;
end;
with std[12] do
begin
surname:='Панкратов';
middlemark:=5;
end;
end;
BEGIN
init;
clrscr;
j:=0;
k:=0;
for i:=1 to 12 do
if std[i].middlemark>=5 then
begin
inc (j);
sur1[j]:=std[i].surname;
end else if std[i].middlemark>=4 then
begin
inc (k);
sur2 [k]:=std[i].surname;
end;
WriteLn ('Отличников: ', j);
for i:=1 to j do Write (sur1[i], ' ');
WriteLn;
WriteLn ('Хорошисты: ', k);
for i:=1 to j do Write (sur2[i], ' ');
readkey;
END.

Сделал как понял. Если что не так извиняйте.

Добавлено (30.09.2010, 18:20)
---------------------------------------------
Это вторая.

uses CRT;
type
TStudent=record
surname: string;
middlemark: real;
end;
var
std: array [1..100] of TStudent;
i, j, c1, c2, buf: integer;
b: real;
s1, s2, s: string;
ch1, ch2: char;
procedure init;
begin
with std[1] do
begin
surname:='Иванов';
middlemark:=5;
end;
with std[2] do
begin
surname:='Петров';
middlemark:=4;
end;
with std[3] do
begin
surname:='Васюк';
middlemark:=3;
end;
with std[4] do
begin
surname:='Ахметов';
middlemark:=5;
end;
with std[5] do
begin
surname:='Киркоров';
middlemark:=4;
end;
with std[5] do
begin
surname:='Киркоров';
middlemark:=4;
end;
with std[6] do
begin
surname:='Вайкуле';
middlemark:=3;
end;
with std[7] do
begin
surname:='Агутин';
middlemark:=4;
end;
with std[8] do
begin
surname:='Пугачева';
middlemark:=2;
end;
with std[9] do
begin
surname:='Варум';
middlemark:=5;
end;
with std[10] do
begin
surname:='Долина';
middlemark:=4;
end;
with std[11] do
begin
surname:='Михалков';
middlemark:=3;
end;
with std[12] do
begin
surname:='Панкратов';
middlemark:=5;
end;
end;
BEGIN
init;
clrscr;
for i:=1 to 11 do
begin
s1:=std[i].surname;
s2:=std[i+1].surname;
c1:=length (s1);
c2:=length (s2);
if c1<c2 then buf:=c1 else buf:=c2;
j:=1;
while j<=buf do
begin
ch1:=s1[j];
ch2:=s2[j];
if ord(ch1)>ord(ch2) then
begin
s:=std[i].surname;
std[i].surname:=std[i+1].surname;
std[i+1].surname:=s;
b:=std[i].middlemark;
std[i].middlemark:=std[i+1].middlemark;
std[i+1].middlemark:=b;
j:=buf;
end else if ord(ch1)<ord(ch2) then j:=buf;
inc (j);
end;
end;
For i:=1 to 12 do
WriteLn (std[i].surname, ' ', std[i].middlemark:8:2);
readkey;
END.


Гвардия умирает но не сдается
 
leon0909Дата: Воскресенье, 03.10.2010, 14:03 | Сообщение # 3
Лейтенант
Группа: Новичок
Сообщений: 12
[ 0 ]
Статус: Offline
Огромное спасибо! hands
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Пожалуйста помогите решить задачу по паскалю (нужно срочно)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016