Автор Тема: задача на записи (код прилагается)  (Прочитано 1739 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн misha_beginner

  • Новичок
  • *
  • Сообщений: 15
    • Просмотр профиля
Здраствуйте! Вообщем задание большое! Я переведу! Дана таблица (см. картинку под названием 11111) по этой таблице нужно эти данные оформить в виде записей и сформировать эти записи в массив Вот код:
const
     n=4;
     type anketa=record
     prizv:string;
     ocenka1:real;
     ocenka2:real;
     end;
     var
        a:array[1..n] of anketa;
    i:integer;
    begin
    writeln('vvedi dannie ');
    for i:=1 to n do
    with a[i] do
    begin
    write('prizv ');
    readln(prizv);
    write('ocenka1 ');
    readln(ocenka1);
    write('ocenka2 ');
    readln(ocenka2);
    end;
    end.
(не знаю правильно ли)
Дальше вы можете прочитать снизу(см. картинку под названием 22222), что нужно еще и сделать таблицу (тоесть после записей идёт и таблица, мой вариант 2). Я переведу:
Вывести таблицу, с номерами, фамилиями, оценками, и средний бал тех студентов группы средний бал которых больше 4 и количество этих студентов в группе.
Вот код:
const n=4;
var
   nomer: array[1..n] of real;
   prizv:array [1..n] of string;
   matanaliz,proga:array[1..n] of real;
   i:integer;
   y,s1,s2:real;
   Procedure lin(m:integer);
   var
     i:integer;
     begin
     for i:=1 to m do write('-');
     writeln;
     end;
     begin
     for i:=1 to n do
     readln(nomer[i],prizv[i],matanal[i],proga[i]);
     Lin(40);
     Writeln('номер|призвіще|математ.|програмування|');
     Writeln('|    |        |аналіз  |             |);
     Lin(40);
это недописано
Но дальше не знаю: средний бал тех студентов группы средний бал которых больше 4. Всё это одна программа.
Спасибо вам заранее

 

Олимпиадная задача "Дипломы"

Автор DrXakep

Ответов: 0
Просмотров: 3507
Последний ответ 30 Декабря 2012, 14:09:40
от DrXakep
Задача паскаль. Составить программу для построения таблицы значений

Автор Rydon

Ответов: 1
Просмотров: 3982
Последний ответ 21 Декабря 2009, 15:49:38
от Rydon
Срочно надо написать курсовую по информатике. Задача на языке VBA.

Автор lana

Ответов: 1
Просмотров: 1545
Последний ответ 12 Сентября 2010, 19:29:18
от InfStudent
Паскаль(задача). Составить программу определения показания часов

Автор Fairmont

Ответов: 0
Просмотров: 2177
Последний ответ 24 Февраля 2011, 21:25:22
от Fairmont
Задача в Turbo С. Написать программу построения одномерного массива

Автор deamond

Ответов: 1
Просмотров: 1818
Последний ответ 21 Декабря 2011, 12:04:34
от Hellko