Форум программистов, компьютерный форум CyberForum.ru

тестирующая программа на с - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ вычисление погрешности - циклы. http://www.cyberforum.ru/cpp-beginners/thread263029.html
Задание во вложении. мой код приложен. не правильно работает ряд, точнее его накопление, на сколько я понимаю - поправте что ни так.. #include <cstdlib> #include <iostream> #include <cmath> #include <clocale> using namespace std; int main(int argc, char *argv) {
C++ Вывод массива без использования цикла на C(pure)) Какие есть мысли и/или готовые решения по сабжу ? http://www.cyberforum.ru/cpp-beginners/thread263020.html
Доработайте пожайлуста!!! C++
int zad(float a, float b, float c, float Xn, float Xk, float dx) { scanf ("%f %f %f %f %f %f",&a,&b,&c,&Xn,&Xk,&dx); for( ;Xp<=Xk;Xp+=dx) if (c<0 && b!=0) rez=a-Xn/(10-b); else if (Xn>0 && b==0) rez=(Xp-a)/(Xp-c); else
Здравствуйте, извините за беспокойствие, помогите мне, пожалуйста, написать программу на С++ C++
В однонаправленном списке нужно определить тип информационного поля, а также удалить из списка первый элемент с чётным информациооным полем. Заранее спасибо...
C++ тригонометрия http://www.cyberforum.ru/cpp-beginners/thread263009.html
ну собственно программа вызывает функцию на ассемблере,которая вызывает 2 функции на си.результат выводит функцию которую вызывали(то есть та что на асме). вроде код на асме должен работать.но visual studio ругается на sin и на cos!ей не нравятся целочисленные аргументы.что не так? // лаба_ОС.cpp : Defines the entry point for the console application. // #include "stdafx.h" #include...
C++ Повторно запустить оператор switch без goto, циклов и доп. функций Как сабж? int intSum = 0; int main(void) { int intInteger01, intInteger02; int intSwitch; cout << "Input integer #1 and press ENTER:\n"; cin >> intInteger01; подробнее

Показать сообщение отдельно
nutella
0 / 0 / 0
Регистрация: 23.03.2011
Сообщений: 10
24.03.2011, 01:05  [ТС]     тестирующая программа на с
у меня есть код программы которая примерно должна получится на Паскале.

1.1 Код файла для создания файла с вопросами и ответами

program Vvod;
type rec=record
vopros:string;
otvet:string;
end;
var f:file of string;
c:string;x:integer;q:rec;
begin
x:=0;
assign(f,'control.dat');
rewrite(f);
repeat
x:=x+1;
writeln('Введите вопрос');
readln(q.vopros);
write(f,q.vopros);
writeln('введите ответ');
readln(q.otvet); write(f,q.otvet); until x=20; close(f); end.

1.2 Код файла для чтения файла с вопросами и введения ответов

program initialization;
uses crt;
const simbol:set of char=['y','Y','n','N','r','R','t'];
type rec=record
vopros:string;
otvet:string;
end;
var f:file of string;z,e,u:integer;key:char;
z1,z2,z3:real;
x:integer;q:rec; j:integer;
Procedure MainMenu;
begin
writeln('Для начала тестирования нажмите - y');
writeln ('Для редактирования вопросов или выхода из программы нажмите - R');
repeat
key:=readkey until key in simbol;
case key of
'y','Y':writeln;
'r','R':begin clrscr;
writeln('Для завершения программы нажмите - n');
writeln('Для редактирования вопросов -T');
repeat
key:=readkey until key in simbol;
case key of
'n','N':halt;
't','T':begin
j:=0;
assign(f,'control.dat');
rewrite(f); clrscr;
writeln('Введите количество вопросов');
readln(x);
repeat
j:=j+1;
writeln('Введите вопрос');
readln(q.vopros);
write(f,q.vopros);
writeln('Введите ответ');
readln(q.otvet);
write(f,q.otvet);
until j=x;
close(f); begin halt; end;
end;
end;end; end; end;
procedure umnogenie;
begin
writeln('Учтите что при вводе ответов знак умножения " * "(shift+8) обязателен ');
writeln('иначе ответ не будет считаться правильным');
writeln('Для продолжения нажмите - ENTER') ;
end;
Procedure Test;
var
readstring,otv,otvfile:string;
begin
e:=0; z:=0;
assign(f,'control.dat');
reset(f);
While not eof(f) do begin
z:=z+1; clrscr;
write('Вопрос',z,' : ',' ');
writeln;writeln;inc(x);
read(f,readstring);
read(f,otvfile);
writeln (readstring);
Write('Ответ');Readln(otv);
if otv = otvfile then begin e:=e+1;end;end;
z1:=round(x/4);
z2:=round(x/2);
z3:=round(x/1.3);
if e<=z1 then u:=2 else
if (e>z1) and(e<=z2) then u:=3 else
if (e>z2) and (e<=z3) then u:=4 else u:=5;
close(f);
clrscr;
writeln('Правильных ответов’,e);
writeln('Ваша оценка',u);
end;
begin clrscr;
MainMenu;
umnogenie; readln;
Test;
end.

Добавлено через 40 секунд
я думаю лучше всего
a,b,c либо d.
 
Текущее время: 21:03. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru