помогите решить задачку на паскале..... Я в программирование вообще ничего не понимаю

[ctarik00]

Это задачу уже две недели решаю но помочь пока никто не смог.. Все надежды на вас.. Взаранне благодарен.. Помогите плиз в течении дня

@настроение: ужасно решить не могу

@темы: Работа

Comments

[ArcheryMask]

А в чем проблема то? Одна табличка.

[ctarik00]

ArcheryMask помоги мне написать ее на паскле авс, о то я понять вообще не могу

[ArcheryMask]

есть такая штука в паскале как запись record
А че именно на паскале? В екселе или в аксесе таблички легче создавать. Это ж тебе по работе как я понимаю.

[ctarik00]

ArcheryMask это в школе на информатики задали написать на паскале в виде программы

[ArcheryMask]

Ты уже прочитал в учебнике или чем ты там пользуешься раздел про записи? Что не понятно?

[ctarik00]

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

[ctarik00]

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

[ArcheryMask]

вот
http://209.85.135.132/search?q=cache:3va7AVEtHEYJ:www.pascal.helpov.net/index/pascal_record_programming+pascal+record+%D0%BF%D1%80%D0%B8%D0%BC%D0%B5%D1%80&cd=1&hl=en&ct=clnk&client=opera

[ctarik00]

ArcheryMask а как с процентами быть

[ctarik00]

ArcheryMask можете помочь сделать мою задачу а то вообще не врубаюсь

[ctarik00]

ArcheryMask сколько я здесь пытался толком не получлось program primer;
uses crt;
type fak=record
fio: string[100];
a: string[100];
c: string[100];
g: 1..100;
itog: string[100]
end;
var spisok: array [1..5] of fak;
I:integer; d,a,c,g: real;
begin

for I:=1 to 5 do
begin
writeln ('введите сведения о', I , '-м рабочем');
writeln ('введите фамилию, имя и отчество');
readln (spisok[I].fio);
writeln ('оклад a');
readln (spisok[I].a);
writeln ('введите сколько процентов премия c');
readln(spisok[I].c);

writeln ('15% уральские');
readln(spisok[I].g);


writeln('itog', a+c+g);
readln (spisok[I].itog);

end;
writeln ('ввод закончен');
end.

[ArcheryMask]

uses crt;
type fak=record
 fio: string[30];
 oklad: real;
 pr: real;
 ural: real;
 itog: real
end;

var
spisok: array [1..100] of fak;
I:integer;
n: real;
BEGIN

 for I := 1 to 5 do
 begin
  writeln ('введите сведения о рабочем номер ', i);
  writeln ('введите фамилию, имя и отчество');
  readln (spisok[I].fio);
  writeln ('оклад');
  readln (spisok[I].oklad);
  writeln ('введите сколько процентов премия c');
  readln(n);
    
  spisok[i].pr = n * spisok[I].oklad / 100;
  spisok[i].ural = 0.15 * spisok[I].oklad;
  spisok[i].itog = spisok[I].oklad + spisok[i].pr + spisok[i].ural;
 end;
 writeln ('ввод закончен');
END.

* This source code was highlighted with Source Code Highlighter.

[ctarik00]

ты ее проверял не работает.. где уральская где итог

[ArcheryMask]

нет не проверяла у меня не на чем.
что именно не работает?

[ArcheryMask]

какие ошибки выдает?
уральские у нас константа 15 процентов надбавки. Потому вводить их каждый раз не надо.
итоги понятное дело прога сама должна считать

[ctarik00]

я уже сам смог селать спасибо вам и на этомArcheryMask

[ArcheryMask]

код покажи хоть поправлю, а то у тебя там куча ляпов

[ctarik00]

ArcheryMask uses crt;
type fak=record
fio: string[30];
oklad: real;
pr: real;
ural: real;
itog: real
end;

var
spisok: array [1..100] of fak;
I:integer;
n: real;
BEGIN

for I := 1 to 5 do
begin
writeln ('введите сведения о рабочем номер ', i);
writeln ('введите фамилию, имя и отчество');
readln (spisok[I].fio);
writeln ('оклад');
readln (spisok[I].oklad);
writeln ('введите сколько процентов премия');
readln(n);
spisok[i].pr :=n * spisok[I].oklad / 100;
writeln ('премия',spisok[i].pr);
spisok[i].ural := 0.15 * spisok[I].oklad;
writeln ('уральская',spisok[i].ural);
spisok[i].itog := spisok[I].oklad + spisok[i].pr + spisok[i].ural;
writeln ('итог',spisok[i].itog);
end;
writeln ('ввод закончен');
END.

[ArcheryMask]

uses crt;
type fak=record
  fio: string[30];
  oklad: real;
  pr: real;
  ural: real;
  itog: real
end;

var
  spisok: array [1..100] of fak;
  I:integer;
  n: real;
BEGIN

  for I := 1 to 5 do
  begin
    writeln ('введите сведения о рабочем номер ', i);
    writeln ('введите фамилию, имя и отчество');
    readln (spisok[I].fio);
    writeln ('оклад');
    readln (spisok[I].oklad);
    writeln ('введите сколько процентов премия');
    readln(n);
    
    spisok[i].pr :=n * spisok[I].oklad / 100;
    spisok[i].ural := 0.15 * spisok[I].oklad;
    spisok[i].itog := spisok[I].oklad + spisok[i].pr + spisok[i].ural;
  end;
  writeln ('ввод закончен');
  writeln ('ФИО Окалад Премия Уральское Итого'); {добавить пробелов где надо чтоб красиво было}
  
  for I := 1 to 5 do
    with spisok[i] do
    begin
      writeln (fio,oklad:7:5,pr:7:5,ural:7:5,itog:7:5); {:7:5 это для форматированого вывода}
    end;
END.

* This source code was highlighted with Source Code Highlighter.

[ctarik00]

ArcheryMask твоя не работает не выводит уральскую премию и итог

[ArcheryMask]

ты что в паскале первый раз пишешь чтоли?

uses crt;
type fak=record
  fio: string[30];
  oklad: real;
  pr: real;
  ural: real;
  itog: real
end;

var
  spisok: array [1..100] of fak;
  I:integer;
  n: real;
BEGIN

  for I := 1 to 5 do
  begin
    writeln ('vvedite svedeniya o rabochem nomer ', i);
    writeln ('vvedite familiyu, imya i otchestvo');
    readln (spisok[I].fio);
    writeln ('oklad');
    readln (spisok[I].oklad);
    writeln ('vvedite skolko procentov premiya');
    readln(n);
    
    spisok[i].pr :=n * spisok[I].oklad / 100;
    spisok[i].ural := 0.15 * spisok[I].oklad;
    spisok[i].itog := spisok[I].oklad + spisok[i].pr + spisok[i].ural;
  end;
  writeln ('vvod zakonchen');
  writeln ('FIO Okalad Premiya Uralskoe Itogo'); {dobavit' probelov gde nado chtob krasivo bylo}
  
  for I := 1 to 5 do
    with spisok[i] do
    begin
      writeln (fio,oklad:7:2,pr:7:2,ural:7:2,itog:7:2); {:7:5 eto dlya formatirovanogo vyvoda}
    end;
    
  readln;
END.

* This source code was highlighted with Source Code Highlighter.

[ctarik00]

ArcheryMask ты ее в паскале проверял я тебе говорню итог и уральская у тебя не работает

[ArcheryMask]

проверялА. как по твоему они должны работать?