|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
12.04.2007, 00:55 | #1 |
Регистрация: 12.04.2007
Сообщений: 4
|
Одномерные массивы и строки
Помогите пожалусто мне прогу затро здавать а я не успеваю жесть как....
Даны массивы F1,..,F20 -фамилия вкладчиков N1,..,N20 -номер их строк S1,..,S20 -Сумма вкладов Вычислить суммы начислений по вкладам из расчёта 5% от суммы и напичатать список вкладчиков (С указанием фамилии и номера счёта)у которых сумма начислений составит от X1 до x2 |
12.04.2007, 00:58 | #2 |
Регистрация: 12.04.2007
Сообщений: 4
|
Кстати есть небольшая заготовка:
program lb; uses crt; var num:array[1..20] of integer; name:array[1..20] of string; cash:array[1..20] of real; i:integer; x1,x2:real; begin clrscr for i:=1 to 20 do begin write('name: '); read(name[i]); write('CASH: '); read(cash[i]); end; x1:=cash[1]; for i:=1 to 20 do {MIN} if x1<cash[i] then x1:= cash[i]; x2:=cash[1]; for i:=1 to 20 do{MAX} if x2>cash[i] then x2:=cash[i]; for i:=1 to 20 do cash[i]:=(cash[i]/100)*5 for i:=1 to 20 do begin if cash[i]>x2 and cash[i]<x1 then else begin write(num[i],' ',name[i],' ',cash[i]); end; end. ТОко я не уверен что всё работает.... |
12.04.2007, 03:40 | #3 |
_________
Пользователь
Регистрация: 27.03.2007
Сообщений: 69
|
Код:
|
12.04.2007, 05:14 | #4 |
Регистрация: 12.04.2007
Сообщений: 4
|
Спосибо БОЛЬШО!!!ОЧЕНЬ выручил.......а теперь дружелюбный интерфейс=)
|
12.04.2007, 15:04 | #5 |
Delphi/C++/C#
Участник клуба
Регистрация: 29.10.2006
Сообщений: 1,972
|
Мда... а теперь копеечку. Самое сложно сделали, интерфейс - ваша часть, goto, write, writeln... + таблица ASCII - так и сделаете
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Одномерные массивы 2 (Pascal) | Дима82 | Помощь студентам | 4 | 16.02.2009 21:21 |
Одномерные массивы(Pascal) | Дима82 | Помощь студентам | 7 | 07.06.2008 15:33 |