Помогите сделать программу

← →
RakDoll © (2011-06-29 14:32) [0]

В текстовом файле содержится следующая информация , фамилии , имена , названия 3-х предметов , оценки по трем предметам. Вывести список учащихся:
1)у которых оценки по всем предметам 9-10;
2)у которых оценка хотя бы оценка по одному предмету 9-10;
3)у которых по всем предметам оценкии 7-10;
4)у которых по всем предметам оценки ниже 7;

← →
Dennis I. Komarov © (2011-06-29 14:39) [1]

while not eof(f) do begin ReadLn(f, str); Parse(str, a); if a.otsenka1 >= 9 and тп then WriteLn(NameToStr(a)); end

← →
Ega23 © (2011-06-29 14:40) [2]

Ух ты! Десятибальная шкала оценок!
Я отстал от жизни?

← →
SQLEXPRESS (2011-06-29 14:40) [3]

50
50
50
50
итого 200
баксов

← →
Dennis I. Komarov © (2011-06-29 14:45) [4]

mn = "т.п."

← →
Юрий Зотов © (2011-06-29 14:52) [5]

И, как обычно, образование, конечно же, высшее...

← →
Inovet © (2011-06-29 15:05) [6]

> [2] Ega23 © (29.06.11 14:40)
> Ух ты! Десятибальная шкала оценок!
> Я отстал от жизни?

В Беларуси не 10-тибальная?

← →
Омлет © (2011-06-29 15:32) [7]

> Помогите сделать программу

Какая помощь нужна?

← →
RakDoll © (2011-06-29 17:39) [8]

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

← →
* © (2011-06-29 17:53) [9]

> но нужно сделать , как быть...

сделать - очевидно же

← →
Плохиш © (2011-06-29 17:53) [10]

49
49
49
49
итого 196 евро. Спешите, это кратковременная акция.

← →
b z (2011-06-29 17:55) [11]

> вообще не имею представления как делать. но нужно сделать
> , как быть...
Нанять того, кто имеет представление.

← →
Препод (2011-06-29 18:28) [12]

> RakDoll © (29.06.11 14:32)

Такая программа пишется за час-два и вряд ли кто ради Вас согласится тратить свое время. Одно дело - ответить на конкретный вопрос (это больше нескольких минут обычно не занимает), а совсем другое - писать целую программу.

Но дело даже и не в этом. Допустим, такой человек все же найдется и будет у Вас готовая программа. Но как Вы ее сдавать будете?

Если Вы не имеет представления даже о такой простой программе (а это Вы сами сказали), то, значит, с программированием у Вас полная беда. Значит, и в готовой программе Вы разобраться тоже не сумеете - а поэтому засыпетесь на первом же вопросе.

И что тогда толку от готовой программы? Получается - никакого.

← →
Dimka Maslov © (2011-06-29 18:38) [13]

Сессия вроде как уже давно должна быть закрыта...

← →
RakDoll © (2011-06-29 18:39) [14]

ну на счет объяснения этот вопрос я решил , осталась решить программу:(

← →
Anatoly Podgoretsky © (2011-06-29 19:15) [15]

> Плохиш (29.06.2011 17:53:10) [10]

Менее 8000 рублей, видимо очень кратковременная.

← →
Anatoly Podgoretsky © (2011-06-29 19:16) [16]

> Препод (29.06.2011 18:28:12) [12]

Завернутой в купюру

← →
RakDoll © (2011-06-29 19:19) [17]

#15,16
Не все такие как ты думаешь , есть и понимающие преподы)) просто надо по-человечески объяснить как все есть

← →
TUser © (2011-06-29 21:04) [18]

Удалено модератором

← →
RakDoll © (2011-06-29 22:19) [19]

zZz ребят завтра сдавать надo ;[

← →
R_R (2011-06-29 22:22) [20]

Удалено модератором

← →
R_R (2011-06-29 22:42) [21]

Ну давай попробую накатаю...

← →
TUser © (2011-06-29 22:50) [22]

> zZz ребят завтра сдавать надo ;[

все равно в след году конец света, ништяк метаться

← →
R_R (2011-06-29 22:53) [23]

Я тебе накидаю если пояснишь структуру текстового файла...

← →
R_R (2011-06-29 22:54) [24]

TUser © (29.06.11 22:50) [22]
> zZz ребят завтра сдавать надo ;[

все равно в след году конец света, ништяк метаться

Может непрофильный предмет...

← →
R_R (2011-06-29 23:11) [25]

program Info;
var
N: integer;
Name: String;
Family: String;
Temp: string;
TempInt: Integer;
Names[1..3]: String;
Marks[1..3]: Integer;
i: integer;
R: Boolean;
begin
Readln(N);
while not eof(f) do
begin
Readln(f, Name);
Readln(f, Family);
Readln(f, Temp);
Names[1] := Temp;
Readln(f, TempInt);
Marks[1] := TempInt;
Readln(f, Temp);
Names[2] := Temp;
Readln(f, TempInt);
Marks[2] := TempInt;
Readln(f, Temp);
Names[3] := Temp;
Readln(f, TempInt);
Marks[3] := TempInt;
R := True;
case N of
1: begin
for i := 1 to 3 do
if not (8 < Marks[i]) then
R := False;
if R then
Writeln(Name, " ", Family);
end;
2: begin
R := False;
for i := 1 to 3 do
if (8 < Marks[i]) then
R := True;
if R then
Writeln(Name, " ", Family);
end;
3: begin
for i := 1 to 3 do
if not (6 < Marks[i]) then
R := False;
if R then
Writeln(Name, " ", Family);
end;
4: begin
for i := 1 to 3 do
if not (6 > Marks[i]) then
R := False;
if R then
Writeln(Name, " ", Family);
end;
end;
end;
Readln;
end.

← →
R_R (2011-06-29 23:11) [26]

7>Marks[i]

← →
RakDoll © (2011-06-29 23:59) [27]

R_R что пояснить ? не особо понял

← →
R_R (2011-06-30 00:40) [28]

RakDoll © (29.06.11 23:59)
Если я правильно понял я решил выше...

> Если я правильно понял я решил выше...

а там случайно не надо подключать текстовый файл?

← →
Препод (2011-06-30 00:47) [30]

> TUser © (29.06.11 21:04) [18]
Вам хамство присуще всегда, или только сегодня?

> [25]
Упал пацтол... один двоечник другого учит...

← →
R_R (2011-06-30 00:51) [31]

Names[1..3]: String;
Marks[1..3]: Integer; как-то заменить надо выдает ошибку , пишу в делфи
names.array[1..3]:string?~?

это походу паскаль , хотя они похожи

че-то переделал получилось так :
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var

N: integer;
Game: String;
Family: String;
Temp: string;
TempInt: string;
Names:array[1..3]of String;
Marks:array[1..3]of Integer;
i: integer;
R: Boolean; Form1: TForm1;
f:textfile;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Assignfile(f, "3.txt");
Reset(f);
n:=strtoint(edit1.text);
showmessage(inttostr(n));
while not eof(f) do begin
readln(f, Game);
Readln(f, Family);
Readln(f, Temp);
Names[1] := Temp;
Readln(f, TempInt);
Marks[1] := strtoint(TempInt);
showmessage(inttostr(marks[1]));
Readln(f, Temp);
Names[2] := Temp;
Readln(f, TempInt);
Marks[2] := strtoint(TempInt);
showmessage(inttostr(marks[2]));
Readln(f, Temp);
Names[3] := Temp;
Readln(f, TempInt);
Marks[3] := strtoint(TempInt);
showmessage(inttostr(marks[3]));
end;
R := True;
case n of
1: begin
for i := 1 to 3 do
if not (8 < Marks[i]) then
R := False;
if R then
showmessage(game+ Family);
end;
2: begin
R := False;
for i := 1 to 3 do
if (8 < Marks[i]) then
R := True;
if R then
showmessage(game+Family);
end;
3: begin
for i := 1 to 3 do
if not (6 < Marks[i]) then
R := False;
if R then
showmessage(game+ Family);
end;
4: begin
for i := 1 to 3 do
if not (6 > Marks[i]) then
R := False;
if R then
showmessage(game+ Family);
end;
end;
closefile(f);
end;

end.

но после показа 4ых оценок чето ошибку выдает , типа еще чтото интежер , подскажите
но и за это очень благодарен

> но после показа 4ых оценок чето ошибку выдает , типа еще
> чтото интежер

это печально

и в дипломе будет написано "математик, программист"?

Удалено модератором

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

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

O_o

Помогите сделать программу Найти похожие ветки