Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
0 / 0 / 1
Регистрация: 10.12.2009
Сообщений: 18
1

Вивод в таблице

27.12.2009, 19:39. Просмотров 577. Ответов 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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Program Ice5;
uses crt;
Type
    T_Stud=record
          FIO:string[20];
          Fac:string[5];
          Group:string[6];
          God_roj:integer;
          End;
Var
    Spis:array [1..10] of  T_Stud;
    i, N: integer;
    isk_stud:String[20] ;
Begin
clrscr;
   Write('Vvedite Kolichestvo studentov');
   readln(N);
   For i:=1 to N do
Begin
   with Spis[i] do
Begin
    Writeln('F.I.O.');
    readln(FIO);
    Writeln('Facul`tet');
    readln(Fac);
    Writeln('Grouppa');
    readln (Group);
    Writeln('God rojdenia');
    readln(God_roj);
    writeln;
end;
end;
 
For i:=1 to N do
WITH Spis [i] do
Begin writeln(' F.I.O.':15,' Facul`tet':15,' Grouppa':15,' God rojdenia':15);
Writeln (FIO:15,Fac:15,Group:15,God_roj:15);
end;
Writeln;
 
For i:=1 to N do
WITH Spis [i] do
Begin
Writeln ('Rezultat poiska ');
writeln (' F.I.O.':15,' Facul`tet':15,' Grouppa':15,' God rojdenia':15);
 If ( Group='97BC1')  and (God_roj=1979) then
 Writeln(FIO:15,Fac:15,Group:15,God_roj:15);
  end;
  readkey;
  end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.12.2009, 19:39
Ответы с готовыми решениями:

Вивод в таблице
Подскажите пожалуста. Как Сделать так чтоби при виводе в таблицу текста, виводилса не весь текст, а...

Вивод td и tr
Есть код: <?php if ($option == 'image') { ?> <div id="option-<?php echo $option; ?>"...

Вивод ссылки
Доброго времени суток. Сделал игру. В зависимости от количества очков выводится текст...

Алфавит вивод
Как сделать, при вводе числа, мне видавало соответвующею букву...Например ввожу 1 и мне выводится...

2
4337 / 1469 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
27.12.2009, 19:50 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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Program Ice5;
uses crt;
Type
    T_Stud=record
          FIO:string[20];
          Fac:string[5];
          Group:string[6];
          God_roj:integer;
          End;
Var
    Spis:array [1..10] of  T_Stud;
    i, N: integer;
    isk_stud:String[20] ;
Begin
clrscr;
   Write('Vvedite Kolichestvo studentov');
   readln(N);
   For i:=1 to N do
Begin
   with Spis[i] do
Begin
    Writeln('F.I.O.');
    readln(FIO);
    Writeln('Facul`tet');
    readln(Fac);
    Writeln('Grouppa');
    readln (Group);
    Writeln('God rojdenia');
    readln(God_roj);
    writeln;
end;
end;
 
writeln(' F.I.O.':15,' Facul`tet':15,' Grouppa':15,' God rojdenia':15);
For i:=1 to N do
WITH Spis [i] do Writeln (FIO:15,Fac:15,Group:15,God_roj:15);
Writeln;
 
writeln (' F.I.O.':15,' Facul`tet':15,' Grouppa':15,' God rojdenia':15);
Writeln ('Rezultat poiska ');
For i:=1 to N do
WITH Spis [i] do
Begin
 If ( Group='97BC1')  and (God_roj=1979) then
 Writeln(FIO:15,Fac:15,Group:15,God_roj:15);
  end;
  readln;
  end.
1
0 / 0 / 1
Регистрация: 10.12.2009
Сообщений: 18
27.12.2009, 20:49  [ТС] 3
Спасибо очень выручил
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.12.2009, 20:49

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

Вивод презентации
Нужно создать такую прогу: 1)виделяеш любой текст (вне формы 1) нажымаеш на кнопку 1 в форме 1...

Не коректний вивод
Проблема: Код: Помогите решить!

Вивод ссылки
Здравствуйте. Есть php скрипт в котором выводиться html код $html c div ссылкой на другой сайт....

Какой будет вивод?
Что будет результатом SELECT 2*2


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

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

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