Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
dupsty
0 / 0 / 0
Регистрация: 20.06.2011
Сообщений: 1
#1

Массивы с процедурой.

23.06.2011, 19:34. Просмотров 259. Ответов 0
Метки нет (Все метки)

Даны списки 20 абитуриентов, их средние баллы аттестата и средний балл,
полученный при поступлении в институт. Вывести три списка.
1 – абитуриентов, у которых разница средних баллов более 0,5;
2 – абитуриентов, у которых разница средних баллов более 1;
3 – абитуриентов, у которых разница средних баллов более 2.

Вот то, что я сам делал.
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
30
Program V10_N9;
uses crt;
Var
 abit: array[1..10] of string[8];
 att: array[1..5] of real;
 inst: array[1..5] of real;
    F:text;
    i:integer;
 
  begin
   assign(F,'V10_N9.txt');
   reset(F);
 
   for i:=1 to 20 do begin
   readln(F,abit[i],att[i],inst[i]);
 begin
   writeln('Raznica bolee 0,5 ballov');
    writeln('ЪДДДДДДДДДДДДДДДВДДДДДДДДДДДДДДДДВДДДДДДДДДДДї');
    writeln('і   Abiturient  і Ball attestata і Ball EGE  і');
    writeln('ГДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДЕДДДДДДДДДДДґ');
   for i:=1 to 20 do begin
   if  abs(att[i]-inst[i])>=0.5 then
      writeln('і',abit[i]:15,'і',att[i]:16:0,'і',inst[i]:11:0,'і');
    end;
    writeln('АДДДДДДДДДДДДДДДБДДДДДДДДДДДДДДДДБДДДДДДДДДДДЩ');
    readln;
     end;
    end;
   close(F);
 end.
Ребят помогите сделать эту задачу с процедурой.

Добавлено через 1 час 57 минут
up!!!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.06.2011, 19:34
Ответы с готовыми решениями:

Переделать на программу с процедурой
program one; uses crt; var a,b: real; begin read(a); b:=ln(a)/ln(10); write('log(a)=',b);...

Что не так с процедурой удаления?
Вот в курсовой использую ету процедуру для удаления записей из файла. Но если я ввожу порядковий...

решить с процедурой или функцией.
Можно ли коробку размером AхBхC упаковать в посылку размером RxSxT? «Углом» укладывать нельзя....

Создание модуля с процедурой и функцией
Здравствуйте, есть задача: Создать модуль под именем "U16", который содержит следующие функции: ...

Составить простую программу с процедурой
Составить простую программу с процедурой которая будет вычислять площадь квадрата

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.06.2011, 19:34

Биквадратное уравнение с процедурой или функцией
Помогите, надо решить биквадратное уравнение а*х^4+b*x^2+c=0 при помощи процедур или функций

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

Создать модуль с процедурой, из готовой программы.
Задание звучит так: Написать свой модуль с процедурой, которая определяет восьмеричный код любого...


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

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

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